r - 使用 R 操作 Excel 电子表格数据并将输出返回到单独的工作表

Question

所以我有一个名为'Birth.xls'的 Excel 电子表格。我在这个电子表格中有 10 张表格，格式如下:

Sheet1
Number  Value 
3   0.125
6   0.2
9   0.275
12  0.35
15  0.425
17  0.5
19  0.575
21  0.65
23  0.725
25  0.8
27  0.875
29  0.95
31  1.025
Sheet2
Number  Value
3   0.614
6   0.654
9   0.694
12  0.734
15  0.774
17  0.814
19  0.854
21  0.894
23  0.934
25  0.974
27  1.014
29  1.054
31  1.094

我如何在这个电子表格中创建另一个“工作表”，其中包含我上面使用 R 给出的工作表的行平均值？...我知道我可以在 Excel 中执行此操作，但因为有时我有 10 张或更多工作表，这可能会很痛苦......尤其是当我必须做比平均水平更复杂的事情时......所以总而言之，我想要一个类似于下面的输出

Sheet3
Number  Average Value
3   0.3695
6   0.427
9   0.4845
12  0.542
15  0.5995
17  0.657
19  0.7145
21  0.772
23  0.8295
25  0.887
27  0.9445
29  1.002
31  1.0595

Answer 1

这是我会做的一种方法。首先，加载所有数据，将它们作为一个数据框，计算平均值，然后导出到新工作表。

library(XLConnect)

#load xls file
wb<-loadWorkbook("Birth.xls")

#get sheet names of file
lp<-getSheets(wb)

#load each sheet in seperate list element
dat<-lapply(seq_along(lp),function(i) readWorksheet(wb,sheet=lp[i]))

#convert all data to one data frame by merging individual data frame
dat2<-Reduce(function(...) merge(..., by="Number"), dat)

#calculate row means  of merged data frames (-1 as first column contains Number)
dat2$res<-rowMeans(dat2[,-1])

#create new sheet to export data
createSheet(wb, name = "together")

#write calculated data to new sheet
writeWorksheet(wb,dat2[,c("Number","res")],sheet="together")

#save workbook
saveWorkbook(wb)