无需Hmisc包：R数据框带列标签导出至Excel的替代方案

Base R 无额外包方案 #

Base R没有原生Excel写入函数，但可以生成Excel兼容的CSV文件，实现同时显示列标签和原列名：

核心思路是手动构造表头：第一行放列标签，第二行放原列名，再拼接原始数据后导出。

participantid <- c("001", "002")
visit <- c("Follow-up 1", "Follow-up 2")
df <- data.frame(participantid, visit)

var_labels <- c(
  participantid = "ID du participant", 
  visit = "Type de visite"
)

# 构造表头：第一行是列标签，第二行是原列名
header <- rbind(var_labels, names(df))
# 合并表头与数据
output_data <- rbind(header, df)

# 导出为CSV，Excel可直接打开查看
write.table(output_data, 
            "data_with_labels.csv", 
            sep = ",", 
            row.names = FALSE, 
            col.names = FALSE, 
            quote = FALSE)

导出的CSV用Excel打开后，会显示：

• 第一行：列标签（如ID du participant）
• 第二行：原列名（如participantid）
• 第三行及以后：原始数据

可选：轻量包openxlsx实现美观Excel格式 #

如果需要更规范的Excel格式（比如表头样式、合并单元格），可以用openxlsx包——它依赖极少，远低于Hmisc，安装风险低：

# 安装并加载包
install.packages("openxlsx")
library(openxlsx)

# 创建工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "Dataset")

# 写入列标签到第1行
writeData(wb, "Dataset", x = t(var_labels), startRow = 1, colNames = FALSE)
# 写入原列名到第2行
writeData(wb, "Dataset", x = names(df), startRow = 2, colNames = FALSE)
# 写入原始数据到第3行
writeData(wb, "Dataset", x = df, startRow = 3, colNames = FALSE)

# 可选：给标签行设置加粗样式
bold_style <- createStyle(textDecoration = "bold")
addStyle(wb, "Dataset", bold_style, rows = 1, cols = 1:length(df))

# 保存Excel文件
saveWorkbook(wb, "data_with_labels.xlsx", overwrite = TRUE)

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