R问题集|1 如何把数据导出到Excel？

专题介绍：R是一种广泛用于数据分析和统计计算的强大语言，于上世纪90年代开始发展起来。得益于全世界众多爱好者的无尽努力，大家继而开发出了一种基于R但优于R基本文本编辑器的R Studio（用户的界面体验更好）。也正是由于全世界越来越多的数据科学社区和用户对R包的慷慨贡献，让R语言在全球范围内越来越流行。其中一些R包，例如MASS，SparkR， ggplot2，使数据操作,可视化和计算功能越来越强大。R是用于统计分析、绘图的语言和操作环境。R是属于GNU系统的一个自由、免费、源代码开放的软件，它是一个用于统计计算和统计制图的优秀工具。R作为一种统计分析软件，是集统计分析与图形显示于一体的。它可以运行于UNIX、Windows和Macintosh的操作系统上，而且嵌入了一个非常方便实用的帮助系统，相比于其他统计分析软件，R的学术性开发比较早，适合生物学和医学等学术学科的科研人员使用。

是新朋友吗？记得先点R语言关注我哦～

《R问题集》专栏·第1篇

文 | RUser

940字 |3分钟阅读

【R语言】开通了R语言群，大家相互学习和交流，请扫描下方二维码，备注：姓名-R群，我会邀请你入群，一起进步和成长。

R问题集来源于我实际工作或者项目中使用R语言的时候所遇到的问题，或者是我创建的R语言群里面群友们所提出的问题，把这些问题做成一个专栏，在解决问题中学习和应用R语言。

第1个问题，如何把数据导出到Excel？

我分享两个R包，一个是xlsx包，一个是r2excel包，后者这个包，是在xlsx包的基础增加Excel的格式操作和管理。

xlsx包，依赖于rJava包，而rJava包需要提前安装Java开发的软件，并做好环境变量配置。

r2excel包，可以采用我以前写过的一篇文章，本地化安装github包的方法进行安装。（安装若有问题，请加我微信）

使用这两个包，进行数据导出到Excel的代码示范。

解决方案一：使用xlxl包把数据导出到Excel

# 使用xlsx包
library(pacman)
p_load(xlsx)

# 使用R语言自带的数据集
# 导出数据集1：USArrests
write.xlsx(USArrests, 
           file = "myworkbook.xlsx",
           sheetName = "USA-ARRESTS", 
           append = FALSE)
# 导出数据集2：mtcars
write.xlsx(mtcars, 
           file = "myworkbook.xlsx", 
           sheetName="MTCARS", 
           append=TRUE)
# 导出数据集3：iris
write.xlsx(iris, 
           file = "myworkbook.xlsx",
           sheetName="IRIS1", 
           row.names = FALSE,
           append=TRUE)

解决方案二：使用r2excel包把数据导出到Excel

同时，还可以把Excel做格式化管理

library("r2excel")
filename<-"data_report.xlsx"
wb <- createWorkbook(type="xlsx")
sheet <- xlsx::createSheet(wb, sheetName = "表1")
xlsx.addHeader(wb, 
               sheet, 
               value="Excel file written with r2excel packages",
               level=1, 
               color="darkblue", 
               underline=2)         
xlsx.addLineBreak(sheet, 2)

data(iris)
xlsx.addHeader(wb, sheet, value="Customized table", level=2)
xlsx.addLineBreak(sheet, 1)
xlsx.addTable(wb, sheet, data= head(iris),
              fontColor="darkblue", fontSize=14,
              rowFill=c("white", "lightblue")
)
xlsx.addLineBreak(sheet, 2)

data(ToothGrowth)
xlsx.addHeader(wb, sheet, " Add Plot", level=2)
xlsx.addLineBreak(sheet, 1)
plotFunction<-function(){boxplot(len ~ dose, data = ToothGrowth, col = 1:3)}
xlsx.addPlot(wb, sheet, plotFunction())

xlsx::saveWorkbook(wb, filename)
xlsx.openFile(filename)