Texreg 表不适合一页

问题描述

我有一个无法放在一页上的 texreg（乳胶表）。如何适应单页？

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) 

解决方法

受 this great answer 启发的解决方法：

在 Latex 文档的开头，写下 \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}",fixed=T)

write_file(tr,'test.tex')

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