R语言中如何写入xlsx的不同sheet表格

背景:

想要实现一个功能, 将不同的数据写入一个Excel中, 不同的数据对应不同的sheet表, 看了一下R语言, 找到的解决方法如下.

测试思路

  • 模拟两个数据框
  • 新建一个list表
  • 写入excel中

代码

aa<-data.frame(1:5,2:6)ab<-data.frame(2:60,13:71)library(openxlsx)sheets = list("sheet1"=aa,"sheet2"=ab)write.xlsx(sheets,"d:/ex.xlsx")

结果

感想:

最近发现, R语言中的list更好用, 我的R语言水平感觉要进步一个台阶了...

运用R语言的list示例:

需求描述: 现在有3个Excel, 想把这些Excel合并到一个Excel中的不同sheet表中, 如何实现?

根据糙快猛的解决方案, 新建一个Excel, 将这三个Excel的内容复制进去, 保存, 退出完成.

如果有90个Excel呢? 这就突出编程的效果了.

解决问题思路:

1, 使用dir函数, 返回文件名的集合

2, 新建一个list, 赋值为空NULL

3, 写一个for循环, 循环读入, 并保存到list中

4, 对list重命名

代码如下:

a = dir()nlist=NULLfor(i in 1:length(a)){  nlist[[i]] = read.xlsx(a[i])}names(nlist) =awrite.xlsx(nlist,"hebing.xlsx")

打开结果:

搞定!

原文发布于微信公众号 - 育种数据分析之放飞自我(R-breeding)

原文发表时间:2019-03-27

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券