r - 使用 knitr 和 Rstudio 自动调整 LaTeX 表格宽度以适合 pdf

Question

使用 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

score 18 · Accepted Answer

您可以将scalebox参数传递给print.xtablelike

<<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 代码。

score 18 · Accepted Answer

更新以反映过去几年代码的变化，以及人们通常使用 .RMarkdown 而不是 Rnw 文件格式工作的偏好。

R 中的kableExtra包是调整表格大小的最简单方法。您可以使用函数缩放表格的宽度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")
```

score 2 · Accepted Answer

以下是您可以采取的一些典型步骤来缩小表大小。

\setlength{\tabcolsep}{1pt}

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

用于文本使用\sf模式以使文本更加可见。

score 1 · Accepted Answer

就像在老式的 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

score 0 · Accepted Answer

LaTeX 包tabulary更适合将表格适合页面宽度。例如，可以告诉它断线。但我不知道你是否可以将它与xtable一起使用。

score 0 · Accepted Answer

我在 Stargazer 中有一个丑陋但有效的方法来做到这一点。它看起来比上面的方法更长，但是如果您要报告回归输出，这对您来说可能是一个更简单的工作流程，就像对我一样。

函数“WrapPageWidthLatex”将调整大小框代码附加/预先添加到 stargazer 输出。它假定您设置了 float = FALSE 并且我设置了许多其他选项来节省表中的空间。剩下的只是清理结果输出。“include=FALSE”有助于抑制文档中烦人的观星者引用信息。“float = FALSE”有助于抑制乳胶代码，否则会使它变成浮点数。这使得附加所需代码变得更加容易。"column.sep.width = "0pt"" 和 "font.size="tiny"" 有助于使列变窄，从而减少重新缩放的需要。

title: "StackOverflow 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"
                )
            )
        )
    )    

```

输出：

score 0 · Accepted Answer

基于Ahuxtable的解决方案（我的包）：

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

这并不能保证表格不会超过指定的宽度，如果超过，它将超出范围。可能的解决方案包括更改字体大小：

font_size(h) <- 8

或拆分表：

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

score 0 · Accepted Answer

另一种选择可能是这样的：

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

应用于所有宽的列

score 0 · Accepted Answer

以下对我来说很好：

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

这对于 R Markdown 中的表格特别有用。

r - 使用 knitr 和 Rstudio 自动调整 LaTeX 表格宽度以适合 pdf

9 回答 9

Related

Reference