將R的統(tǒng)計(jì)結(jié)果輸出，以前的推文有跟大家學(xué)習(xí)過：R語言提取Logstic回歸主要結(jié)果并生成三線表，如何快速繪制論文的表1（基本特征三線表）| tableone包你值得擁有，一種方法是大家可以用write.csv將結(jié)果輸出到Excel然后再粘貼到Word。今天跟大家一起學(xué)習(xí)另一種方法，使用的是xtable和flextable包，主要函數(shù)是xtable_to_flextable，用途是將R結(jié)果輸出到Word。使用的數(shù)據(jù)集是mtcars。
data("mtcars")
1.統(tǒng)計(jì)描述（均數(shù)和標(biāo)準(zhǔn)差）
library(dplyr)
mtcars_summ <- group_by(mtcars, cyl) %>%
summarize(mean_mpg = mean(mpg), sd_mpg = round(sd(mpg), 2))
mtcars_summ
library(xtable)
library(flextable)
m1 = xtable_to_flextable(xtable(mtcars_summ))
m1
關(guān)于管道操作，大家可以參考：[標(biāo)題](鏈接地址
導(dǎo)出到Word
library(officer)
doc = read_docx()
doc = body_add_flextable(doc,m1)
print(doc,"d:/m1.docx")
2.方差分析
mod1 = summary(aov(mpg ~ cyl + vs, data=mtcars))
m2=xtable_to_flextable(xtable(mod1))
doc = read_docx()
doc = body_add_flextable(doc,m2)
print(doc,"d:/m2.docx")
3.簡單線性回歸
mod2 = summary(lm(mpg ~ disp,mtcars))
m3=xtable_to_flextable(xtable(mod2))
doc = body_add_flextable(doc,m3)
print(doc,"d:/m3.docx")
4.多元線性回歸
mod3 = summary(lm(mpg ~ disp+hp +drat +wt +qsec,mtcars))
m4 = xtable_to_flextable(xtable(mod3))
doc = body_add_flextable(doc,m4)
print(doc,"d:/m4.docx")
另外，作為圖表輸出和讀入的eoffice包也可以實(shí)現(xiàn)將R統(tǒng)計(jì)結(jié)果輸出到Microsoft
,感興趣的可以自己了解一下。
歡迎大家關(guān)注我的公眾號！
