问题描述
我希望你能帮我这个忙
在工作时,我通常会操纵数据,以便最终获得通过此函数生成的元素列表,然后将其导出到单个工作簿中,并为每个拆分的元素分配一个特定的工作表:
dat <- split(tbl,tbl$x)
wb <- createWorkbook()
## Loop through the list of split tables as well as their names
## and add each one as a sheet to the workbook
Map(function(data,name){
addWorksheet(wb,name)
writeData(wb,name,data)
},dat,names(dat))
addWorksheet(wb,'name_sheet')
writeData(wb,'name_sheet',data_to_write)
## Save workbook to working directory
saveWorkbook(wb,file = "myfile.xlsx",overwrite = TRUE)
我的问题是,现在我必须导出列表列表,并且我想为每个“上级列表”都有一个工作簿,包括每个工作表中的后续列表。我已经尝试过了:
dat <- split(tbl,tbl$x)
**dat <- lapply(dat,function(x) split(x,x$`Causale Numerica`)) #added to split further**
wb <- createWorkbook()
## Loop through the list of split tables as well as their names
## and add each one as a sheet to the workbook
Map(function(data,name){
addWorksheet(wb,name)
writeData(wb,data)
},names(dat))
addWorksheet(wb,'name_sheet')
writeData(wb,data_to_write)
有什么主意吗?
谢谢
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)