这个问题在这里已有答案：
我有以下结果。我想用干净的可发表的手稿表来表达这些结果，但我不确定代码是否允许我通过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)
您可以使用capture.output捕获进入屏幕的输出，然后将其写入文件。
SText = capture.output(summary(lm(Sepal.Length ~ . , data=iris[,1:4])))
FileCon = file("IrisSummary.txt")
writeLines(SText, FileCon)
close(FileCon)
您可以尝试使用knitr :: kable（）或pander :: pander（）并查看。还有其他软件包可以帮助解决这个问题，最强大的可能就是表格，但确实有学习曲线。您还可以将摘要分配给对象，然后进一步处理对象以获得所需的打印方式。