使用列名就地更改tibble中的值
在R语言中，可以使用dplyr包中的mutate()函数来使用列名就地更改tibble中的值。
具体步骤如下：
- 首先，确保已经安装了dplyr包。如果没有安装，可以使用以下命令进行安装：install.packages("dplyr")
- 加载dplyr包：library(dplyr)
- 创建一个tibble对象，例如： my_tibble <- tibble(col1 = c(1, 2, 3), col2 = c("A", "B", "C"))
- 使用mutate()函数来更改tibble中的值。例如，将col1列中的值加1，并将结果保存在新的列new_col中： my_tibble <- my_tibble %>% mutate(new_col = col1 + 1)
- 这样，my_tibble中就会新增一列new_col，其中的值为col1列中的值加1。
使用列名就地更改tibble中的值的优势是可以直接在原始数据框中进行修改，而不需要创建新的数据框。这样可以节省内存空间，并且方便进行数据处理和分析。
这种方法适用于需要对某一列或多列进行计算或修改的情况，例如对数值列进行加减乘除运算，对字符列进行拼接或替换等。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库MySQL版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发：https://cloud.tencent.com/product/mobdev
- 腾讯云区块链服务（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云元宇宙：https://cloud.tencent.com/product/mu
相关·内容
假设我有以下数据：x <- 1:2。
我想要的输出是一个data.frame()，如下所示：
a b
1 2
有了R基，我会做一些事情：
df <- data.frame(t(x))
colnames(df) <- c("a", "b")
问题：，我将如何与管道操作员做这件事？
到目前为止我尝试过的：
library(magrittr)
x %>% data.frame(a = .[1], b = .[2])
浏览 3提问于2019-09-29得票数 4
回答已采纳
我遇到了问题，删除左引号“`”字符(尖锐，回引，庄重，严肃的口音，开放的引语，或推是替代的名称)，从我的一些专栏名称。
我尝试了在这些页面上提供的几个解决方案(在下面的代码中)，但没有成功。有什么想法？
library(tidyverse)
library(stringr)
tibble_dog <- tibble (`yls23_rolled_/_nktg23_` = 1:6,
`1alw23_rolled_/_ndatg23_` = 11:16,
`1alw6_rolled_/_
浏览 5提问于2022-05-24得票数 0
我有几个分叉，每一个都有不同的列数和不同的列名。我想标准化每个列名，使之都是小写的。这适用于单个的tibble：
library(magrittr)
library(purrr)
colnames(tbl1) %<>% map(tolower)
对象tbl1的列名现在都是小写的。
但是，如果我把我所有的小吃都列在一张清单上，这是行不通的：
all_tbls <- list(tbl1, tbl2, tbl3)
all_tbls %<>% map(function(tbl) {colnames(tbl) %<>% map(tolower)})
对象tbl
浏览 0提问于2019-03-13得票数 0
回答已采纳
我已经尽力而为，但仍在努力解决我的问题。我正在尝试根据来自另一个tibble的值来对tibble中的列进行子集。
更具体地说，我有一堆社会经济指标：
cname year ccodealp wdi_lfpr wdi_lfprf
Turkey 2010 TUR 51.611 29.592
Turkey 2011 TUR 52.781 30.995
Turkey 2012 TUR 52.809 31.676
Turkey 2013 TUR 53.874 33.125
Turkey 2014 T
浏览 2提问于2021-04-27得票数 2
回答已采纳
1回答
你能帮我解决这个问题吗:我有一个数据集，其中的列是数值。有些列是按顺序排列的。我想要重命名这些序列列，其名称与序列开始的列的名称相同。 下面是一个与本例类似的数据集： fake_dataset <- data.frame(sample = paste0("sample_", sample(1:100, replace = T)),
"1678.47647" = runif(100, 1, 2),
"1679.84733
浏览 8提问于2021-10-02得票数 1
回答已采纳
我正在尝试创建一个单独的列tibble，其中每一行都是向量中的单个单词，但我不确定如何添加列名，因为tibble还没有创建。
此代码：
as_tibble(strsplit("this is a test" , " "))
返回错误：
Error: Column 1 must be named
如何命名列1？
的结果中添加一个名称。
strsplit("this is a test" , " ")
但是这是一个字符串，所以不能命名？
[1]“本”是“一项”检验“。
浏览 0提问于2017-11-08得票数 1
回答已采纳
1回答
我有一个表，在这个表中我没有更改列数据类型的权限。但是，我必须将decimal类型的列值的精度从(5,2)更改为(5,1)。我已经在该表中有20个条目，我必须将其精度更改为1个小数位。我是否必须单独更新每一行，或者是否有办法一次更改所有值？
浏览 2提问于2018-12-20得票数 0
1回答
我有一个函数，在这个函数中，我尝试使用预先确定的列遍历给定的tibble。
代码如下：
secenekler <- c("Marka ve üretici firma", "Son kullanma tarihi", "Enerji ve besin ögeleri", "Üretim tarihi", "Sağlık bilgisi", "Diğer", "Ürünün içeriği")
##
categorizer <- function(tibble) {
f
浏览 8提问于2022-04-26得票数 0
我正在尝试创建一个自定义函数，可以在openxlsx的Writedata中创建一个“标题”列。
这就是功能。选项卡是数据，标题是引号，工作簿是wb，工作表名是想要的单张名称：
WriteToExcel <- function(tab,
headline,
workbook=wb,
sheetName){
# title: I want this single row to have the input of the argument
浏览 2提问于2022-06-17得票数 0
我的R脚本中有一个像这样的二进制表格： >class(forCount)
[1] "table"
>forCount
Gene
Filename CTX-M-27 IMI-1 IMP-39 IMP-4 KPC-2 NDM-1
batch0_01032019_ENT1 0 1 0 0 0 1
batch0_01032019_ENT2 0 0 0 0 1 1
batch0_01032019_ENT3 0 0 0 0
浏览 19提问于2020-04-07得票数 2
回答已采纳
我有一个tibble，说：
> library(tibble)
> as_tibble(iris)
# A tibble: 150 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
<dbl> <dbl> <dbl> <dbl> <fctr>
1 5.1 3.5 1.4 0.2 setosa
2
浏览 8提问于2018-01-16得票数 2
回答已采纳
1回答
tibbles中的行替换
、、、
考虑下面的一小段R代码：
A = tibble(animal = 'cat',color = 'black',weight = 1000)
A[1,] <- gsub("a","e",A[1,])
我想要的是一个带有'cet'，'bleck‘和1000条目的单行tibble，但是试图在tibble 3.0.3加载的情况下运行它会给出一个错误：
Error: Assigned data `gsub("a", "e", A[1, ])` must be compati
浏览 0提问于2020-09-08得票数 0
对这个话题非常陌生。我在使用tidytext包中的unnest_tokens函数时遇到了问题。我有一些以.txt格式存储的文本，我想要分析它们。 例如，将以下句子放入txt文件中，然后将其读入R： Emily Dickinson wrote some lovely text in her time.
text <- c("Because I could not stop for Death -",
"He kindly stopped for me -",
"The Carriage held but j
浏览 19提问于2020-04-14得票数 0
回答已采纳
希望在"ROE“列中用"NaN”替换其中百分比大于100的值。正在读取csv文件。以下是代码，不确定如何在'missing‘数据帧中赋值，请帮助
**数据集中的ROE列包含"25.00%“、"130.00%”、"50.00%“等值。因此，在比较时，首先需要通过删除最后一个字符来转换浮点数中的值。
missing = pd.read_csv(local_path + "/Week4/Datasets_Week4/roemissing.csv")
print(missing)
for x in missing["ROE
浏览 5提问于2018-02-18得票数 2
我有多个xts类的数据帧，收集在一个列表中，我希望使用bind_rows将其组合成一个数据框架，但保留行名。
library(xts)
library(dplyr)
data <- data.frame(a = c(1, 2, 3),
b = c(4, 5, 6))
dates <- as.Date(c("2019-01-31", "2019-02-28", "2019-03-31"))
假设有三个以下的xts数据帧是起点：
ts_data_1 <- as.xts(data[1, ],
浏览 0提问于2019-05-10得票数 1
回答已采纳
我有一个数据帧，其中的列是numneri
asd <- data.frame(`2021`=rnorm(3), `2`=head(letters,3), check.names=FALSE)
但是，当我将列名作为变量引用时，它返回错误
x = 2021
asd[x]
Error in `[.data.frame`(asd, x) : undefined columns selected
预期输出
x = 2021
asd[x]
2021
1 1.5570860
2 -0.8807877
3 -0.7627930
浏览 7提问于2021-11-09得票数 2
2回答
我的数据框架如下所示：
df <- data.frame('2' = -.05, '3' = -.01, '5' = .2)
我想插入另一列名为'4‘，它的值为0，以及插入到它的正确位置(第三列)。最终结果应该如下所示：
df <- data.frame('2' = -.05, '3' = -.01, '4' = 0, '5' = .2)
我也需要这工作，在任何数据框架，缺少的列被归档。例如：
df <- data.frame('2' = -
浏览 4提问于2017-07-26得票数 1
回答已采纳
我想知道是否可以在as_tibble函数中提供列名。我知道我可以使用rename函数来更改列名，但是我想保存我编写的行数。假设我希望我的列名是a1，a2，a3。
> library(purrr)
> library(tidyverse)
> 1:3 %>%
+ map(~ rnorm(104, .x)) %>%
+ map_dfc(~as_tibble(.x))
# A tibble: 104 x 3
value value1 value2
<dbl> <dbl>
浏览 0提问于2018-04-22得票数 3
1回答
我希望为每个组找到一个列的min和max值：
mtcars %>%
group_by(mtcars$cyl) %>%
summarize(
min_mpg = min(mtcars$mpg),
max_mpg = max(mtcars$mpg)
)
# # A tibble: 3 x 3
# `mtcars$cyl` min_mpg max_mpg
# <dbl> <dbl> <dbl>
# 1 4 10.4 33.9
# 2 6
浏览 6提问于2021-06-02得票数 2
回答已采纳
我有一个数据集，我正在用它做k折叠交叉验证。
在每个折页中，我都将数据分割成一个火车和测试数据集。
对于dataset X上的培训，我运行以下代码：
cv_glmnet <- caret::train(x = as.data.frame(X[curtrainfoldi, ]), y = y[curtrainfoldi, ],
method = "glmnet",
preProcess = NULL,
trControl = trainC
浏览 1提问于2021-11-13得票数 0
回答已采纳
1回答
我很难转动成对的柱子。我理解有names_pattern的论点，我不知道如何使这个工作。
我的数据如下：
structure(list(Q8_1_avg = 4.72562264837839, Q8_1_avg_se = 0.0595342202500642,
Q8_1_unweighted = 4.90473815461347, Q8_2_avg = 4.65508494735021,
Q8_2_avg_se = 0.0541589332376175, Q8_2_unweighted = 4.6498753117207,
浏览 3提问于2021-10-07得票数 2
回答已采纳
2回答
我有一个数据集，其中包括一个变量，其中一些情况是嵌套向量，即有些情况只是一个字符串，而另一些情况是长度为2的向量。我想做一个新的变量，它只包含嵌套向量的第二个元素，如果存在嵌套向量，则为NA。
下面是一个可重复的例子：
df <- list(id = 1:5,
answer = list("Agree",
c("Agree", "Strongly Agree"),
c("Dis
浏览 8提问于2022-08-25得票数 1
回答已采纳
1回答
有两个长嵌套列表具有相同的元素名称。我想为每个元素找到两个列表之间的公共子元素的数量。所需的输出将是一个有两个列的dataframe，其中第一列是列表的名称(ENSGs)，第二列是两个列表之间共有的子元素数(chrXX_XXXX_X_X_b38)。
list1：
list1 <- list(ENSG00000040608 = structure(list(chr22_20230714_G_A_b38 = 0.0000953181301665087,
chr22_20230737_G_A_b38 = -0.001240367045
浏览 1提问于2022-09-28得票数 1
回答已采纳
我正在尝试从一个更大的数据框架中使用R创建一个新的数据框架。这是我的大型数据框架的一个简短版本：
df <- data.frame(time = c(0,1,5,10,12,13,20,22,25,30,32,35,39),
t_0_1 = c(20,20,20,120,300,350,400,600,700,100,20,20,20),
t_0_2 = c(20,20,20,20,120,300,350,400,600,700,100,20,20),
t_2_1 = c(20,20,20,20,20,120
浏览 9提问于2022-08-11得票数 1
回答已采纳
我在学习R并在这里寻找最佳实践..。
主要问题
给出了tibble my_tibble
# A tibble: 5 x 3
chkA chkB chkC
<chr> <chr> <chr>
1 NA NA NA
2 x NA NA
3 NA x NA
4 x NA NA
5 NA NA x
我想要创建一个变量/列checked，它指定chkA、chkB或chkC中的哪个变量等于"x"。对于每一个观察/行，只有零或这三个变量中的一个可
浏览 5提问于2020-09-13得票数 2
回答已采纳
试图使用readtext library (随quanteda library一起提供)在R中解析7000多个txt文件，我收到了以下警告。
警告消息: In (函数(.，deparse.level = 1)：结果的列数不是向量长度的倍数(arg 2030)
如何找出哪个txt文件导致警告？
使用详细选项不显示是否发生警告。对于您的信息，尝试解析两个文件时，我会得到以下信息(如果一次只解析一个文档，则不会显示警告)。
阅读文本从/Users/OS/surfdrive/Competenties/Data-step-1/BinnenlandsBestuur/1982/9-12/Offic
浏览 2提问于2017-08-02得票数 1
回答已采纳
我有下面的数据：
dummy<-structure(list(Name = c("A", "B", "C", "A", "B", "C"), `#BISB` = c(2,
6, 4, 0, 4, 6), `#BISC` = c(2, 6, 4, 0, 4, 6), `#BISD` = c(2,
6, 4, 0, 4, 6), `#BISE` = c(2, 6, 4, 0, 4, 6), `#BISF` = c(2,
6, 4, 0, 4, 6), `#BISG` = c(2, 6, 4,
浏览 2提问于2021-12-09得票数 1
回答已采纳
我需要修改data.table中特定行的某些列。我一直收到一个错误，“未使用的参数(with=F)”。有没有人知道如何快速处理这个问题？下面是同时使用data.frames和data.table的示例。
谢谢。
test.df <- data.frame(a=rnorm(100, 0, 1), b=rnorm(100, 0, 1), c=rnorm(100,0,1))
test.dt <- as.data.table(test.df)
test.df[test.df$a<test.df$b,c(1,2)] <- 10* test.df[t
浏览 0提问于2014-05-20得票数 4
1回答
我想要重命名几列并设置inplace = False，这样我就可以查看结果了。为什么设置inplace = True将导致无(我已经刷新运行时以运行inplace=True)？
ckd_renamed = ckd_data.rename(columns = {"id": "Id", "age": "Age", "bp": "blood_pressure"}, inplace=True)
我使用的数据集是"“
浏览 13提问于2021-09-28得票数 0
2回答
当使用具有不同数据类型和名称的几个列时，如何正确地使用select_if从dplyr包中选择只包含文本的列？
例如，像这个这样的tibble tib：
+----------+------------+------------+-------+
| PersonID | EmployeeID | Date | Value |
+----------+------------+------------+-------+
| 123 | abc | 10/12/2020 | 33.4 |
| 345 | fff | 10/13/2020
浏览 0提问于2020-11-15得票数 1
回答已采纳
下面我只是简单地总结一下Direct cost，ICU days，Length of stay (Hours)3列在AWD_wide data.frame中的平均值。
我不知道为什么他们都说他们不认识这些专栏？
注意：请假定我不能在read.csv()中使用check.names = FALSE。
library(tidyverse)
AWD <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/aw.csv')
AWD_long <- AWD %>%
gather(key
浏览 1提问于2020-11-09得票数 1
回答已采纳
1回答
这在R标记中常见的代码块中起作用：
m1_aov <- anova(m1)
m1_aov$`Sum Sq`[2] %>% round(3)
不幸的是，在内联代码中使用后者会破坏knitr解析器。
`r m1_aov$`Sum Sq`[2] %>% round(3)`
事实上，它也打破了堆栈溢出。
我看了，但无法推断出我的问题的有效解决方案。有什么暗示吗？
浏览 4提问于2022-05-18得票数 2
1回答
将操作写入函数并进行迭代
、、、
我有这个输入(样本)：
input <- tibble(
minimum_term = c("None", "6 Months", "12 Months"),
maximum_term = c("None", "18 Months", "24 Months"),
other_cols
)
我想谈一谈这个输出：
desired_output <- tibbe(
minimum_term = c(0, 6, 12),
maximum_term = c(0, 18, 24)
浏览 0提问于2021-08-10得票数 1
回答已采纳
umap_results$layout
# [,1] [,2]
#[1,] -1.041482307 1.389173771
#[2,] 0.686965089 2.671049064
#[3,] -2.170222731 -0.347427768
#[4,] -2.028087128 2.476267251
#[5,] -1.070957496 -0.354622580
#[6,] -1.174079325 -1.174164172
#[7,] -2.777973062 2.372981619
#[8,] -1.
浏览 30提问于2020-12-12得票数 1
回答已采纳
我有一个dataframe，并希望按字母顺序排列列，但只在名称中的某个点上排序，那么每个变量的顺序必须根据后缀进行更改，这是如何实现的？
例如：
a_start <- sample(5)
a_end <- sample(5)
b_start <- sample(5)
b_end <- sample(5)
df <- data.frame(a_end, a_start, b_end, b_start)
df
a_end a_start b_end b_start
1 1 4 1 5
2 2 2
浏览 1提问于2022-03-15得票数 0
样本数据：
ï..Employee_Name PositionID Position State Zip
1: Adinolfi, Wilson K 19 Production Technician I MA 1960
2: Ait Sidi, Karthikeyan 27 Sr. DBA MA 2148
3: Akinkuolie, Sarah 20 Production Technician II MA 181
浏览 5提问于2021-05-04得票数 0
回答已采纳
我有一个只有一行的数据。成对的列在一起，其中一个保持名称，另一个有值。因此，我想从1行格式中提取name & column组合到堆叠格式中，其中一个列表示名称，另一个列表示值。我正在尝试pivot_longer，但不知怎么做不成。
数据
library(tidyverse)
df <-
tribble(~ var_1, ~ var_1_value, ~ var_2, ~ var_2_value, ~ var_3, ~ var_3_value,
"height", 200, "weight", 400, "length
浏览 3提问于2020-12-08得票数 0
回答已采纳
我想知道如何操作存储在tibble中的包含data.frames的列表。 具体地说，我想从data.frame中提取存储在tibble list列中的两列。 我想从这个tibble c开始 random_data<-list(a=letters[1:10],b=LETTERS[1:10])
x<-as.data.frame(random_data, stringsAsFactors=FALSE)
y<-list()
y[[1]]<-x[1,,drop=FALSE]
y[[3]]<-x[2,,drop=FALSE]
c<-tibble(z=c(1,2,3),
浏览 48提问于2017-07-08得票数 10
回答已采纳
1回答
我试图使用kable和kableextra创建一个表，该表具有不同的分组标题，但子标题中的列名相同。
例如，如果您查看的“分组列/标题”部分(第14页)，那么它是分组的，但是子标题的名称是不同的：
library(knitr)
library(kableExtra)
dt <- mtcars[1:5, 1:6]
kable(dt, "latex", booktabs = T) %>%
kable_styling() %>%
add_header_above(c(" " = 1, "Group 1" = 2, "Grou
浏览 0提问于2019-10-25得票数 3
回答已采纳
我有以下嵌套列表：
l <- list(`1` = c(Fn1 = 85.3820037423659, Sema3c = 0.0362596376899117,
App = 8.08423415658745), `3` = c(Fn1 = 11.0051859200698, Sema3c = 0,
App = 44.0000000000306), `4` = c(Fn1 = 3.4594316186373, Sema3c = 0,
App = 6.54280428377643))
看起来是这样的：
$`1`
Fn1 Sema3c App
浏览 3提问于2019-12-18得票数 0
回答已采纳
2回答
嗨，我有两个数据格式，基于id匹配，我想用表b的值替换表a的值。
样本数据集在这里：
a = tibble(id = c(1, 2,3),
type = c("a", "x", "y"))
b= tibble(id = c(1,3),
type =c("d", "n"))
我期望输出如下所示：
c= tibble(id = c(1,2,3),
type = c("d", "x", "n"))
浏览 19提问于2022-10-14得票数 1
我有以下数据框：
df <- tibble(x = 1:3, y = 3:1, z = 4:6, a = 6:4, b = 7:9)
现在，我需要使用以下命令从第二行、第三列到第五列提取值：
newrow <- df[2,3:5]
现在，我想在第二行之后插入一个新行。问题是，我需要新行从第2列开始。如果我使用以下代码，该行将被添加到与我从中提取它的列位置相同的位置：
df%>% add_row(newrow, .before = 3)
希望任何人能在这方面提供帮助，任何帮助都是非常感谢的。
浏览 1提问于2020-09-11得票数 1
2回答
我有一个dataframe，我想重命名几个具有类似名称约定的列(例如，以“X”开头)和/或列位置(例如，4:7)。这些列的新名称存储在向量中。如何在dplyr链中重命名这些列？
# data
df <- tibble(RID = 1,Var1 = "A", Var2 = "B",old_name1 =4, old_name2 = 8, old_name3=20)
new_names <- c("new_name1","new_name2","new_name3")
#psuedo code
df %&
浏览 1提问于2018-03-23得票数 4
回答已采纳
2回答
我目前正在尝试应用汇总函数，以便从大型数据集中分离出相关的观察结果。这里给出了一个简单的可重现的例子： df <- data.frame(c(1,1,1,2,2,2,3,3,3), as.logical(c(TRUE,FALSE,TRUE,TRUE,TRUE,TRUE,FALSE,TRUE,FALSE)),
as.numeric(c(0,5,0,0,0,0,7,0,7)))
colnames(df) <- c("ID", "Status", "Price")
ID Status Price
1
浏览 19提问于2019-02-22得票数 1
回答已采纳
我有一个有几个列表列的Ti球，我只想解开其中的一个。
示例
library(dplyr)
library(purrr)
library(tidyr)
library(stringr)
iris %>%
group_by(Species) %>%
nest() %>%
mutate(sum_data = map(data,
~.x %>%
summarize_all(mean) %>%
ren
浏览 2提问于2018-01-31得票数 6
回答已采纳
1回答
我有一个带有网格开放度量的数据集，以及用来获取这些度量的工具。我想在数据上完成一个单向的程序。这是我的密码：
df<-structure(list(MeasurementTool = c("Wedge", "Wedge", "Wedge",
"Wedge", "Wedge", "Wedge", "Wedge", "Wedge", "Wedge", "Wedge"
浏览 0提问于2021-10-31得票数 0
回答已采纳
目的 我想带上……(三个点)参数用于对dplyr中的变量进行分组，并使用...作为函数中新数据框的名称。问题部分包括关于我想要实现的目标的详细信息。 样本数据 library(tidyverse)
library(tibble)
library(data.table)
rename <- dplyr::rename
select <- dplyr::select
set.seed(10002)
id <- sample(1:20, 1000, replace=T)
set.seed(10003)
group1 <- sam
浏览 21提问于2021-07-17得票数 1
回答已采纳
2回答
考虑这个简单的例子
mydf <- data_frame(regular_col = c(1,2),
normal_col = c('a','b'),
weird_col = list(list('hakuna', 'matata'),
list('squash', 'banana')))
> mydf
# A tibble: 2 x 3
r
浏览 21提问于2018-08-13得票数 9
回答已采纳
1回答
我有一个tibble和一个列表列的tibbles (与兼容的列)。我想在分组后再做rbind。下面是一个简化的示例，我想对tpm列进行分组：
library(tidyverse)
df_ex <- structure(list(
tpm = c(3, 3, 5, 5),
strand = c("negative", "positive", "negative", "positive"),
sites = list(
structure(list(chr = c("1"
浏览 1提问于2022-06-08得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
