通过使用 dplyr 添加前缀来重命名除 id 列之外的所有列

Question

我有一个包含 id、feature_1、feature_2、feature_3 列的数据框，如下所示。

df = data.frame(
  id = sample(letters, 5),
  feature_1 = sample(1:10, 5),
  feature_2 = runif(5),
  feature_3 = rnorm(5)
)

我想通过添加前缀来重命名所有特征列。以下行不起作用并输出错误。

df %>%
  rename_with(~(ifelse(names(.x) == "id", paste0("source_", names(.x)), "id")))

Error in names[cols] <- .fn(names[cols], ...) : 
  replacement has length zero

关于如何修改这个的任何提示？ .x 在 rename_with 中代表什么？提前致谢!

Answer 1

library(dplyr)

df %>% 
  dplyr::rename_with(~ paste0("source_", .), -id)

rename_with 的第三个参数是 .cols ，您可以在其中使用 tidyselect 语法来选择列。这里 -id 排除了这一列。

根据注释， . 语法比编写匿名函数更简洁/更简单，但您可以等效地完成此操作:

df %>% 
  dplyr::rename_with(function(x) paste0("source_", x), -id)