Texreg表无法放在一页上

Question

我有一个不适合一页的texreg (Latex表)。如何适应单页？

library(tidyverse)
library(texreg)

d <- mtcars %>% mutate_at(.vars=c('vs','am','gear','carb'), .funs=factor)

lm <- lm(hp~am*gear*carb*mpg*hp,data=d)

texreg(lm,file='texfile.tex',return.string=F) 

Answer 1

受this great answer启发的工作区

在Latex-document的开头，编写\usepackage{adjustbox}。然后，更改texreg输出，如下所示：

tr <- texreg(lm,return.string=T)

tr <- gsub("\\begin{tabular}"
           ,"\\begin{adjustbox}{totalheight=\\textheight-2\\baselineskip}\n\\begin{tabular}"
           ,tr
           ,fixed=T)

tr <- gsub("\\end{tabular}"
           ,"\\end{tabular}\n\\end{adjustbox}"
           ,tr
           ,fixed=T)

write_file(tr, 'test.tex')

现在，当您在Latex文件中编写\input{test.tex}时，输出表将被压缩为适合一页。