R 更改多个列名，粘贴在列名的开头/结尾

我有一个非常简单的问题，但我有点挣扎，因为我不擅长字符串操作， 我有一个类似这样的数据集

df <- data.frame(id= c(1,1,1,2,2,2,3,3,3), time=c(1,2,3,1,2,3,1,2,3),y = rnorm(9), x1 = rnorm(9), x2 = c(0,0,0,0,1,0,1,1,1),c2 = rnorm(9))
df
#    id  time    y         x1      x2     c2
# 1  1    1  0.2849573 -2.0675484  0  -0.07262881
# 2  1    2  0.7790181 -0.7575962  0  -0.58792408
# 3  1    3  1.5612293  0.6249859  0   1.19410761
# 4  2    1  0.5001897  3.4156129  0  -0.03577452
# 5  2    2  0.7155184 -0.5672982  1  -1.22208675
# 6  2    3  0.5086272 -0.7848763  0  -0.41084467
# 7  3    1 -0.4707959  0.1159467  1   0.77233201
# 8  3    2  0.8641184  0.2498162  1   0.49336869
# 9  3    3  1.3348043 -0.6803672  1  -0.33189217

我可以一个接一个地更改列名，但我希望找到一个单行命令。 我尝试过这个，但它只能在开始时粘贴

dp_o<-df %>% rename_at(3:5, ~paste("_o",.))

可能这只是上面代码的一个变体，但鉴于我不太了解字符串操作，我正在努力理解哪种变体

---

提前感谢

如果您不介意使用data.table软件包，那么以下几点就行了

library(data.table)

setDT(df)
old <- colnames(df)[c(which(colnames(df)=="x1"):length(colnames(df)))]
new <- paste(old, "0", sep="_")
setnames(df, old, new)
df[]
##    id time          y       x1_0 x2_0        c2_0
##  1  1    1 -1.5612344  0.9711583    0 -1.08198269
##  2  1    2  0.8090729 -0.9474716    0 -0.21020803
##  3  1    3  0.8070253  0.9765167    0  2.13507943
##  4  2    1  0.7446732 -0.2459540    0  0.64870743
##  5  2    2 -1.1853776 -0.3828339    1 -0.09298909
##  6  2    3  0.5057534  0.5822639    0  0.79730587
##  7  3    1 -0.3655794 -0.1628970    1 -0.57866153
##  8  3    2 -1.3465086  1.1107107    1  1.11290979
##  9  3    3 -0.8271092 -0.4105378    1  0.88522610

---

如果您不介意使用data.table包，那么下面的方法就可以了

library(data.table)

setDT(df)
old <- colnames(df)[c(which(colnames(df)=="x1"):length(colnames(df)))]
new <- paste(old, "0", sep="_")
setnames(df, old, new)
df[]
##    id time          y       x1_0 x2_0        c2_0
##  1  1    1 -1.5612344  0.9711583    0 -1.08198269
##  2  1    2  0.8090729 -0.9474716    0 -0.21020803
##  3  1    3  0.8070253  0.9765167    0  2.13507943
##  4  2    1  0.7446732 -0.2459540    0  0.64870743
##  5  2    2 -1.1853776 -0.3828339    1 -0.09298909
##  6  2    3  0.5057534  0.5822639    0  0.79730587
##  7  3    1 -0.3655794 -0.1628970    1 -0.57866153
##  8  3    2 -1.3465086  1.1107107    1  1.11290979
##  9  3    3 -0.8271092 -0.4105378    1  0.88522610

我们需要在结尾处使用_o，因为粘贴是基于从左到右的参数而不是相反的参数进行连接的

library(dplyr)
df %>%
    rename_at(3:5, ~ paste0(., "_o"))
#   id time         y_o        x1_o x2_o         c2
#1  1    1  0.62714872 -0.70259726    0  0.4386072
#2  1    2 -0.53052052 -0.37854004    0  1.8857944
#3  1    3 -0.97729791  0.70909984    0  0.3611839
#4  2    1 -0.31016711 -1.12787900    0  0.9684549
#5  2    2 -1.91335148 -1.84690443    1 -0.1196826
#6  2    3 -0.03967186  0.21916880    0  0.6295054
#7  3    1  1.18847857 -0.75449457    1 -1.4622606
#8  3    2  0.81352527 -0.44126036    1  0.8604688
#9  3    3  1.92443154 -0.04599181    1 -0.9240210

或者如果我们需要匹配列名

df %>%
   rename_at(vars(match('x1', names(.)):ncol(.)), ~ paste0(., '_o'))

还是用stru_c

我们需要在结尾处使用_o，因为粘贴是基于从左到右的参数而不是相反的参数进行连接的

library(dplyr)
df %>%
    rename_at(3:5, ~ paste0(., "_o"))
#   id time         y_o        x1_o x2_o         c2
#1  1    1  0.62714872 -0.70259726    0  0.4386072
#2  1    2 -0.53052052 -0.37854004    0  1.8857944
#3  1    3 -0.97729791  0.70909984    0  0.3611839
#4  2    1 -0.31016711 -1.12787900    0  0.9684549
#5  2    2 -1.91335148 -1.84690443    1 -0.1196826
#6  2    3 -0.03967186  0.21916880    0  0.6295054
#7  3    1  1.18847857 -0.75449457    1 -1.4622606
#8  3    2  0.81352527 -0.44126036    1  0.8604688
#9  3    3  1.92443154 -0.04599181    1 -0.9240210

或者如果我们需要匹配列名

df %>%
   rename_at(vars(match('x1', names(.)):ncol(.)), ~ paste0(., '_o'))

还是用stru_c

使用base R，您可以通过以下代码实现：

names(df)[-(1:3)] <- paste0(names(df)[-(1:3)],"_o")

使用base R，您可以通过以下代码实现：

names(df)[-(1:3)] <- paste0(names(df)[-(1:3)],"_o")

---

谢谢，这确实有效。我想知道是否有一种方法可以做到这一点，作为一个一行命令，感谢这确实有效。我想知道是否有一种方法可以做到这一点，作为一个一行命令伟大的正是我所寻找的！很好，这正是我要找的！