R语言技术需求：为指定列表中的数据框列名添加前缀

基础R实现方法 #

直接定位匹配的列名并修改，逻辑清晰且无需额外包：

# 筛选出demog中存在于数据框列名的变量
target_cols <- demog[demog %in% colnames(data)]
# 找到这些列的位置索引
col_pos <- match(target_cols, colnames(data))
# 为匹配列名添加前缀
colnames(data)[col_pos] <- paste0("d_", target_cols)

或者更简洁的单行写法：

colnames(data)[colnames(data) %in% demog] <- paste0("d_", colnames(data)[colnames(data) %in% demog])

tidyverse/dplyr实现方法 #

如果习惯使用tidyverse生态，rename_with函数可以更优雅地完成批量重命名，尤其适合多分组列表的场景：

library(dplyr)

data <- data %>%
  rename_with(~ paste0("d_", .x), all_of(demog))

验证效果 #

执行上述代码后，数据框的列名会变为：ID, desc, var1, var2, var3, d_GENDER, d_AGE，完全符合需求。

原代码错误说明 #

• 第一段代码错误在于用字符向量直接作为索引时，若demog中存在数据框没有的列名，会导致索引不匹配；改用match获取位置索引可避免该问题。
• 第二段代码错误在于ifelse返回的是字符向量，直接赋值给data会覆盖原数据框结构，且paste0的参数顺序错误（应该是前缀在前，列名在后）。

内容的提问来源于stack exchange，提问作者Keelin