如何为指定Tibble数据创建双层表头并写入CSV文件？

实现思路 #

CSV格式本身不支持单元格合并，我们可以通过写入两行表头来模拟双层表头效果：

• 第一行（第一层表头）：对应模型名称，每个模型名称重复两次，匹配下方的estimates和observations列，实现视觉上的跨列效果
• 第二行（第二层表头）：对应每个模型的子列名estimates与observations，variables列保持一致

完整代码 #

library(tidyverse)

# 原始数据
tbl <- tibble(
  variables = c("a", "b", "c"), 
  
  `model 1_estimates` = c(1, 2, 3), 
  `model 1_observations` = c(10, 20, 30),
  
  `model 2_estimates` = c(4, 2, 3), 
  `model 2_observations` = c(40, 20, 300),
  
  `model 3_estimates` = c(4, 4, 3), 
  `model 3_observations` = c(40, 400, 300)
)

# 构造双层表头
header_row1 <- c("variables", "model 1", "model 1", "model 2", "model 2", "model 3", "model 3")
header_row2 <- c("variables", "estimates", "observations", "estimates", "observations", "estimates", "observations")

# 合并表头与数据
output_data <- bind_rows(
  as_tibble_row(set_names(header_row1, header_row2)),
  tbl
)

# 写入CSV文件（禁用行名）
write.csv(output_data, "双层表头结果.csv", row.names = FALSE, na = "")

说明 #

• 用as_tibble_row将表头向量转换为行数据，保证和原始tibble的列结构匹配
• 写入CSV时关闭行名（row.names = FALSE），避免生成多余的索引列
• 打开生成的CSV文件后，可在Excel或类似工具中手动合并第一行的重复模型名称单元格，完成双层表头的可视化

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