如何在R Dataframe或DT::datatable中实现双层表头？

问题背景 #

现有如下结构的Dataframe，是Y变量（Y1、Y2）与解释变量var1/var2交叉、按X变量（X1、X2）分层后的统计结果：

df <- data.frame(
      var = c("var1 ------", "mod1", "mod2", "var2 ------","mod1", "mod2", "mod3"),
      X1_Y1 = c(NA,0,1,NA,1,3,5),
      X1_Y2 = c(NA,2,5,NA,2,4,10),
      X2_Y1 = c(NA,8,8,NA,3,3,1),
      X2_Y2 = c(NA,9,3,NA,0,6,2))

需求是为其添加双层表头，要求直接在R Dataframe或DT::datatable上实现，排除了flextable、原生HTML、kableExtra::add_header_above（会导致Rmd中无法保留DT对象）等方案。

可行方案：使用DT的headerCallback自定义JS逻辑 #

通过DT::datatable的headerCallback参数，编写JavaScript代码修改表头DOM结构，实现双层表头效果，完全保留DT的交互功能。

完整代码示例 #

library(DT)

# 构造数据
df <- data.frame(
  var = c("var1 ------", "mod1", "mod2", "var2 ------","mod1", "mod2", "mod3"),
  X1_Y1 = c(NA,0,1,NA,1,3,5),
  X1_Y2 = c(NA,2,5,NA,2,4,10),
  X2_Y1 = c(NA,8,8,NA,3,3,1),
  X2_Y2 = c(NA,9,3,NA,0,6,2)
)

datatable(df, 
          rownames = FALSE,
          headerCallback = JS(
            "function(thead, data, start, end, display) {
              // 获取原表头行
              var $header = $(thead).find('tr:last-child');
              // 创建新的表头行
              var $newHeader = $('<tr></tr>');
              // 第一列跨两层表头
              $newHeader.append('<th rowspan=\"2\">变量</th>');
              // 添加X1分组的合并表头（跨2列）
              $newHeader.append('<th colspan=\"2\">X1</th>');
              // 添加X2分组的合并表头（跨2列）
              $newHeader.append('<th colspan=\"2\">X2</th>');
              // 插入新表头到原表头上方
              $header.before($newHeader);
              // 修改原表头列文本为Y1/Y2
              $header.find('th:eq(1)').text('Y1');
              $header.find('th:eq(2)').text('Y2');
              $header.find('th:eq(3)').text('Y1');
              $header.find('th:eq(4)').text('Y2');
            }"
          )
)

代码说明 #

• headerCallback：DT原生提供的回调函数，允许在渲染表头时自定义DOM操作
• DOM修改逻辑：
  • 创建新表头行作为第一层，添加跨列的X分组标题
  • 保留原表头行作为第二层，修改文本为Y变量取值
  • 为第一列设置rowspan="2"，使其跨越两层表头
• 核心优势：完全基于DT原生功能，保留排序、搜索等所有交互特性，在Rmd中可正常渲染为DT对象

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