generate-statistical-tableslisted
Install: claude install-skill pjt222/agent-almanac
# 生成统计表格
为报告和手稿创建出版级统计表格。
## 适用场景
- 创建描述性��计表格
- 格式化回归或方差分析输出
- 构建相关矩阵
- 为学术论文制作 APA 样式表格
- 为 Quarto/R Markdown 文档生成表格
## 输入
- **必需**：统计分析结果（模型对象、汇总数据）
- **必需**：输出格式（HTML、PDF、Word）
- **可选**：样式指南（APA、期刊特定）
- **可选**：表格编号方案
## 步骤
### 第 1 步：选择表格包
| 包 | 最适合 | 格式 |
|---------|----------|---------|
| `gt` | HTML、通用 | HTML、PDF、Word |
| `kableExtra` | LaTeX/PDF 文档 | PDF、HTML |
| `flextable` | Word 文档 | Word、PDF、HTML |
| `gtsummary` | 临床/统计摘要 | 通过 gt/flextable 支持所有格式 |
**预期结果：** 根据输出格式和用例选定表格包。所选包已安装并可加载。
**失败处理：** 如果所需包未安装，运行 `install.packages("gt")`（或相应的包）。对于 `gtsummary`，`gt` 和 `gtsummary` 都必须安装。
### 第 2 步：描述性统计表格
```r
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` 表格对象，包含按类别分组的格式化均值、标准差和计数。列标题使用正确的统计符号（斜体 *M*、*SD*、*n*）。
**失败处理：** 如果 `group_by()` 产生意外结果，检查分组变量是否存在并具有预期的水平。如果 `fmt_number()` 抛出错误，确保目标列包含数值数据。
### 第 3 步：回归结果表格
```r
model <- lm(outcome ~ predictor1 + predictor2 + predictor3, dat