使用kable展示数据框列表丢失格式，如何在Viewer/html中并排展示多表格

保留kable格式的实现方法 #

直接给kable传入数据框列表会丢失样式，是因为kable_styling无法正确识别列表拼接生成的多表格DOM结构。你可以单独为每个表格生成带完整样式的kable对象，再通过布局参数实现并排，同时自定义区分样式：

最简kable原生方案（适合Rmd/Quarto场景） #

通过position参数控制浮动，同时自定义间距、边框增强区分度：

library(kableExtra)

# 第一个表格左浮动，设置右侧间距、右侧边框做区分
kable(head(cars), caption = "cars前6行") %>%
  kable_styling(
    full_width = FALSE,
    position = "float_left",
    margin_right = "30px"
  ) %>%
  # 可选：添加右侧边框区分两个表格
  column_spec(1:2, border_right = "2px solid #e5e7eb")

# 第二个表格同样左浮动，自动排列到第一表格右侧
kable(head(iris), caption = "iris前6行") %>%
  kable_styling(full_width = FALSE, position = "float_left")

灵活布局方案（适合所有HTML/Viewer场景） #

配合htmltools实现更自由的样式控制，支持任意数量表格并排：

library(kableExtra)
library(htmltools)

# 单独生成带完整样式的表格
tab1 <- kable(head(cars)) %>% kable_styling(full_width = FALSE)
tab2 <- kable(head(iris)) %>% kable_styling(full_width = FALSE)

# flex布局实现并排，自定义间距、外层边框做区分
div(
  style = "display: flex; gap: 40px; align-items: flex-start;",
  div(style = "padding: 12px; border: 1px solid #ddd; border-radius: 6px;", tab1),
  div(style = "padding: 12px; border: 1px solid #ddd; border-radius: 6px;", tab2)
)

你可以自行调整gap（表格间距）、border（边框样式）、padding（内边距）等参数，实现不同的区分效果。

其他多表格并排实现方案 #

除kable体系外，还有三类常用的成熟方案可选：

• gt包方案：官方表格工具，自定义样式能力极强，原生支持多表格并排：

library(gt)
library(gtExtras)

tab1 <- gt(head(cars)) |> tab_header(title = "cars数据集")
tab2 <- gt(head(iris)) |> tab_header(title = "iris数据集")

# 直接生成并排布局
gt_two_column_layout(tables = list(tab1, tab2))

• flextable包方案：对HTML、Word、PDF多格式输出兼容性好，适合跨格式输出场景：

library(flextable)

tab1 <- flextable(head(cars))
tab2 <- flextable(head(iris))

# 并排输出
ft_group_next(list(tab1, tab2))

• DT包方案：如果需要交互式可搜索、排序的表格，配合flex布局即可实现并排交互表格，适合需要用户操作的场景。

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