我有一个包含 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 中代表什么？提前致谢！

回答

library(dplyr)

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

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