问题描述
我想按列名选择连续列的子集,并用字符向量重命名。
示例数据:
data<-data.frame(foo=1:4,bar=10:13,zoo_1=letters[1:4],zoo_2=letters[5:8])
foo bar zoo_1 zoo_2
1 1 10 a e
2 2 11 b f
3 3 12 c g
4 4 13 d h
要替换的列名:'bar'、'zoo_1'、'zoo_2'
新名称:
new_names<-c('a','b','c')
我想使用某种 : 运算符来选择,例如,名称栏为 zoo_2 的列
我发现了一些奇怪的解决方案:
#1
names(data)[which(names(df)=='bar'):which(names(df)=='zoo_2')]<-new_names
和
#2
my_rename<-function(x,y,z){
names(x)[match(y,names(df))]<-z
names(x)
}
names(data)<-my_rename(data,c('bar','zoo_1','zoo_2'),c(new_names)
解决方案 #1 允许我以 'bar':'zoo_2' 样式选择名称,但它非常冗长,可能会让其他人感到困惑。我最感兴趣的是这个 (which:which) hack 的替代品。
有什么想法吗?
解决方法
我们可以使用rename_at
library(dplyr)
data <- data %>%
rename_at(vars(bar:zoo_2),~ new_names)
names(data)
#[1] "foo" "a" "b" "c"
但是,在 dplyr 1.05 中,rename_at
已被 rename_with
取代:
data2<-data %>%
rename_with(.cols=bar:zoo_2,~ new_names)
> identical(data,data2)
[1] TRUE