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

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

```{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}")
```

RMarkdown 到 PDF 两个 gt() 表一个挨着另一个

RMarkdown to PDF two gt() tables one next to the other

pdf

r-markdown

gt