如何用dcast将融合数据转换为带主表头与子表头的表格？

我需要将以下输入数据重塑为带主表头（A、B）和子表头（N=1、N=2）的Excel格式表格：

输入数据：

Cons   rep   name   value
10     N=1     A      12
10     N=2     A      13
10     N=1     B      10
10     N=2     B      11
12     N=1     A      23
12     N=2     A      24
12     N=1     B      23
12     N=2     B      21

期望的Excel格式输出：

A          B
      N=1  N=2    N=1  N=2  
10    12   13     10    11
12    23   24     23    21

我已使用dcast()函数得到如下单层表头的结果，想了解如何将N=1和N=2设为A、B的子表头：

A_N1 A_N2 B_N1 B_N2
10   12   13   10   11
12   23   24   23   21

dcast()本身只能生成单层表头的数据集，要实现Excel中的双层表头效果，需要借助openxlsx包手动设置合并单元格和表头层级，具体步骤如下：

1. 生成基础宽表 #

先通过dcast()得到单层表头的基础数据：

library(data.table)
# 构造输入数据
dt <- data.table(
  Cons = c(10,10,10,10,12,12,12,12),
  rep = c("N=1","N=2","N=1","N=2","N=1","N=2","N=1","N=2"),
  name = c("A","A","B","B","A","A","B","B"),
  value = c(12,13,10,11,23,24,23,21)
)
# 转换为宽表
wide_dt <- dcast(dt, Cons ~ name + rep, value.var = "value")
# 调整列名，方便后续对应表头
colnames(wide_dt) <- c("Cons", "A_N=1", "A_N=2", "B_N=1", "B_N=2")

2. 创建带双层表头的Excel文件 #

使用openxlsx包设置合并表头并写入数据：

library(openxlsx)
# 创建工作簿
wb <- createWorkbook()
addWorksheet(wb, "双层表头表")

# 写入数据（从第3行开始，预留前两行放表头）
writeData(wb, "双层表头表", wide_dt, startRow = 3, startCol = 1)

# 设置主表头：合并单元格并写入A、B
mergeCells(wb, "双层表头表", cols = 2:3, rows = 1)
mergeCells(wb, "双层表头表", cols = 4:5, rows = 1)
writeData(wb, "双层表头表", c("A", "B"), startRow = 1, startCol = 2, colNames = FALSE)

# 设置子表头：写入N=1、N=2
writeData(wb, "双层表头表", c("N=1", "N=2", "N=1", "N=2"), startRow = 2, startCol = 2, colNames = FALSE)

# 可选：美化表头样式
header_style <- createStyle(textDecoration = "bold", halign = "center")
addStyle(wb, "双层表头表", header_style, rows = 1:2, cols = 1:5)
setColWidths(wb, "双层表头表", cols = 1:5, widths = 10)

# 保存Excel文件
saveWorkbook(wb, "双层表头表格.xlsx", overwrite = TRUE)

效果说明 #

生成的Excel文件中，第1行是合并后的主表头A、B，第2行是对应的子表头N=1、N=2，数据从第3行开始，完全匹配你期望的格式。

如果只是在R控制台模拟双层表头显示，由于data.frame本身不支持双层结构，只能通过自定义打印格式实现，但实际用于Excel导出还是上述方法最可靠。

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