Автоматическая настройка ширины таблицы LaTeX для соответствия pdf с использованием knitr и Rstudio
Используя Rstudio и knitr для создания латексных таблиц в формате pdf, как сделать так, чтобы широкие таблицы помещались на странице? Я в основном ищу способ уменьшить таблицы.
С цифрами в Knitr действительно легко использовать out.width=, но с таблицами я не могу найти способ сделать это.
Какие-либо предложения?
\documentclass{article}
\begin{document}
Следующие таблицы слишком широки, чтобы соответствовать pdf. Я надеюсь, что есть простой способ уменьшить их, чтобы соответствовать. В этом примере я использовал таблицы, сгенерированные из функций xtable(), stargazer() и latex().
<<message=FALSE>>=
library(xtable)
library(stargazer)
library(Hmisc)
library(tables)
wide.df <- cbind(iris[1:10,],iris[1:10,],iris[1:10,])
@
<<results='asis'>>=
xtable(wide.df)
@
<<results='asis'>>=
stargazer(wide.df,summary=FALSE)
@
<<results='asis'>>=
latex( tabular( Species ~ (Sepal.Length +Sepal.Length + Sepal.Width + Petal.Length + Petal.Width )*(mean + sd + mean + mean ) , data=iris) )
@
\end{document}
Следуя советам Stat-R, я попытался использовать resizebox, но не смог заставить его работать:
\documentclass{article}
\usepackage{graphicx}
\begin{document}
Я пытался использовать Reshapebox, но я действительно не знаю, как заставить его работать в Rstudio/knitr:
<<message=FALSE>>=
library(xtable)
wide.df <- cbind(iris[1:10,],iris[1:10,],iris[1:10,])
@
\resizebox{0.75\textwidth}{!}{%
<<results='asis'>>=
xtable(wide.df)
@
%}
\end{document}
Я получаю эту ошибку:
! File ended while scanning use of \Gscale@box@dd.
sessioninfo()
R version 3.0.0 (2013-04-03)
Platform: i386-w64-mingw32/i386 (32-bit)
locale:
[1] LC_COLLATE=Danish_Denmark.1252 LC_CTYPE=Danish_Denmark.1252 LC_MONETARY=Danish_Denmark.1252 LC_NUMERIC=C
[5] LC_TIME=Danish_Denmark.1252
attached base packages:
[1] splines grid stats graphics grDevices utils datasets methods base
other attached packages:
[1] tables_0.7 Hmisc_3.10-1 survival_2.37-4 stargazer_3.0.1 pgirmess_1.5.7 splancs_2.01-32 spdep_0.5-56 coda_0.16-1 deldir_0.0-22
[10] maptools_0.8-23 foreign_0.8-53 MASS_7.3-26 Matrix_1.0-12 lattice_0.20-15 rgdal_0.8-9 sp_1.0-9 nlme_3.1-109 boot_1.3-9
[19] xtable_1.7-1 scales_0.2.3 plyr_1.8 reshape2_1.2.2 ggplot2_0.9.3.1
loaded via a namespace (and not attached):
[1] cluster_1.14.4 colorspace_1.2-2 dichromat_2.0-0 digest_0.6.3 evaluate_0.4.3 formatR_0.7 gtable_0.1.2 knitr_1.2
[9] labeling_0.1 LearnBayes_2.12 munsell_0.4 proto_0.3-10 RColorBrewer_1.0-5 stringr_0.6.2 tools_3.0.0
8 ответов
Обновление для отражения изменений в коде за последние несколько лет и предпочтения людей, как правило, работать в формате.RMarkdown вместо формата файлов Rnw.
kableExtra Пакет в R это самый простой способ для настройки размера таблиц. Вы можете масштабировать ширину таблицы, используя функцию kable_styling(latex_options = "scale_down"), Это заставит таблицу ширину страницы.
kable(iris[1:5,],
format = "latex", booktabs = TRUE) %>%
kable_styling(latex_options = "scale_down")
Дополнительные примеры пакета kableExtra можно найти здесь: https://haozhu233.github.io/kableExtra/awesome_table_in_pdf.pdf
Вот пример MWE:
---
title: "MWE"
author: "Mikey Harper"
date: "7 November 2017"
output: pdf_document
---
```{r setup, include=FALSE}
library(kableExtra)
library(magrittr)
knitr::opts_chunk$set(echo = TRUE)
```
```{r}
# Build the dataframe
wide.df <- cbind(iris[1:10,],iris[1:10,],iris[1:10,])
```
```{r}
# Basic table
knitr::kable(wide.df)
```
```{r}
# Scaled Table
knitr::kable(wide.df, format = "latex", booktabs = TRUE) %>%
kable_styling(latex_options = "scale_down")
```
Вы можете передать scalebox аргумент print.xtable вот так
<<results='asis'>>=
print(xtable(wide.df), scalebox='0.75')
@
Это автоматически не изменяет размер таблицы, чтобы соответствовать странице (к сожалению, xtable не поддерживает resizebox аргумент), но для многих приложений выше может быть достаточно.
Проблема с вашим кодом в том, что xtable возвращает таблицу, завернутую в table среда, а не только в табличной форме. Что вы должны завернуть в resizeboxОднако это tabular, Единственный способ убедиться, что это работает так, как вы хотите, - это чтобы xtable возвращал только tabular, вот так:
\begin{table}
\resizebox{\textwidth}{!} {
<<results='asis'>>=
print(xtable(wide.df), floating=FALSE)
@
}
\end{table}
а затем написать код LaTeX вокруг него вручную.
Ниже приведены некоторые типичные шаги, которые вы можете предпринять, чтобы уменьшить размер таблицы.
\setlength{\tabcolsep}{1pt}
\resizebox{\linewidth}{!}{ %% <-- The most effective way to fit a table / figure
\begin{tabular}
...
...
\end{tabular}
} %resizebox
Для использования текста \sf режим, чтобы сделать текст более заметным.
huxtableрешение (мой пакет):
library(huxtable)
h <- as_hux(iris)
width(h) <- 0.5
Это не гарантирует, что таблица не будет превышать указанную ширину, и если это так, она будет переполнена. Возможные решения включают изменение размера шрифта:
font_size(h) <- 8
Или разделить таблицу:
h1 <- h[, 1:5]
h2 <- h[, -(1:5)]
Следующее работает отлично для меня:
print(xtable(wide.df), scalebox='0.75', floating=FALSE)
Это особенно полезно для таблиц в R Markdown.
Как насчет автоматического разделения широких таблиц на части, как на старых добрых 80-символьных терминалах VT100? Обычно это хорошая практика для таблиц LaTex/docx/odt и устанавливается по умолчанию в pander:
> set.caption('Hello Fisher!')
> pander(wide.df)
---------------------------------------------------------
Sepal.Length Sepal.Width Petal.Length Petal.Width
-------------- ------------- -------------- -------------
5.1 3.5 1.4 0.2
4.9 3 1.4 0.2
4.7 3.2 1.3 0.2
4.6 3.1 1.5 0.2
5 3.6 1.4 0.2
5.4 3.9 1.7 0.4
4.6 3.4 1.4 0.3
5 3.4 1.5 0.2
4.4 2.9 1.4 0.2
4.9 3.1 1.5 0.1
---------------------------------------------------------
Table: Hello Fisher! (continued below)
-----------------------------------------------------
Species Sepal.Length Sepal.Width Petal.Length
--------- -------------- ------------- --------------
setosa 5.1 3.5 1.4
setosa 4.9 3 1.4
setosa 4.7 3.2 1.3
setosa 4.6 3.1 1.5
setosa 5 3.6 1.4
setosa 5.4 3.9 1.7
setosa 4.6 3.4 1.4
setosa 5 3.4 1.5
setosa 4.4 2.9 1.4
setosa 4.9 3.1 1.5
-----------------------------------------------------
Table: Table continues below
----------------------------------------------------
Petal.Width Species Sepal.Length Sepal.Width
------------- --------- -------------- -------------
0.2 setosa 5.1 3.5
0.2 setosa 4.9 3
0.2 setosa 4.7 3.2
0.2 setosa 4.6 3.1
0.2 setosa 5 3.6
0.4 setosa 5.4 3.9
0.3 setosa 4.6 3.4
0.2 setosa 5 3.4
0.2 setosa 4.4 2.9
0.1 setosa 4.9 3.1
----------------------------------------------------
Table: Table continues below
--------------------------------------
Petal.Length Petal.Width Species
-------------- ------------- ---------
1.4 0.2 setosa
1.4 0.2 setosa
1.3 0.2 setosa
1.5 0.2 setosa
1.4 0.2 setosa
1.7 0.4 setosa
1.4 0.3 setosa
1.5 0.2 setosa
1.4 0.2 setosa
1.5 0.1 setosa
--------------------------------------
Посмотри пожалуйста ?pandoc.table а также table.split.table в ?panderOptions Больше подробностей.
Другим вариантом может быть что-то вроде:
my_wrap <- function(x, width) {
x_split <- strwrap(x, width = width, simplify = FALSE)
x_split <- lapply(x_split, paste, collapse = " \\\\ ")
vapply(x_split, function(s) sprintf("\\begin{tabular}[x]{@{}c@{}}%s\\end{tabular}", s),
character(1))
}
применяется ко всем столбцам, которые имеют широкий
У меня есть уродливый, но эффективный способ сделать это в Stargazer. Похоже, что он длиннее, чем подходы, описанные выше, но если вы сообщаете результат регрессии, это может быть более простым рабочим процессом для вас, чем для меня.
Функция "WrapPageWidthLatex" добавляет / добавляет код окна изменения размера к выходным данным Stargazer. Предполагается, что вы установили float = FALSE, и я установил ряд других параметров для экономии места в моей таблице. Остальное - просто очистить полученный результат. "include=FALSE" помогает подавить раздражающую информацию о цитировании звездочета в вашем документе. "float = FALSE" помогает подавить латексный код, который в противном случае превратил бы его в float. Это значительно упрощает добавление необходимого кода. "column.sep.width = "0pt"" и "font.size="tiny"" помогают сузить столбцы и, следовательно, уменьшить необходимость в изменении масштаба.
title: "Stackru Example"
author: "Bkay"
date: "6/15/2020"
output:
beamer_presentation:
keep_tex: true
header-includes:
- \usepackage{dcolumn}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(stargazer)
```
## Slide with R Output
```{r rcodehere, results='asis', warning = FALSE, echo=FALSE}
WrapPageWidthLatex <- function(InputCode){
OutputCode = append("\\resizebox{\\textwidth}{!}{", InputCode)
OutputCode = rlang::prepend("}", OutputCode)
return(OutputCode)
}
x = -10:10
xsqr = x^2
y = 2 + x*3 + 0.2 * xsqr + rnorm(length(x))
model1 = lm(y ~ x)
model2 = lm(y ~ x + xsqr)
cat(
WrapPageWidthLatex(
capture.output(
stargazer(
model1, model2,
align=TRUE,
omit.stat=c("adj.rsq", "ser", "f"),
font.size="tiny",
header=FALSE,
column.sep.width = "0pt",
float = FALSE,
type="latex"
)
)
)
)
```
Выход:
Пакет LaTeX tabulary лучше подгонять стол к ширине страницы. Например, можно сказать разбить строки. Но я не знаю, сможете ли вы использовать его с xtable.