使用openxlsx包write.xlsx批量转文件时表头空格变点的问题

嘿，这个问题我批量处理文件的时候也碰到过！根源其实是read.csv()的默认行为——它会自动把表头里的空格（以及其他不符合R变量名规则的字符）转换成点，这就导致导出的XLSX表头不符合数据库要求。咱们只需要一个小调整就能搞定：

核心修改：读取CSV时保留原始表头 #

在调用read.csv()的时候，加上check.names = FALSE参数，这样就会完全保留CSV里的原始表头格式，不会把空格替换成点。

修改后的完整代码如下：

filenames <- list.files("C:/split files", pattern="*.csv", full.names=TRUE)
for(i in filenames) { 
  # 关键改动：check.names = FALSE 禁用表头格式转换
  a <- read.csv(i, check.names = FALSE) 
  new_name <- sub('.csv', '.xlsx', i, fixed = TRUE) 
  write.xlsx(a, new_name, row.names = F)
}

为什么这个方法有效？ #

read.csv()的默认参数check.names = TRUE是为了确保读取后的列名能作为合法的R变量名（比如不能有空格、不能以数字开头），所以会自动替换这些“不合法”的字符为点。当我们把它设为FALSE时，R就会严格保留CSV文件里的原始表头内容，包括空格。

备选方案：如果已经读取了数据再修改列名 #

如果因为某些原因你已经读取了数据（列名已经变成点了），也可以手动把列名里的点替换回空格，代码如下：

# 替换数据框a的列名中的点为空格
colnames(a) <- gsub("\\.", " ", colnames(a))

不过更推荐在读取的时候直接处理，这样更高效也不容易出错。

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