如何高效将R data.frame列名中指定单词的首字母大写

通过正则限定匹配范围+批量替换的方式实现需求，仅需几行代码即可处理任意规模的数据集，同时避免误匹配。

实现代码 #

依赖stringr包（推荐，语法简洁） #

library(stringr)

# 定义需要首字母大写的目标小写单词
target_words <- c("for", "in", "and", "of")
# 构造匹配规则：仅匹配后面紧跟大写字母/处于末尾的目标单词，避免误匹配
pattern <- paste0("(", paste(target_words, collapse = "|"), ")(?=[A-Z]|$)")

# 批量替换所有列名
colnames(df) <- str_replace_all(colnames(df), pattern, ~ str_to_title(.x))

纯base R实现（无需加载第三方包） #

target_words <- c("for", "in", "and", "of")
pattern <- paste0("(", paste(target_words, collapse = "|"), ")(?=[A-Z]|$)")

colnames(df) <- gsub(pattern, "\\U\\1", colnames(df), perl = TRUE)

方案说明 #

• 匹配规则使用正向前瞻断言(?=[A-Z]|$)，仅当目标小写单词后面紧跟大写字母，或者处于列名字符串末尾时才会被匹配，完全避免目标单词作为其他小写单词组成部分时被误替换（比如software中的of不会被识别匹配）。
• 可扩展性强：后续需要新增替换的单词，直接往target_words向量中添加即可，无需修改其他逻辑。
• 一次执行即可完成所有列名的替换，不管数据集列数多少，效率远高于逐列硬编码替换。

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