如何使用 R 中另一列的字符串重命名列（dplyr）

Question

data <- structure(list(Fruit = c("Apple", "Berry", "Cherry"), `Apr 22` = c(1, 
2, 3), `May 22` = c(4, 5, 6)), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -3L))

我正在尝试通过粘贴第二列中的字符串来重命名数据框中的第三列（ May 22 ）。 我的最终目标是将第三列命名为“Apr 22 - May 22”。 直觉上，我认为这样的事情会起作用

library(dplyr)

data %>% 
  rename(paste(colnames(2), "-", colnames(3)) = 3)

然而，这并没有让我得到我需要的东西。 有什么建议么

Answer 1

使用:=和!!

library(dplyr)
data <- data %>% 
  rename(!!paste(colnames(.)[2], "-", colnames(.)[3]) := 3)

-输出

data
# A tibble: 3 × 3
  Fruit  `Apr 22` `Apr 22 - May 22`
  <chr>     <dbl>             <dbl>
1 Apple         1                 4
2 Berry         2                 5
3 Cherry        3                 6

Answer 2

基础解决方案：

 colnames(data)[3] <- paste( colnames(data)[2:3], collapse="-")