如何替换数据框列名前缀：用指定符号替换原有前缀

这里提供几种简单直接的实现方式，根据你的需求选择即可：

方法一：正则批量替换（通用适配不同前缀） #

如果不确定前缀具体内容，只是要替换列名中第一个.前两段的前缀部分，用正则匹配最稳妥：

# 已定义的符号
symbol <- '0123.KI'
# 执行替换
colnames(df) <- gsub("^[^.]+\\.[^.]+\\.", paste0(symbol, "."), colnames(df))

正则表达式^[^.]+\\.[^.]+\\.会精准匹配列名开头的XXX.XX.格式前缀（比如原列名的0939.HK.），再替换为symbol加上.的组合。

方法二：固定字符串替换（已知原前缀） #

如果明确知道原前缀是0939.HK.，直接替换固定字符串效率更高：

symbol <- '0123.KI'
colnames(df) <- sub("^0939\\.HK\\.", paste0(symbol, "."), colnames(df))

注意这里要给.加转义符\\，因为.在正则里是通配符，必须转义才能匹配实际的点号。

方法三：使用stringr包（tidyverse生态） #

如果你平时习惯用tidyverse工具链，可以用stringr包的str_replace函数：

library(stringr)
symbol <- '0123.KI'
colnames(df) <- str_replace(colnames(df), "^[^.]+\\.[^.]+\\.", paste0(symbol, "."))

逻辑和方法一一致，只是调用了tidyverse风格的函数。

执行任意一种方法后，运行colnames(df)就能看到替换后的目标列名：

> colnames(df)
[1] "0123.KI.Open"     "0123.KI.High"     "0123.KI.Low"      "0123.KI.Close"    "0123.KI.Volume"   "0123.KI.Adjusted"

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