lmサマリー結果を出版用の表としてエクスポートする

Question

以下の結果が得られました。私はこれらの結果の清潔な公開可能な原稿の表を作成したいと思いますが、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) 

Answer 1

capture.outputを使用して出力された出力をキャプチャして、ファイルに書き込むことができます。

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

Answer 2

knitr :: kable（）またはpander :: pander（）を試してみることができます。これを手助けする他のパッケージもありますが、最も強力なのはおそらくテーブルですが、学習曲線はあります。また、サマリーをオブジェクトに割り当ててから、オブジェクトをさらに処理して、必要な形で印刷することもできます。