如何在R Markdown中实现整洁的网格/类表格布局？

我之前刚好折腾过R Markdown里的多列平铺布局，确实得根据你要输出的格式（HTML/PDF/Word）来选不同的方法，毕竟三种格式的渲染逻辑差异挺大的。下面给你分场景讲具体的实现方案，亲测有效：

HTML输出（最省心，推荐优先用） #

R Markdown默认集成了Bootstrap网格系统，直接用HTML标签就能轻松实现多列布局，对文本、表格、绘图的兼容性都很好：

---
title: "HTML多列布局示例"
output: html_document
---

#### 两列布局：统计摘要 + 散点图
<div class="row">
  <div class="col-md-6">
    ```{r, echo=FALSE}
    # 输出cars数据集的统计摘要
    summary(cars)
    ```
  </div>
  <div class="col-md-6">
    ```{r, echo=FALSE, fig.width=6, fig.height=4}
    # 绘制散点图
    plot(speed ~ dist, data = cars)
    ```
  </div>
</div>

#### 三列布局示例
<div class="row">
  <div class="col-md-4">
    **第一列：数据集前3行**
    ```{r, echo=FALSE}
    head(cars, 3)
    ```
  </div>
  <div class="col-md-4">
    **第二列：反向散点图**
    ```{r, echo=FALSE, fig.width=4, fig.height=3}
    plot(dist ~ speed, data = cars)
    ```
  </div>
  <div class="col-md-4">
    **第三列：关键统计值**
    ```{r, echo=FALSE, results='asis'}
    cat("- 平均速度：", round(mean(cars$speed), 2), "\n")
    cat("- 最大行驶距离：", max(cars$dist), "\n")
    ```
  </div>
</div>

• col-md-6表示占页面一半宽度，col-md-4是三分之一宽度，Bootstrap会自动在小屏幕上堆叠内容，桌面端保持并排
• 调整代码块里的fig.width/fig.height可以控制绘图大小，和列宽匹配

PDF输出（依赖LaTeX语法） #

PDF渲染基于LaTeX，用minipage环境就能实现多列对齐，文本、表格、绘图都能适配：

---
title: "PDF多列布局示例"
output: pdf_document
---

#### 两列布局：统计摘要 + 散点图
\begin{minipage}{0.48\textwidth}
```{r, echo=FALSE, results='asis'}
cat("**Cars数据集统计摘要**\n\n")
print(summary(cars))

\end{minipage}
\hfill # 填充空白，让两列分开
\begin{minipage}{0.48\textwidth}

plot(speed ~ dist, data = cars)

\end{minipage}

三列布局示例

\begin{minipage}{0.3\textwidth}

head(cars, 2)

\end{minipage}
\hfill
\begin{minipage}{0.3\textwidth}

plot(dist ~ speed, data = cars)

\end{minipage}
\hfill
\begin{minipage}{0.3\textwidth}

cat("中位数速度：", median(cars$speed), "\n")
cat("中位数距离：", median(cars$dist), "\n")

\end{minipage}

- `minipage{0.48\textwidth}`表示占页面宽度的48%，留2%的空白避免内容重叠
- `results='asis'`参数让R的输出直接渲染成LaTeX格式，保证排版美观

---

### Word输出（需要用officer+flextable组合）
Word的排版逻辑比较特殊，单纯用Markdown语法很难控制对齐，推荐用`officer`直接操作Word文档对象，配合`flextable`处理表格，能精准实现多列布局：

首先安装依赖包：
```r
install.packages(c("officer", "flextable", "ggplot2"))

然后写R Markdown代码：

---
title: "Word多列布局示例"
output: word_document
---

```{r setup, include=FALSE}
library(officer)
library(flextable)
library(ggplot2)

# 创建空的Word文档对象
doc <- read_docx()

# 把统计摘要转成可控制宽度的表格
sum_table <- flextable(summary(cars)) %>% 
  set_table_properties(width = 0.45) # 设置表格宽度占比

# 准备散点图
p <- ggplot(cars, aes(x=dist, y=speed)) + geom_point()

# 添加两列布局：左边表格，右边绘图
doc <- doc %>%
  body_add_par("两列布局：统计摘要 + 散点图", style = "heading 2") %>%
  body_add_gg(p, width = 4, height = 3, style = "centered") %>%
  body_add_flextable(sum_table, align = "left", pos = "before") %>% # 把表格放在绘图前面
  body_add_par("", style = "Normal") # 添加空行分隔内容

# 添加三列布局：用section设置三栏
doc <- doc %>%
  body_add_par("三列布局示例", style = "heading 2") %>%
  body_end_section_columns(widths = c(3,3,3), space = 0.1, sep = FALSE) %>% # 三栏等宽
  body_add_par("第一列：数据集前3行", style = "heading 3") %>%
  body_add_flextable(flextable(head(cars,3)) %>% set_table_properties(width=1), align = "left") %>%
  body_add_par("第二列：散点图", style = "heading 3") %>%
  body_add_gg(p, width = 2.8, height = 2, style = "centered") %>%
  body_add_par("第三列：关键统计值", style = "heading 3") %>%
  body_add_par(paste("平均速度：", round(mean(cars$speed),2)), style = "Normal") %>%
  body_add_par(paste("最大距离：", max(cars$dist)), style = "Normal") %>%
  body_end_section_columns() # 结束三栏布局

# 输出最终Word文档
print(doc, target = "multi-column-layout.docx")

• 这种方法直接操作Word的底层对象，比单纯用officer的基础方法更灵活，能精准控制每个元素的位置和大小
• 调整widths参数可以自定义三列的宽度比例

总的来说，HTML输出的实现成本最低，PDF次之，Word需要用专门的包来处理，但三种格式都能实现你要的平铺/类表格布局效果。

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