我有一个名为“newprice”的数据框（见下文），我想在R中改变程序中的列名。
> newprice
Chang. Chang. Chang.
1 100 36 136
2 120 -33 87
3 150 14 164
事实上，这就是我在做的事情：
names(newprice)[1]<-paste("premium")
names(newprice)[2]<-paste("change")
names(newprice)[3]<-paste("newprice")
我没有把它放在一个循环中，因为我希望每个列的名称与你看到的不同。
当我将程序粘贴到R控制台时，这是它给我的输出：
> names(newprice)[1]<-paste(“premium”)
Error: unexpected input in "names(newprice)[1]<-paste(“"
> names(newprice)[2]<-paste(“change”)
Error: unexpected input in "names(newprice)[2]<-paste(“"
> names(newprice)[3]<-paste(“newpremium”)
Error: unexpected input in "names(newprice)[3]<-paste(“"
我同样尝试使用c()函数 - 例如c("premium")，而不是paste()函数，但无济于事。
有人可以帮我解决这个问题吗？
答案 0 :(得分：539)
使用colnames()功能：
R> X <- data.frame(bad=1:3, worse=rnorm(3))
R> X
bad worse
1 1 -2.440467
2 2 1.320113
3 3 -0.306639
R> colnames(X) <- c("good", "better")
R> X
good better
1 1 -2.440467
2 2 1.320113
3 3 -0.306639
你也可以分组：
R> colnames(X)[2] <- "superduper"
答案 1 :(得分：149)
我用这个：
colnames(dataframe)[which(names(dataframe) == "columnName")] <- "newColumnName"
答案 2 :(得分：74)
错误是由“智能引号”（或称为它们）引起的。这里的教训是，“不要在'编辑器'中编写代码，将引号转换为智能引号”。
names(newprice)[1]<-paste(“premium”) # error
names(newprice)[1]<-paste("premium") # works
此外，您不需要paste("premium")（对paste的调用是多余的）并且最好在<-周围添加空格以避免混淆（例如{{1} }）。
答案 3 :(得分：41)
您是否尝试过：
names(newprice)[1]<-"premium"
答案 4 :(得分：33)
新建议的方法是使用setNames功能。看到
?setNames。由于这会创建data.frame的新副本，因此如果您愿意，请务必将结果分配给原始data.frame。
data_frame <- setNames(data_frame, c("premium","change","newprice"))
如果您以前面提到的答案建议的某些方式使用colnames，则较新版本的R会向您发出警告。
如果这是data.table，您可以使用data.table函数setnames，它可以通过引用修改特定列名或单个列名 ：
setnames(data_table, "old-name", "new-name")
答案 5 :(得分：30)
我遇到了同样的问题，这段代码为我解决了。
names(data)[names(data) == "oldVariableName"] <- "newVariableName"
简而言之，此代码执行以下操作：
names(data)查看数据框中的所有名称（data）
[names(data) == oldVariableName]提取您要重命名的变量名称（oldVariableName），<- "newVariableName"分配新的变量名称。
答案 6 :(得分：15)
与其他人类似：
cols <- c("premium","change","newprice")
colnames(dataframe) <- cols
非常简单易于修改。
答案 7 :(得分：10)
如果只知道旧列名称，则需要一次重命名除多列之外的所有列，可以使用colnames函数和%in%运算符。例如：
df = data.frame(bad=1:3, worse=rnorm(3), worst=LETTERS[1:3])
bad worse worst
1 1 -0.77915455 A
2 2 0.06717385 B
3 3 -0.02827242 C
现在你想把“坏”和“最坏”改为“好”和“最好”。你可以使用
colnames(df)[which(colnames(df) %in% c("bad","worst") )] <- c("good","best")
这导致
good worse best
1 1 -0.6010363 A
2 2 0.7336155 B
3 3 0.9435469 C
答案 8 :(得分：8)
尝试：
names(newprice) <- c("premium", "change", "newprice")
答案 9 :(得分：7)
您可以通过以下方式进行编辑：
newprice <- edit(newprice)
并手动更改列名。
答案 10 :(得分：5)
只是纠正并略微扩展Scott Wilson的回答
您也可以在data.frames上使用data.table的setnames函数。
不要指望操作加速，但是你可以期望setnames更有效地消耗内存，因为它通过引用更新列名。可以使用address功能跟踪此功能，如下所示。
library(data.table)
set.seed(123)
n = 1e8
df = data.frame(bad=sample(1:3, n, TRUE), worse=rnorm(n))
address(df)
#[1] "0x208f9f00"
colnames(df) <- c("good", "better")
address(df)
#[1] "0x208fa1d8"
rm(df)
dt = data.table(bad=sample(1:3, n, TRUE), worse=rnorm(n))
address(dt)
#[1] "0x535c830"
setnames(dt, c("good", "better"))
address(dt)
#[1] "0x535c830"
rm(dt)
因此，如果你达到内存限制，你可以考虑使用这个。
答案 11 :(得分：5)
我的列名如下
colnames(t)
[1] "Class" "Sex" "Age" "Survived" "Freq"
我想更改Class和Sex的列名
colnames(t)=c("STD","Gender","AGE","SURVIVED","FREQ")
答案 12 :(得分：3)
dplyr::rename()和dplyr::select()有两个选项：
library(dplyr)
mtcars %>%
tibble::rownames_to_column('car_model') %>% # convert rowname to a column. tibble must be installed.
select(car_model, est_mpg = mpg, horse_power = hp, everything()) %>% # rename specific columns and reorder
rename(weight = wt, cylinders = cyl) %>% # another option for renaming specific columns that keeps everything by default
head(2)
car_model est_mpg horse_power cylinders disp drat weight qsec vs am gear carb
1 Mazda RX4 21 110 6 160 3.9 2.620 16.46 0 1 4 4
2 Mazda RX4 Wag 21 110 6 160 3.9 2.875 17.02 0 1 4 4
dplyr::rename()也有三种范围的变体：dplyr::rename_all()用于所有列名称，dplyr::rename_if()用于有条件地定位列名称，而dplyr::rename_at()用于选择命名的列。下面的示例用下划线替换空格和句点，并将所有内容都转换为小写：
iris %>%
rename_all(~gsub("\\s+|\\.", "_", .)) %>%
rename_all(tolower) %>%
head(2)
sepal_length sepal_width petal_length petal_width species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
dplyr::select_all()也可以类似的方式使用：
iris %>%
select_all(~gsub("\\s+|\\.", "_", .)) %>%
select_all(tolower) %>%
head(2)
sepal_length sepal_width petal_length petal_width species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
答案 13 :(得分：2)
这可能会有所帮助：
rename.columns=function(df,changelist){
#renames columns of a dataframe
for(i in 1:length(names(df))){
if(length(changelist[[names(df)[i]]])>0){
names(df)[i]= changelist[[names(df)[i]]]
}
}
df
}
# Specify new dataframe
df=rename.columns(df,list(old.column='new.column.name'))
答案 14 :(得分：2)
使用此功能通过列名功能更改列名。
colnames(newprice)[1] = "premium"
colnames(newprice)[2] = "change"
colnames(newprice)[3] = "newprice"
答案 15 :(得分：1)
如果我们有2个数据帧，则以下工作
DF1<-data.frame('a', 'b')
DF2<-data.frame('c','d')
我们按如下方式更改DF1的名称
colnames(DF1)<- colnames(DF2)