RMarkdown 到 PDF 两个 gt() 表并排

Question

我正在将 RMarkdown 中的报告开发为 PDF。

我正在使用以下代码生成 2 个表：

---
title: "R Notebook"
output: pdf_document
classoption: landscape
---

Blablabla

```{r include=FALSE}
library(tidyverse)
library(knitr)
library(gt)
```
\newpage

```{r}
table_1 <- filter(cars,speed<10) %>% gt() %>% as_latex()
table_2 <- filter(cars,speed<10) %>% gt() %>% as_latex()
table_1
table_2
```

我想在同一页面上并排放置 2 个表格。

有人知道怎么做吗？

谢谢，

迈克尔

Answer 1

使用 LaTeX。将 \textwidth 之前的 .5 替换为您希望每个 minipage 占总页面宽度的比例。

```{r, results="asis"}

cat("\\begin{table}[h]
  \\centering
  \\begin{minipage}{.5\\textwidth}",
    table_1,
  "\\end{minipage}%
  \\begin{minipage}{.5\\textwidth}",
    table_2,
  "\\end{minipage}
\\end{table}")
```