如何在DT数据表中创建Gender、Race这类分类子表头

要实现带有Gender、Race子表头的DT数据表，最简洁的方式是使用DT包的**行分组（rowGroup）**扩展，结合自定义样式来实现分组标题的展示。以下是具体步骤和代码：

步骤1：添加分组标识列 #

先给原数据添加一列，标记每个attribute项所属的分类（Gender/Race）：

library(DT)

# 原数据
df <- data.frame(
  attribute = c("male", "female", "hispanic", "african"),
  value1 = c(10, 20, 30, 40),
  value2 = c(50, 60, 70, 80)
)

# 添加分组列，标记每个属性的所属分类
df$group <- factor(c("Gender", "Gender", "Race", "Race"), levels = c("Gender", "Race"))

步骤2：创建带分组的DT表格 #

使用rowGroup选项启用行分组，同时隐藏分组列，并自定义分组标题的样式：

datatable(
  df,
  options = list(
    # 指定分组列的索引（group是第4列，DT列索引从0开始，故为3）
    rowGroup = list(dataSrc = 3),
    # 隐藏分组列，避免显示冗余信息
    columnDefs = list(list(visible = FALSE, targets = 3)),
    # 可选：简化表格布局，关闭排序
    dom = 't',
    ordering = FALSE
  ),
  # 自定义分组标题样式（加粗、浅灰背景）
  callback = JS(
    "table.on('draw.dt', function() {",
    "  $('.dt-row-group').css({",
    "    'font-weight': 'bold',",
    "    'background-color': '#f5f5f5',",
    "    'padding': '8px'",
    "  });",
    "});"
  )
)

效果说明 #

运行代码后，表格会自动将male、female归在Gender分组下，hispanic、african归在Race分组下；分组标题以加粗浅灰背景的样式展示在对应组的上方，清晰区分不同分类。

如果需要更复杂的多层表头（而非行分组），可以通过headerCallback自定义JavaScript修改表头结构，但行分组方式更贴合DT原生设计，实现成本更低且兼容性更好。

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