如何在另一个循环中循环两个循环

Question

我有一个包含 10 个 data.frame 的列表 (lst1)。每个 data.frame 都有一个变量ID。我也有一个IDlist。这是一种我们可以创建循环代码的方法，这样我就可以生成一本包含这 10 个数据的 Excel 书，每张纸一个，IDlist 中有一个匹配 ID？

棘手的部分是我们需要遍历 IDlist 列表以及通过 lst1。有什么建议吗？

我编写了一些代码，但它不起作用。希望它可以让您对我想做的事情有所了解。

for (i in IDlist) {
  
  # create a workbook
  tempwb <- createWorkbook()
  
  for(j in seq_along(lst1)){

    # store the ID -specific subset of the dataset
     data.subset <-lst1[[j]] %>% filter(ID == i)

    # add worksheet
    addWorksheet(tempwb, sheetName = lst1[[j]])} # I want the sheetname= dataname, what should I do? mine should be wrong

## How can I load subset to each sheet?

    file.name <- paste0(i,".xlsx")

    ### save workbook
    saveWorkbook(tempwb, paste0(output_dir,file.name), overwrite = TRUE)
  }

Answer 1

library(tidyverse)
library(writexl)

lst1 <- list(data1 = mpg, data2 = mpg, data3 = mpg, `data4/\\bad name` = mpg)

# Remove any illegal characters from names:
names(lst1) <- names(lst1) %>% 
    stringr::str_replace_all("[:punct:]", " ")

IDlist <- mpg %>% pull(cyl) %>% unique

make_one_xlsx <- function(this_id){
    lst1 %>% map(~filter(., cyl == this_id)) %>% write_xlsx(paste0("ID_", this_id, ".xlsx"))
}

IDlist %>% map(make_one_xlsx)

Answer 2

您应该展示一些数据示例以获得更好的答案。

你可以使用xlsx库

library('xlsx')


for(i in seq_along(lst1)){
    if(i == 1){
        append = FALSE
    } else{
        append = TRUE
    }
    write.xlsx(lst1[i], file='file_name.xlsx', 
               sheetName='get your id(sheet) name', append=append)
}