如何解决R中使用gsub后出现的.checkTypos(e, names_x)错误

问题场景 #

原数据列名：

D/T  Temp [degCelc]  Pres [hPa]  SRad [W/m**2]  Rain [mm]  ARad [W/m**2]  Moist [%]  K [%]  Temp1  Press1

期望修改为：

D/T  Temp  Pres  SRad  Rain  ARad  Moist  K  Temp1  Press1

编写了自定义列名修改函数，执行后运行列选择代码时触发错误：

sel_col <- c('D/T', 'Temp', 'Pres', 'SRad', 'Rain', 'ARad')

错误信息：

Error in .checkTypos(e, names_x) :
Object 'Temp1' not found. Perhaps you intended Moist [%], K [%] or 2 more

问题原因 #

原自定义函数中的gsub使用了错误的正则表达式：[degCelc]这类写法属于正则字符类，会匹配括号内的任意单个字符，而非匹配整个[degCelc]后缀。最终列名会残留空格和方括号（比如Temp []），并没有真正修改为目标格式，导致系统仍识别旧列名，触发选择错误。

解决方法 #

方法1：用精准正则一次性清理所有方括号后缀 #

修改函数，使用正则\\s*\\[.*?\\]匹配所有 [xxx]格式的后缀（含前面的空格），一次性替换为空：

correct_column_names <- function(dt_list){
  lapply(dt_list, FUN = function(x){
    colnames(x) <- gsub("\\s*\\[.*?\\]", "", colnames(x))
    return(x)
  })
}

该正则说明：

• \\s*：匹配0个或多个空格
• \\[：匹配左方括号（转义后避免被识别为正则语法）
• .*?：非贪婪匹配括号内的任意内容
• \\]：匹配右方括号

方法2：直接指定新列名（适合列名固定场景） #

如果列名的数量和顺序固定，直接赋值新列名更稳妥，避免正则匹配出错：

correct_column_names <- function(dt_list){
  lapply(dt_list, FUN = function(x){
    new_cols <- c('D/T', 'Temp', 'Pres', 'SRad', 'Rain', 'ARad', 'Moist', 'K', 'Temp1', 'Press1')
    colnames(x) <- new_cols
    return(x)
  })
}

方法3：验证列名修改结果 #

执行函数后，先打印列名确认修改是否生效：

# 假设你的数据列表为dt_list
dt_list <- correct_column_names(dt_list)
# 检查第一个数据框的列名
print(colnames(dt_list[[1]]))

确认列名符合目标格式后，再执行列选择代码即可正常运行。

内容的提问来源于stack exchange，提问作者Alexia k Boston