如何在R Markdown中实现两张gt表格并排显示？

要让两个gt表格在blastula邮件输出中并排显示，直接用分号输出会因HTML默认块级元素布局导致上下排列，我们可以通过**HTML弹性布局（flexbox）**实现同行展示，具体代码如下：

title: "2_test_RMD"
output: blastula::blastula_email
date: "2024-09-26" #

library(gt)
library(htmltools) # 用于创建HTML布局容器

# 预先创建两个gt表格对象
table_left <- gt(head(mtcars))
table_right <- gt(head(mtcars))

# 使用flex布局实现并排
div(
  style = "display: flex; gap: 15px;", # 外层容器开启弹性布局，设置表格间距
  div(style = "flex: 1;", table_left), # 左侧表格占1份宽度
  div(style = "flex: 1;", table_right) # 右侧表格占1份宽度
)

关键说明： #

• 必须加载htmltools包，用来生成控制布局的HTML容器
• 外层div的display: flex是核心，让子元素（两个表格）在同一行排列
• gap: 15px用来设置两个表格之间的空白间距，可根据需求调整
• 内层div的flex: 1让两个表格自动平分可用宽度，也可以替换成固定宽度比如width: 48%来预留间距

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