如何在R Markdown的R代码块中嵌入LaTeX代码，循环生成并排flextable？

方法1：结合knitr::asis_output与LaTeX minipage（正确处理转义） #

核心是在R代码块中用cat输出LaTeX的minipage环境，配合results='asis'选项让knitr直接渲染内容，同时注意用双反斜杠转义LaTeX命令，并且在打印flextable时禁用预览。

完整代码示例：

---
title: "循环生成并排Flextable"
output: pdf_document
---

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

# 模拟多组待展示数据
data_groups <- list(
  mtcars[1:5, 1:3],
  iris[1:5, 1:4],
  mtcars[6:10, 1:3],
  iris[6:10, 1:4]
)

# 每2个表格为一组，循环生成并排布局
for (idx in seq(1, length(data_groups), by = 2)) {
  # 第一个表格的minipage
  cat("\\begin{minipage}{0.48\\linewidth}\n")
  ft_left <- flextable(data_groups[[idx]]) %>% autofit()
  print(ft_left, preview = FALSE)  # 禁用预览，直接输出LaTeX代码
  cat("\\end{minipage}\\hfill\n")  # \\hfill 实现左右表格间距
  
  # 若存在第二个表格，生成右侧并排
  if (idx + 1 <= length(data_groups)) {
    cat("\\begin{minipage}{0.48\\linewidth}\n")
    ft_right <- flextable(data_groups[[idx + 1]]) %>% autofit()
    print(ft_right, preview = FALSE)
    cat("\\end{minipage}\n\\vspace{1em}\n")  # \\vspace 添加组间垂直间距
  }
}

## 方法2：直接输出flextable的LaTeX代码（更简洁）
利用`flextable::to_latex()`将表格直接转为LaTeX代码，再用`cat`嵌入minipage环境，无需调用`print()`，逻辑更清晰：

```r
```{r, results='asis'}
for (idx in seq(1, length(data_groups), by = 2)) {
  cat("\\begin{minipage}{0.48\\linewidth}\n")
  cat(to_latex(flextable(data_groups[[idx]]) %>% autofit()))
  cat("\\end{minipage}\\hfill\n")
  
  if (idx + 1 <= length(data_groups)) {
    cat("\\begin{minipage}{0.48\\linewidth}\n")
    cat(to_latex(flextable(data_groups[[idx + 1]]) %>% autofit()))
    cat("\\end{minipage}\n\\vspace{1em}\n")
  }
}

### 关键注意事项
- 代码块必须设置`results='asis'`，否则knitr会把LaTeX代码当成普通文本输出
- LaTeX命令中的反斜杠必须用双反斜杠`\\`转义，避免被R解析为转义字符
- 用`autofit()`调整表格宽度，确保能适配minipage的宽度（可根据需求修改`0.48\\linewidth`为其他比例）
- `\\hfill`用于填充左右表格的间隙，`\\vspace{1em}`用于增加组与组之间的垂直距离

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