R语言中基于table对象使用gt等包制作带标题的美观表格

第一步：准备环境与基础数据 #

• 安装加载所需的gt包（首次使用时运行安装命令即可）：

install.packages("gt")
library(gt)

• 复现你给出的示例交叉表，设置随机种子保证结果可复现：

set.seed(123)
a <- factor(sample(1:4, 10000, replace=TRUE))
b <- factor(sample(c(0,1,NA), 10000, replace=TRUE))
# 生成包含缺失值统计的原生table对象
tab_raw <- table(a, b, exclude=NULL)

第二步：将原生table转为gt可识别的结构 #

R原生table是矩阵格式，无法直接被gt读取，需要先转换为规整的数据框结构：

# 把矩阵格式的交叉表转为宽表结构
tab_clean <- as.data.frame.matrix(tab_raw)
# 把原行索引（即变量a的各个因子水平）转为独立列，避免内容丢失
tab_clean <- cbind(变量a = rownames(tab_clean), tab_clean)
# 清空原矩阵的冗余行名
rownames(tab_clean) <- NULL

第三步：格式美化与标题添加 #

运行以下代码即可生成带标题、格式清爽的可视化表格，覆盖常用的美化需求：

final_tbl <- tab_clean |>
  gt() |>
  # 为表格添加主标题与副标题
  tab_header(
    title = "变量a与变量b的交叉频数统计表",
    subtitle = "基于10000次有放回随机抽样的统计结果"
  ) |>
  # 自定义列显示名称，替换默认的生硬列名
  cols_label(
    `变量a` = "变量a取值",
    `0` = "变量b=0",
    `1` = "变量b=1",
    `<NA>` = "变量b缺失值"
  ) |>
  # 调整对齐方式：行标签列居中，数值列右对齐更符合阅读习惯
  cols_align(align = "center", columns = `变量a`) |>
  cols_align(align = "right", columns = -`变量a`) |>
  # 给表头加浅灰色底色，区分表头与表体
  tab_style(
    style = cell_fill(color = "#f5f5f5"),
    locations = cells_column_labels(everything())
  ) |>
  # 添加表格底部的注释说明
  tab_source_note(
    source_note = "注：表内数值为对应两个变量水平组合的样本计数"
  )

实操提示：不要直接把原生table对象传入gt()函数，否则会触发类型不兼容报错；转换结构时注意保留<NA>对应的列，不要在转换过程中过滤掉缺失值统计项，否则会丢失之前exclude=NULL设置的全量统计结果。

最终生成的表格可以直接在RStudio查看器中预览，支持一键导出为高清图片，也可以直接嵌入R Markdown/Quarto文档生成符合出版要求的Word、PDF格式表格，无需手动调整边框、对齐方式。

内容的提问来源于stack exchange，提问作者Jesús Asdrúbal Molina Vílquez