将lm摘要结果导出为word表格以供发布[重复]答案

【问题标题】：exporting lm summary results as a table in word for publication [duplicate]将lm摘要结果导出为word表格以供发布[重复]
【发布时间】：2017-12-16 17:48:09
【问题描述】：

我有以下结果。我想用 word 制作这些结果的干净可发布的手稿表，但我不确定是否允许我通过 R 而不是通过可怕的复制和粘贴来做到这一点的代码。有人可以帮忙吗？

calfrg <- read.csv("~/Desktop/R/CalFRG2017.csv", header = TRUE)
attach(calfrg)
model1 = lm(formula = energy ~ infectionstatus+ fl + weight + site + infectionstatus*weight +site*weight + infectionstatus*fl + site*fl +weight*fl +infectionstatus*weight*fl + site*weight*fl, data = calfrg)
summary(model1)
model2 = lm(formula = percentmoisture ~ infectionstatus+ fl + weight +site + infectionstatus*weight +site*weight + infectionstatus*fl + site*fl +weight*fl +infectionstatus*weight*fl + site*weight*fl, data = calfrg)
summary(model2)
model3 = lm(formula = cf ~ infectionstatus + site, data = calfrg)
summary(model3)
model4 = lm(formula = relativecf ~ infectionstatus +site, data = calfrg)
summary(model4)

【问题讨论】：

除了答案之一中提到的knitr::kable，请参阅kableExtra 包以提高kable 表格格式的灵活性。

标签： r export lm

【解决方案1】：

您可以使用capture.output 捕获进入屏幕的输出，然后将其写入文件。

SText = capture.output(summary(lm(Sepal.Length ~ . , data=iris[,1:4])))
FileCon = file("IrisSummary.txt")
writeLines(SText, FileCon)
close(FileCon)

【讨论】：

或更短的方法是使用capture.output 的file = 参数在一行中执行此操作。

【解决方案2】：

您可以尝试使用 knitr::kable() 或 pander::pander() 看看。还有其他包可以帮助解决这个问题，最强大的可能是表格，但它确实有一个学习曲线。您还可以将摘要分配给一个对象，然后进一步处理该对象以获得您想要的打印方式。

【讨论】：