【原】R語(yǔ)言中寫(xiě)入Excel的不同sheet表格

育種數(shù)據(jù)分析 2021-11-18

展開(kāi)全文

「灌水系列」

?
這是一個(gè)朋友提的問(wèn)題，R語(yǔ)言中有多個(gè)數(shù)據(jù)框，本來(lái)是一個(gè)數(shù)據(jù)框?qū)懭胍粋€(gè)Excel表。但是現(xiàn)在想要寫(xiě)入到一個(gè)Excel表中，畢竟Excel才是最通用的軟件，把每個(gè)數(shù)據(jù)框?qū)懭隕xcel不同的sheet表。
?

問(wèn)題解決

「代碼演示」代碼解釋：

首先建立兩個(gè)數(shù)據(jù)框aa和bb
然后載入openxlsx軟件包，主要是用于導(dǎo)出Excel格式
重點(diǎn)是建立一個(gè)list，每個(gè)元素就是一個(gè)sheet，名稱就是sheet的名稱
然后使用write.xlsx函數(shù)輸出list對(duì)象即可


aa<-data.frame(id = 1:5,y = rnorm(5))
bb<-data.frame(id = 1:7,y = rnorm(7))
aa
bb

# install.packages("openxlsx") # 如果沒(méi)有openxlsx包，運(yùn)行該命令
library(openxlsx)
sheets = list("我是aa" = aa,"我是bb" = bb)
write.xlsx(sheets,"d:/我是輸出結(jié)果.xlsx")

「結(jié)果展示：」可以看到：

中文名的Excel表
兩個(gè)sheet表
sheet表的名稱為“我是aa”，“我是bb”

問(wèn)題舉一反三

「代碼延申」如果是有多個(gè)sheet表，想要批量讀取，批量輸出到Excel表中，可以使用for循環(huán)操作：

代碼解釋：

批量生產(chǎn)list
讀取list的元素個(gè)數(shù)
重命名sheet表名稱
輸出到excel表中

list1 = list()
for(i in 1:10){
  list1[[i]] = data.frame(ID=1:10,y=rnorm(10))
}
n = length(list1)
n

names(list1) = paste0("我是","sheet",1:n)
list1
write.xlsx(list1,"d:/我是批量sheet表.xlsx")

「結(jié)果視圖：」

創(chuàng)造更多問(wèn)題

如果你有一個(gè)Excel表，有幾十個(gè)sheet表，這些表結(jié)構(gòu)都相似，如果批量讀入到R中，然后批量操作，最后再批量導(dǎo)出？

「熟悉的味道……」

?
朋友圈中各種python培訓(xùn)的軟文，都在講如何批量的處理，R語(yǔ)言是這樣實(shí)現(xiàn)的，我?guī)熜諩xcel很溜，自己編寫(xiě)了一套宏，從來(lái)看不上R語(yǔ)言，說(shuō)我是”人為增加學(xué)習(xí)成本，Excel不香么？？？“
?

「所以自問(wèn)自答的寫(xiě)作風(fēng)格是如何練成的？」

?
寫(xiě)公眾號(hào)時(shí)，就能發(fā)現(xiàn)日子是一成不變的，沒(méi)有話題，沒(méi)有動(dòng)力，如何給自己找事情，需要自言自語(yǔ)。往高了說(shuō)是”自省吾身“，往低了說(shuō)是”江郎才盡“。所以寫(xiě)一些東西，給自己出出題，然后自己解答，然后自己翻車(chē)……
?

「下節(jié)預(yù)告：」