重命名R中的一个命名列

Question

我想更新数据帧的一列,使用其原始名称引用它,这可能吗？比如说我有表'数据'

a b c  
1 2 2  
3 2 3  
4 1 2

我想将列b的名称更新为'd'.我知道我可以用

colnames(data)[2] <- 'd'  

但是我可以通过专门引用b来进行更改,例如

colnames(data)['b'] <- 'd'  

这样,如果数据帧的列顺序发生更改,则仍会更新正确的列名.

提前致谢

Answer 1

正是这个功能setnames内置了一个功能data.table.

setnames(DT, "b", "d")

它通过引用更改名称,完全没有副本.使用names(data)<-或names(data)[i]<-类似的任何其他方法将复制整个对象,通常是几次.即使您正在做的只是更改列名称.

DT类型必须data.table为setnames工作,虽然.所以你需要切换到data.table或转换as.data.table使用它来使用它.

这是摘录?setnames.目的是您example(setnames)在提示符下运行,然后注释与您看到的报告副本相关tracemem.

DF = data.frame(a=1:2,b=3:4)       # base data.frame to demo copies
tracemem(DF)
colnames(DF)[1] <- "A"             # 4 copies of entire object
names(DF)[1] <- "A"                # 3 copies of entire object
names(DF) <- c("A", "b")           # 2 copies of entire object
`names<-`(DF,c("A","b"))           # 1 copy of entire object
x=`names<-`(DF,c("A","b"))         # still 1 copy (so not print method)

# What if DF is large, say 10GB in RAM. Copy 10GB just to change a column name?

DT = data.table(a=1:2,b=3:4,c=5:6)
tracemem(DT)
setnames(DT,"b","B")               # by name; no match() needed. No copy.
setnames(DT,3,"C")                 # by position. No copy.
setnames(DT,2:3,c("D","E"))        # multiple. No copy.
setnames(DT,c("a","E"),c("A","F")) # multiple by name. No copy.
setnames(DT,c("X","Y","Z"))        # replace all. No copy.

Answer 2

这似乎是一个黑客攻击,但首先想到的是使用grepl()足够详细的搜索字符串来获取你想要的列.我相信有更好的选择:

dat <- data.frame(a = 1:3, b = 1:3, c = 1:3)
colnames(dat)[grepl("b", colnames(dat))] <- "foo"
dat
#------
  a foo c
1 1   1 1
2 2   2 2
3 3   3 3

正如乔兰在下面指出的那样,我使事情过于复杂......根本不需要正则表达式.这样也可以节省一些字符.

colnames(dat)[colnames(dat) == "foo"] <- "bar"
#------
  a bar c
1 1   1 1
2 2   2 2
3 3   3 3

Answer 3

截至2014年10月,现在可以在dplyr中轻松完成包中:

rename(data, d = b)