如何在R的gt表格顶部同时显示SAS数据集的列名与列标签

针对SAS数据集在gt表格中同时展示列名和列标签的需求，以下是可直接复用的解决方案：

完整代码 #

library(tidyverse)
library(haven)
library(gt)
library(labelled)

# 读取SAS数据
df <- haven::read_sas("naws_all.sas7bdat")

# 获取列标签（fill=TRUE确保无标签列用列名填充）
var_labels <- labelled::get_variable_labels(df, fill = TRUE)

# 生成双层表头的gt表格
df %>%
  head() %>%
  gt() %>%
  # 配置双层表头：上层为列标签（加粗），下层为列名
  cols_label(
    everything() ~ function(col) {
      md(paste0("**", var_labels[col], "**<br>", col))
    }
  ) %>%
  # 可选：添加表头底部边框，强化双层结构视觉区分
  tab_style(
    style = list(
      cell_borders(
        sides = "bottom",
        color = "gray",
        weight = px(2)
      )
    ),
    locations = cells_column_labels()
  )

关键步骤说明 #

1. 获取并整理列标签：
   使用get_variable_labels(df, fill = TRUE)获取所有列的标签，fill=TRUE参数保证没有标签的列会自动用列名填充，避免表头出现空值。

2. 构建双层表头：
   通过cols_label配合markdown语法，用<br>实现表头换行，将列标签（加粗突出）放在上层，列名放在下层。如果需要列名在上、标签在下，只需调换paste0中的顺序：

   md(paste0("**", col, "**<br>", var_labels[col]))
   

3. 优化视觉效果（可选）：
   用tab_style给表头底部添加粗边框，清晰区分表头区域和数据行，让双层结构更直观。

效果示例 #

以你的数据为例，SPOUSARR列的表头会显示为：

YEAR SPOUSE ARRIVAL IN US
SPOUSARR

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