将循环输出保存到r中单独的多个excel文件中

Question

我想提取与列表对应的行，并将每个输出保存到r中的单独excel文件中。

#sample data
x <- c("anna", "matt", "anna", "david", "anna", "jane")
data <- data.frame("name" = x,
"case ref" = letters[1:6])

<表类>名称案件裁判tbody><<tr>安娜马特b安娜c大卫d安娜e简f

答案比你想象的要简单。只需一个循环就可以完成工作(或者我遗漏了什么):

x <- c("anna", "matt", "anna", "david", "anna", "jane")
data <- data.frame("name" = x, "case ref" = letters[1:6])
namelist <- c("matt", "david", "anna")
for (i in namelist) {
answer <- data[is.element(data$name, i), ] 
write.xlsx(answer, paste(i,".xlsx"))
}

您可以将想要保存的数据子集split放入数据帧列表中，并使用purrr::imap进行写入。

data <- subset(data, name %in% namelist)
purrr::imap(split(data, data$name), ~writexl::write_xlsx(.x, paste0(.y,'.xlsx')))