it-swarm.dev

Automatycznie dostosuj szerokość tabeli LaTeX, aby dopasować pdf za pomocą knitr i Rstudio

Używając Rstudio i knitr do produkcji latex-tables w formacie pdf, jak mogę dopasować szerokie tabele do strony? Po prostu szukam sposobu na zmniejszenie tabel.

W przypadku liczb jest to bardzo proste w Knitrze używającym out.width =, ale przy tabelach nie mogę znaleźć sposobu, aby to zrobić. 

Jakieś sugestie?

\documentclass{article}

\begin{document}

Poniższe tabele są zbyt szerokie, aby pasowały do ​​pdf. Mam nadzieję, że istnieje prosty sposób na ich zmniejszenie. W tym przykładzie użyłem tabel wygenerowanych z funkcji xtable (), stargazer () i 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}

Zgodnie z sugestiami Stat-R Próbowałem użyć resizebox, ale nie mogę go uruchomić:

\documentclass{article}
\usepackage{graphicx}
\begin{document}

Próbowałem użyć reshapebox, ale naprawdę nie wiem, jak go uruchomić w 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}

Dostaję ten błąd: 

! File ended while scanning use of \[email protected]@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 
22
Rene Bern

Możesz przekazać argument scalebox do print.xtable tak

<<results='asis'>>=
print(xtable(wide.df), scalebox='0.75')
@

To nie zmienia automatycznie rozmiaru tabeli, aby pasowała do strony (niestety xtable nie obsługuje argumentu resizebox), ale dla wielu aplikacji powyższe może być wystarczająco dobre.

Problem z twoim kodem polega na tym, że xtable zwraca tabelę owiniętą w środowisku table, a nie tabelaryczną. Jednakże, co musisz zawinąć w zmiennej resizebox, to zmienna tabular. Jedynym sposobem, aby zobaczyć, jak to działa, jest umożliwienie xtable zwracania tylko zmiennej tabular, w ten sposób:

\begin{table}
\resizebox{\textwidth}{!} {
<<results='asis'>>=
print(xtable(wide.df), floating=FALSE)
@
}
\end{table}

a następnie ręcznie napisać kod LaTeX.

14
RoyalTS

Aktualizacja w celu odzwierciedlenia zmian w kodzie ostatnich kilku lat oraz preferencji, aby ludzie zazwyczaj pracowali w formacie .RMarkdown zamiast w formacie Rnw.

Pakiet kableExtra w R jest najprostszym sposobem dostosowania rozmiaru tabel. Możesz skalować szerokość tabeli za pomocą funkcji kable_styling(latex_options = "scale_down"). Spowoduje to wymuszenie tabeli na szerokość strony.

   kable(iris[1:5,],
          format = "latex", booktabs = TRUE) %>%
          kable_styling(latex_options = "scale_down")

Więcej przykładów pakietu kableExtra znajdziesz tutaj: https://haozhu233.github.io/kableExtra/awesome_table_in_pdf.pdf

Oto przykład 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")
```

 enter image description here

9
Michael Harper

Poniżej przedstawiono typowe kroki, które można podjąć, aby zmniejszyć rozmiar tabeli.

\setlength{\tabcolsep}{1pt}

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

W przypadku tekstu użyj trybu \sf, aby tekst był bardziej widoczny.

2
LKB

Pakiet LaTeX tabulary lepiej dopasowuje tabelę do szerokości strony. Można na przykład nakazać łamanie linii. Ale nie wiem, czy możesz go używać z xtable.

0
nnn

Rozwiązanie oparte na huxtable (mój pakiet):

library(huxtable)
h <- as_hux(iris)
width(h) <- 0.5

Nie gwarantuje to, że tabela nie przekroczy określonej szerokości, a jeśli Przekroczy. Możliwe rozwiązania obejmują zmianę rozmiaru czcionki:

font_size(h) <- 8

Lub podział stołu:

h1 <- h[, 1:5]
h2 <- h[, -(1:5)]
0
user3603486

Poniższe działa dobrze dla mnie:

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

Jest to szczególnie przydatne w przypadku tabel w R Markdown.

0
John Maindonald

Inną opcją może być coś w rodzaju:

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))
}

stosowane do wszystkich kolumn, które są szerokie

0
Rentrop

A co z automatycznym podziałem szerokich tabel na części, tak jak na starych dobrych terminalach VT100 o szerokości 80 znaków? Jest to zwykle dobra praktyka dla tabel LaTex/docx/odt i domyślnie ustawiana w 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  
--------------------------------------

Aby uzyskać więcej szczegółów, zobacz ?pandoc.table i table.split.table w ?panderOptions.

0
daroczig