生成统计表格

为报告和手稿创建出版级统计表格。

适用场景

• 创建描述性统计表格
• 格式化回归或方差分析输出
• 构建相关矩阵
• 为学术论文制作 APA 样式表格
• 为 Quarto/R Markdown 文档生成表格

输入

• 必需：统计分析结果（模型对象、汇总数据）
• 必需：输出格式（HTML、PDF、Word）
• 可选：样式指南（APA、期刊特定）
• 可选：表格编号方案

步骤

第 1 步：选择表格包

gt

kableExtra

flextable

gtsummary

预期结果： 根据输出格式和用例选定表格包。所选包已安装并可加载。

失败处理： 如果所需包未安装，运行

install.packages("gt")

gtsummary

gt

gtsummary

第 2 步：描述性统计表格

library(gt)

descriptives <- data |>
  group_by(group) |>
  summarise(
    n = n(),
    M = mean(score, na.rm = TRUE),
    SD = sd(score, na.rm = TRUE),
    Min = min(score, na.rm = TRUE),
    Max = max(score, na.rm = TRUE)
  )

gt(descriptives) |>
  tab_header(
    title = "Table 1",
    subtitle = "Descriptive Statistics by Group"
  ) |>
  fmt_number(columns = c(M, SD), decimals = 2) |>
  fmt_number(columns = c(Min, Max), decimals = 1) |>
  cols_label(
    group = "Group",
    n = md("*n*"),
    M = md("*M*"),
    SD = md("*SD*")
  )

预期结果： 一个

gt

失败处理： 如果

group_by()

fmt_number()

第 3 步：回归结果表格

model <- lm(outcome ~ predictor1 + predictor2 + predictor3, data = data)

library(gtsummary)

tbl_regression(model) |>
  bold_p() |>
  add_glance_source_note(
    include = c(r.squared, adj.r.squared, nobs)
  ) |>
  modify_header(label = "**Predictor**") |>
  modify_caption("Table 2: Regression Results")

预期结果： 一个

gtsummary

失败处理： 如果

tbl_regression()

lm

glm

add_glance_source_note()

broom

broom::glance(model)

第 4 步：相关矩阵

library(gt)

cor_matrix <- cor(data[, c("var1", "var2", "var3", "var4")],
                  use = "pairwise.complete.obs")

# Format lower triangle
cor_matrix[upper.tri(cor_matrix)] <- NA

as.data.frame(cor_matrix) |>
  tibble::rownames_to_column("Variable") |>
  gt() |>
  fmt_number(decimals = 2) |>
  sub_missing(missing_text = "") |>
  tab_header(title = "Table 3", subtitle = "Correlation Matrix")

预期结果： 下三角相关矩阵渲染为

gt

失败处理： 如果

sub_missing()

NA

cor_matrix[upper.tri(cor_matrix)] <- NA

cor()

第 5 步：方差分析表

aov_result <- aov(score ~ group * condition, data = data)

library(gtsummary)

tbl_anova <- broom::tidy(aov_result) |>
  gt() |>
  fmt_number(columns = c(sumsq, meansq, statistic), decimals = 2) |>
  fmt_number(columns = p.value, decimals = 3) |>
  cols_label(
    term = "Source",
    df = md("*df*"),
    sumsq = md("*SS*"),
    meansq = md("*MS*"),
    statistic = md("*F*"),
    p.value = md("*p*")
  ) |>
  tab_header(title = "Table 4", subtitle = "ANOVA Results")

预期结果： 格式化的方差分析表，包含来源、df、SS、MS、F 和 p 列。交互项标注清晰，p 值格式化为三位小数。

失败处理： 如果

broom::tidy(aov_result)

aov

car::Anova(model, type = 3)

aov()

第 6 步：保存表格

# Save as HTML
gtsave(my_table, "table1.html")

# Save as Word
gtsave(my_table, "table1.docx")

# Save as PNG image
gtsave(my_table, "table1.png")

# For LaTeX/PDF (kableExtra)
kableExtra::save_kable(kable_table, "table1.pdf")

预期结果： 表格保存为指定文件格式（HTML、Word、PNG 或 PDF）。输出文件在相应应用程序中正确打开。

失败处理： 如果

gtsave()

webshot2

kableExtra

第 7 步：嵌入 Quarto 文档

```{r}
#| label: tbl-descriptives
#| tbl-cap: "Descriptive Statistics by Group"

gt(descriptives) |>
  fmt_number(columns = c(M, SD), decimals = 2)
```

See @tbl-descriptives for summary statistics.

预期结果： 表格在 Quarto 文档中内联渲染，具有可交叉引用的标签（

@tbl-*

失败处理： 如果表格未渲染，检查代码块标签是否以

tbl-

gt

kableExtra

验证清单

• 表格在目标格式（HTML、PDF、Word）中正确渲染
• 数字格式一致（小数位数、对齐）
• 统计符号遵循样式指南（斜体、正确符号）
• 表格有清晰的标题和编号
• 列标题有意义
• 注释/脚注解释缩写或显著性标记

常见问题

• gt 在 PDF 中的限制：gt 对 PDF 支持有限。对于 LaTeX 密集的文档使用 kableExtra。
• 舍入不一致：始终使用

  fmt_number()

  （gt）或

  format()

  而非

  round()

  来显示数据
• 缺失值显示：在 gt 中使用

  sub_missing()

  或

  options(knitr.kable.NA = "")

  配置
• PDF 中的宽表格：超过页面宽度的表格需要

  landscape()

  或缩小字体
• APA 数字格式：以 1 为界的值不加前导零（p 值、相关系数）：".03" 而非 "0.03"

相关技能

• format-apa-report

  - APA 手稿中的表格

• create-quarto-report

  - 在报告中嵌入表格

• build-parameterized-report

  - 适应参数的表格