如何用purrr::map、broom::tidy和kableExtra生成可渲染HTML表格

核心问题在于purrr::map会返回一个包含所有表格对象的列表，R Markdown不会自动渲染列表内的对象，需要用合适的方式逐个输出这些对象。以下是具体实现步骤：

1. 准备依赖包与测试数据 #

首先加载所需工具包，同时模拟符合场景的测试数据集（如果已有testdata可跳过此步）：

library(tidyverse)
library(lme4)
library(broom.mixed) # 专门处理混合效应模型的tidy工具
library(kableExtra)
library(knitr)

# 模拟测试数据
set.seed(123)
testdata <- tibble(
  group = rep(letters[1:3], each = 100),
  x = rnorm(300),
  y = rnorm(300) + 0.5*x + rep(rnorm(3), each = 100),
  z = sample(c("A", "B"), 300, replace = TRUE)
)

2. 定义单个模型的表格生成函数 #

把「构建模型→整理结果→生成HTML表格」的逻辑封装成函数，方便批量调用：

make_model_table <- function(group_data) {
  # 构建lmer模型
  model <- lmer(y ~ x + (1|z), data = group_data)
  # 整理模型结果（保留固定效应、置信区间和p值）
  model_tidy <- tidy(model, effects = "fixed", conf.int = TRUE)
  
  # 格式化结果并生成HTML表格
  model_tidy %>%
    select(term, estimate, std.error, conf.low, conf.high, p.value) %>%
    mutate(across(c(estimate, std.error, conf.low, conf.high), ~round(.x, 3))) %>%
    mutate(p.value = ifelse(p.value < 0.001, "<0.001", round(p.value, 3))) %>%
    kable("html", caption = paste("分组模型结果：", unique(group_data$group))) %>%
    kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover"))
}

3. 批量生成并渲染表格 #

有三种常用方式实现批量输出：

方式一：用purrr::walk直接输出 #

walk和map逻辑类似，但它只执行函数不返回结果，而是直接把每个表格对象输出到R Markdown中，自动完成渲染：

# 按group分组后遍历处理
testdata %>%
  group_split(group) %>%
  walk(make_model_table)

方式二：先存列表再遍历输出 #

如果需要保留表格对象后续复用，可以先用map生成列表，再用walk遍历输出：

# 生成所有表格对象并存入列表
model_tables <- testdata %>%
  group_split(group) %>%
  map(make_model_table)

# 遍历列表输出每个表格
walk(model_tables, print)

方式三：组合成单个HTML块输出 #

如果希望把所有表格整合在一个HTML容器里，可以用htmltools::tagList：

library(htmltools)

model_tables <- testdata %>%
  group_split(group) %>%
  map(make_model_table)

# 组合所有表格并输出
tagList(model_tables)

注意事项 #

• 处理lmer模型时，优先用broom.mixed::tidy而非broom::tidy，前者对混合效应模型的支持更完善；
• 确保R Markdown的输出格式设置为html_document，否则kableExtra的HTML样式无法生效；
• 如果需要自定义表格样式（比如调整列宽、添加表头注释），可以在kable_styling中补充参数。

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