使用apply family将两个列表中的数据框写入excel文件的两个单独的工作表中

从XLConnect的文档中,最简单的方法是首先创建工作簿(使用loadWorkbook()),然后对于要创建的每个工作表,使用createSheet()在工作簿中创建工作表,然后将数据写入使用writeWorksheet()创建的工作表中,以及创建的工作簿和工作表对象。在循环结束时,调用saveWorkbook()将结果写入Excel文件。该过程如下所示:

# Create a workbook (if it doesn't currently exist it will be created)
wb <- loadWorkbook("myexcelfile.xlsx",create=TRUE)
# Create a worksheet within the workbook
createSheet(wb,name="worksheet1")
# Write a dataframe called data_to_write to the new worksheet
writeWorksheet(wb,data_to_write,sheet="worksheet1")
# Write the Excel file
saveWorkbook(wb)

围绕您的问题的工作表部分包装一个循环很简单。

以下是我的解决方案:

for (i in names(r1)) {
l_ply (r1[i], function(x) write.xlsx(x,file =paste0(names(s2[[i]])),
 sheetName = "TECO", append = TRUE, row.names = FALSE))}