如何解决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}
时,输出表将被压缩以适合一页。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。