R语言导出分析结果
2019-03-15 本文已影响0人
大道无形x我有型
结果输出，最主要的是数据集输出和表格输出两类
数据集输出
数据集读取和输出，用spss格式读入，stata格式输出，实在是太方便了：
library("foreign")
datain <- read.spss(file="F:/DATA/data.sav")
write.dta(datain, file="F:/DATA/finaldata.dta")
表格输出
表格输出，最有爱的就是使用xtable啦！
library("xtable")
xtable <- xtable(outbox,caption="title")
print(xtable, type = "html")
#output into html, usually used in Rmd.
#and if you use R Markdown, you should make sure the option "results='asis'" is set.
print(xtable)
#output into latex style.
#and if you use R Sweave, you should make sure the option "results=tex" is set.
今天新见到一个使用stargazer包的方法，确实很方便，但目前只支持Latex输出。
<<results=tex>>=
library(stargazer)
stargazer(attitude)
#output basic statistics.
stargazer(linear.1, linear.2, probit.model, title="Regression Results", align=TRUE)
#compare sever models in one table.
#It's really awesome!
@
实际上，我的博客现在也支持Latex语言了，信不信？我输出一段儿Latex给各位看一下，哈哈。
————没成功！！！只能支持公式，不支持表格！！！
图片输出
图片输出，在Rmd中，应设置fig.show=’asis’；在Rnw中，应设置fig=TRUE。
万能的例外情况
当然，很多情况下，也会遇到xtable不识别的情况，特别是复杂建模使用不常见的程序之时。那怎么办呢？capture.output可以直接输出屏显内容，真正的所见即所得：
capture.output(..., file = NULL, append = FALSE)
capture.output(summary(modelfit), file = "F:/DATA/output.txt" )
