r - 如何将循环内创建的每个数据框添加到excel中的单独工作表中？

Question

for(x in unique_seg){

bf <- data.frame(矩阵(x,nrow =3,ncol =3))

write.xlsx(bf,'bf.xlsx', sheetname =x, append=True) }

但我看到只返回最后一个循环。如何在 1 个 excel 中获取所有工作表？

标签： rdataframeloops

Answer 1

如果我们想返回输出，创建一个list并将输出分配给list

lst1 <- vector('list', length(unique_seg))
names(lst1) <- unique_seg    

for(x in unique_seg){

   bf <- data.frame(matrix(x,nrow =3,ncol =3))

  write.xlsx(bf,'bf.xlsx', sheetname =x, append=TRUE)
  lst1[[x]] <- bf
  }