如何在 Quarto 中縮放表格以適應 PDF 頁面?
例子:
---
title: "Untitled"
format: pdf
---
```{r setup}
#| include: false
library(dplyr)
library(gt)
```
```{r tbl}
#| include: true
#| echo: false
tibble(a = 1000, b = 2000, c = 3000, d = 4000, e = 5000, f = 6000, g = 7000,
h = 8000, i = 9000, j = 10000, k = 11000, l = 12000, m = 13000, n = 14000,
o = 15000, p = 16000, q = 17000, r = 18000, s = 19000, t = 20000, u = 21000,
v = 22000, w = 23000, x = 24000, y = 25000, z = 26000) %>%
gt()
```
這會生成一個 PDF,其中表格在頁面之外運行:

我曾嘗試使用該gt tab_options()功能,但這似乎只適用于 HTML 輸出。
uj5u.com熱心網友回復:
你實際上有太多的列不適合肖像模式,我建議嘗試橫向模式。
然而,如果你想容納太多的列,你可以使用小字體,減少列之間的間隙,并在左右邊距上留出一些空間。
---
title: "Untitled"
format: pdf
---
```{r setup}
#| include: false
library(dplyr)
library(gt)
```
\begingroup
\setlength{\LTleft}{0pt minus 500pt}
\setlength{\LTright}{0pt minus 500pt}
\fontsize{5pt}{7pt}\selectfont
\addtolength{\tabcolsep}{-3pt}
```{r tbl, results='asis'}
#| include: true
#| echo: false
tibble(a = 1000, b = 2000, c = 3000, d = 4000, e = 5000, f = 6000, g = 7000,
h = 8000, i = 9000, j = 10000, k = 11000, l = 12000, m = 13000, n = 14000,
o = 15000, p = 16000, q = 17000, r = 18000, s = 19000, t = 20000, u = 21000,
v = 22000, w = 23000, x = 24000, y = 25000, z = 26000) %>%
gt() %>%
as_latex()
```
\endgroup

轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/516638.html
標籤:rpdf乳胶gt四开
