colnames(trSamp)[2] <- "newname2"

尝试设置第二列的名称。对象只有一列，因此该命令会抛出错误。这就足够了:

colnames(trSamp) <- "newname2"

OP的问题已经得到了很好的回答。然而，这里有一个在某些情况下可能有用的技巧:部分匹配列名，不管它在数据框架中的位置:

名称部分匹配:

d <- data.frame(name1 = NA, Reported.Cases..WHO..2011. = NA, name3 = NA)
##   name1 Reported.Cases..WHO..2011. name3
## 1    NA                         NA    NA
names(d)[grepl("Reported", names(d))] <- "name2"
##   name1 name2 name3
## 1    NA    NA    NA

另一个例子:标点符号出现时的部分匹配:

d <- data.frame(name1 = NA, Reported.Cases..WHO..2011. = NA, name3 = NA)
##   name1 Reported.Cases..WHO..2011. name3
## 1    NA                         NA    NA
names(d)[grepl("[[:punct:]]", names(d))] <- "name2"
##   name1 name2 name3
## 1    NA    NA    NA

这些都是我今天要处理的例子，我认为可能值得分享。

这也可以使用Hadley的plyr包和rename函数来完成。

library(plyr) 
df <- data.frame(foo=rnorm(1000)) 
df <- rename(df,c('foo'='samples'))

您可以根据名称重命名(不知道位置)，并一次执行多个重命名。例如，在进行合并之后，你可能会得到:

  letterid id.x id.y
1       70    2    1
2      116    6    5
3      116    6    4
4      116    6    3
5      766   14    9
6      766   14   13

然后你可以在一个步骤重命名使用:

letters <- rename(letters,c("id.x" = "source", "id.y" = "target"))

  letterid source target
1       70      2      1
2      116      6      5
3      116      6      4
4      116      6      3
5      766     14      9
6      766     14     13

可以使用rename_with使用函数(例如stringr函数)重命名列。

考虑以下数据df_1:

df_1 <- data.frame(
  x = replicate(n = 3, expr = rnorm(n = 3, mean = 10, sd = 1)), 
  y = sample(x = 1:2, size = 10, replace = TRUE)
)

names(df_1)

#[1] "x.1" "x.2" "x.3" "y" 

使用dplyr::everything()重命名所有变量:

library(tidyverse)

df_1 %>% 
  rename_with(.data = ., .cols = everything(.), 
              .fn = str_replace, pattern = '.*', 
              replacement = str_c('var', seq_along(.), sep = '_')) %>% 
  names()

#[1] "var_1" "var_2" "var_3" "var_4"

用一些dplyr动词(starts_with, ends_with, contains, matches，…)重命名粒子名。

以。(x变量):

df_1 %>% 
  rename_with(.data = ., .cols = contains('.'), 
              .fn = str_replace, pattern = '.*', 
              replacement = str_c('var', seq_along(.), sep = '_')) %>% 
  names()

#[1] "var_1" "var_2" "var_3" "y"

用类test的许多函数重命名类，比如is.integer, is.integer。数字,is.factor……

以is.integer (y)为例:

df_1 %>% 
  rename_with(.data = ., .cols = is.integer, 
              .fn = str_replace, pattern = '.*', 
              replacement = str_c('var', seq_along(.), sep = '_')) %>% 
  names()

#[1] "x.1"   "x.2"   "x.3"   "var_1"

警告:

警告信息: 1:在stri_replace_first_regex(string, pattern, fix_replacement(replacement)中，: 较长的对象长度不是较短的对象长度的倍数 2: In names[cols] <- .fn(names[cols]，…) 要替换的项目数量不是替换长度的倍数

这是不相关的，因为这只是seq_along(.)与replace函数的不一致。

Try:

colnames(x)[2] <- 'newname2'

如果你知道你的数据帧只有一列，你可以使用: names(trSamp) <- "newname2"