在R中打印或捕获多个对象

我在R脚本中有多重回归，希望将回归摘要附加到单个文本文件输出中。我知道我可以使用以下代码为一个回归摘要执行此操作，但如何为多个回归摘要执行此操作

---

rpt1您可以将结果存储为列表，然后使用
capture.output

fit1<-lm(mpg~cyl,data=mtcars)
fit2<-lm(mpg~cyl+disp,data=mtcars)
myresult<-list(fit1,fit2)
capture.output(myresult, file = "results.txt")

fit1如果要将多个输出发送到一个文件，请查看
sink
函数，它会将所有输出重定向到一个文件，直到您再次调用
sink
。
capture.output
函数实际上使用了
sink

您可能还对TeachingDemos软件包中的
txtStart
函数（和friends）感兴趣，该函数还将包含散布在输出中的命令，并提供更多的输出格式选项

最终，您可能需要研究knitr包，以了解如何在批处理中运行一组命令，并很好地将所有输出捕获在一起，这些输出的格式很好（并有文档记录）。
您可以将结果作为列表传递。
capture.output
中还有一个
append
参数。我还尝试了@joran的建议，使用
append
参数，这也非常有效。谢谢大家。