如何优雅地将你的R统计结果输出到Word?

文章来源：https://mp.weixin.qq.com/s?__biz=MzIwMDIwNTIyNQ==&mid=2247487461&idx=1&sn=c15482dfac4eca5980b53902b46c8d6f&chksm=9681f923a1f67035c90f9778e24f2fc8cda0173760c8bdfe3cd4068066c594cfe1927d903618&token=813307081&lang=zh_CN#rd

将R的统计结果输出，以前的推文有跟大家学习过：R语言提取Logstic回归主要结果并生成三线表，如何快速绘制论文的表1（基本特征三线表）| tableone包你值得拥有，一种方法是大家可以用write.csv将结果输出到Excel然后再粘贴到Word。今天跟大家一起学习另一种方法，使用的是xtable和flextable包，主要函数是xtable_to_flextable，用途是将R结果输出到Word。使用的数据集是mtcars。

data("mtcars")

1.统计描述（均数和标准差）

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

关于管道操作，大家可以参考：[标题](链接地址

导出到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包也可以实现将R统计结果输出到Microsoft
,感兴趣的可以自己了解一下。

欢迎大家关注我的公众号！