R语言vtable包st()生成sumtable为NULL时如何合并多表图为单个HTML

vtable包的st()函数默认设置out = 'viewer'，该模式下函数会直接将生成的HTML表格渲染输出到RStudio Viewer面板或默认浏览器，不会将表格对应的HTML内容作为返回值返回，因此执行Object <- st(df)时得到的对象值为NULL，无法直接通过拼接对象的方式合并内容。

• 调整st()的输出参数，获取可拼接的表格HTML源码
  给st()传入参数out = 'htmlreturn'，此时函数不会唤起查看器，而是直接将表格对应的HTML字符串作为返回值输出，可直接赋值存储。示例代码：

  library(vtable)
  # 存储第一个汇总表的HTML代码
  tab1 <- st(
    df = mtcars[, 1:5],
    out = "htmlreturn",
    title = "第一组变量描述统计"
  )
  # 存储第二个汇总表的HTML代码
  tab2 <- st(
    df = mtcars[, 6:11],
    out = "htmlreturn",
    title = "第二组变量描述统计"
  )
  

• 将待插入的图表转换为可嵌入的HTML格式
  如果是ggplot2生成的静态图，可转为base64编码嵌入；如果需要交互动效，可通过plotly::ggplotly()转为交互HTML片段，示例：

  library(ggplot2)
  library(plotly)
  # 生成示例图并转为HTML片段
  p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point(color = "#2c3e50")
  plot_content <- as.character(ggplotly(p))
  

• 拼接所有内容生成完整HTML文件
  将HTML文档骨架、所有表格、图表的HTML片段拼接为完整文档，直接写入本地文件即可：

  complete_html <- paste0(
    '<!DOCTYPE html>
    <html lang="zh-CN">
    <head>
      <meta charset="UTF-8">
      <title>数据汇总报告</title>
      <style>
        body {max-width: 1100px; margin: 30px auto; padding: 0 20px; font-family: system-ui, -apple-system, sans-serif;}
        .table-block {margin: 40px 0;}
        .plot-block {margin: 40px 0;}
      </style>
    </head>
    <body>
      <h1>合并数据报告</h1>
      <div class="table-block">', tab1, '</div>
      <div class="plot-block">', plot_content, '</div>
      <div class="table-block">', tab2, '</div>
    </body>
    </html>'
  )
  # 输出到本地HTML文件
  writeLines(complete_html, con = "合并汇总报告.html")
  

补充：如果需要更灵活的排版，也可以使用htmltools包的标签函数结构化组合各个内容块，核心逻辑一致：先获取每个表格、图表的独立HTML源码，再统一组合为完整文档输出，不要使用默认的直接输出到查看器的模式。

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