如何跳过中间步骤将R中gt包生成的多份表格导出为单个带间距的HTML文件

当然有更高效的方法！你完全可以跳过「逐个保存HTML再导入Rmd」的繁琐步骤，直接在R里把列表中的gt表格组合成一个完整的HTML对象，要么一次性导出，要么直接在RMarkdown里渲染。下面给你两种实用方案：

方案一：直接在R脚本中导出合并后的HTML #

利用htmltools包的tagList()可以把多个gt表格（本质是htmlwidget对象）组合起来，再加上换行标签<br>来控制表格间距，最后一次性保存成单个HTML文件：

library(gt)
library(tidyverse)
library(htmltools)

# 创建你的gt表格列表
tbl_list <- list(
  mtcar_tbl = mtcars %>% gt(),
  iris_tbl = iris %>% gt(),
  cars_tbl = cars %>% gt()
)

# 给每个表格添加两个换行标签，然后合并成一个HTML对象
combined_html <- tbl_list %>%
  purrr::map(~ tagList(.x, br(), br())) %>%  # 每个表格后加两行间距
  tagList()

# 导出为单个HTML文件
save_html(combined_html, file = "all_tables.html")

方案二：在RMarkdown中直接渲染列表里的表格 #

如果你是用RMarkdown输出HTML报告，直接在代码块里处理表格列表即可，完全不需要生成中间文件：

方法1：用purrr::walk()逐个渲染 #

---
title: "合并GT表格"
output: html_document
---

```{r echo=FALSE, message=FALSE, warning=FALSE}
library(gt)
library(tidyverse)

tbl_list <- list(
  mtcar_tbl = mtcars %>% gt(),
  iris_tbl = iris %>% gt(),
  cars_tbl = cars %>% gt()
)

# 遍历表格列表，打印每个表格后插入换行
purrr::walk(tbl_list, function(tbl) {
  print(tbl)
  cat("<br><br>")  # 控制表格间距
})

### 方法2：用`htmltools`组合后渲染
这种方式更简洁，直接把所有表格组合成一个HTML对象再输出：
```r
---
title: "合并GT表格"
output: html_document
---

```{r echo=FALSE, message=FALSE, warning=FALSE}
library(gt)
library(tidyverse)
library(htmltools)

tbl_list <- list(
  mtcar_tbl = mtcars %>% gt(),
  iris_tbl = iris %>% gt(),
  cars_tbl = cars %>% gt()
)

# 组合表格并添加间距后输出
tbl_list %>%
  purrr::map(~ tagList(.x, br(), br())) %>%
  tagList()

### 小提示
- 你可以通过调整`br()`的数量来改变表格之间的间距，比如用`br()`就是一行间距，`br(), br()`就是两行。
- 如果需要更精细的样式控制，还可以用`div()`标签给表格添加CSS样式，比如设置margin：
  ```r
  map(tbl_list, ~ div(.x, style = "margin-bottom: 20px;")) %>% tagList()

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