Question

是否可以在一个Excel工作表中编写多个表？根据我的尝试，我发现只有最后一个对象被写入文件。可能是我每次都要覆盖文件。所以我想知道如何修改代码以在同一张表中写入两个表？感谢

data.sets <- ls("package:datasets")[c(5,7)]# list of data set names
foonames <- paste0("foo", seq_along(data.sets))
count <- length(data.sets)  
my.list <- list() 
for (i in 1:count) my.list[[foonames[i]]] <- get(data.sets[[i]])
lapply(my.list, dim)

filen<-sprintf('H:\\11_Analysis\\01_Eye Study\\Output\\Eyestudy1_%s.xlsx',
               Sys.Date());

library(openxlsx)
options("openxlsx.dateFormat" = "yyyy-mm-dd")

wb<-write.xlsx(my.list$foo1, filen, 
               startCol =2, startRow = 1, 
               asTable = T, withFilter = T, 
               colWidths="auto")

wb<-write.xlsx(my.list$foo1, filen, 
               startCol =2, startRow = 15, 
               asTable = T, withFilter = T, 
               colWidths="auto")

Answer 1

如果要将多个表写入同一工作表，则应创建工作簿，然后将数据写入该工作簿，然后保存。你这样做的方式似乎是覆盖了数据。这就是我要做的事情：

case 2

Openxlsx包 - 在一张纸上写多个表？

1 个答案: