仅修改某些列的名称

如何解决仅修改某些列的名称

我有一个类似原始的数据集。

id <- c(1,1,2,3,4,4)
period <- c(1,3)
iso_1 <- c(1,1)
iso_2 <- c(1,1)
iso_3 <- c(1,1)

original <- data.frame(id,period,iso_1,iso_2,iso_3)

我喜欢修改具有模式“iso_name”的列名并添加“_exp”，因此它看起来像“iso_name_exp”。 新数据集如下所示：

iso_1_exp <- c(1,1)
iso_2_exp <- c(1,1)
iso_3_exp <- c(1,1)
new <- data.frame(id,iso_1_exp,iso_2_exp,iso_3_exp)

我确实尝试了以下行：

n <- ncol(original)
colnames(original)[,3:n] <- paste0(colnames(original)[,3:n],"_exp")

然而它并没有成功。

有什么想法吗？ 谢谢

解决方法

使用dplyr：

library(dplyr)
original %>% rename_with(~paste0(.,'_exp'),starts_with('iso'))

#  id period iso_1_exp iso_2_exp iso_3_exp
#1  1      1         1         1         1
#2  1      1         0         1         0
#3  1      2         0         1         1
#4  2      2         0         0         0
#5  3      1         1         0         0
#6  3      2         1         1         1
#7  3      3         0         0         0
#8  4      1         1         1         0
#9  4      3         1         1         1

基础 R :

cols <- grep('^iso',names(original))
names(original)[cols] <- paste0(names(original)[cols],'_exp')

,

在基础 R 中，您可以通过索引进行修改：

colnames(original)[3:5] <-  paste(colnames(original)[3:5],"exp",sep = "_")

或者在多列到最后（n）列的情况下，您可以使用ncol()：

colnames(original)[3:ncol(original)] <-  paste(colnames(original)[3:ncol(original)],sep = "_")
original

输出：

 id period iso_1_exp iso_2_exp iso_3_exp
1  1      1         1         1         1
2  1      1         0         1         0
3  1      2         0         1         1
4  2      2         0         0         0
5  3      1         1         0         0
6  3      2         1         1         1
7  3      3         0         0         0
8  4      1         1         1         0
9  4      3         1         1         1

,

我们可以使用

library(stringr)
library(dplyr)
original %>% 
  rename_with(~str_c(.,starts_with('iso'))