Автоматическая настройка ширины таблицы LaTeX для установки в pdf с использованием knitr и Rstudio

Ответ 1

Вы можете передать аргумент 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 вокруг него вручную.

Ответ 2

Ниже приведены некоторые типичные шаги, которые можно предпринять для сокращения размера таблицы.

\setlength{\tabcolsep}{1pt}

\resizebox{\linewidth}{!}{   %% <-- The most effective way to fit a table / figure
\begin{tabular}
...
...
\end{tabular}
} %resizebox

Для использования текста используйте \sf, чтобы сделать текст более заметным.

Ответ 3

Обновление, чтобы отразить изменения в коде за последние несколько лет, и предпочтение для людей, как правило, работать в .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")
```

Ответ 4

Как насчет автоматического разделения широких таблиц на части, как на старых старых терминалах VT100 на 80 символов? Как правило, это хорошая практика для таблиц 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.

Ответ 5

Пакет LaTeX tabulary лучше подходит для установки таблицы на ширину страницы. Например, можно сказать, что нужно разбить строки. Но я не знаю, можете ли вы использовать его с помощью xxtable.

Ответ 6

Другим вариантом может быть что-то вроде:

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]{@{}[email protected]{}}%s\\end{tabular}", s),
         character(1))
}

применяется ко всем столбцам шириной

Ответ 7

Следующие работы отлично подходят для меня:

    print(xtable(wide.df), scalebox='0.75', floating=FALSE)

Это особенно полезно для таблиц в R Markdown.