r-根据列值编写xlsx文件，并根据分隔到各个电子表格选项卡中的ID编写内容

Question

假设以下数据结构中有一堆其他数据列在同一个tibble中(此处未显示(-有问题的两列才是重要的。

data <- tibble(id = c(1,2,3,4,5,6,7,8,9), email = c(rep('[e-mail]',3), rep('[e-mail]', 3), rep('[e-mail]', 3)))

我正试图1(根据电子邮件列写入单独的xlsx文件(每个电子邮件地址1个(，2(将电子邮件的单独ID写入xlsx中的单独选项卡。

这就是我目前所拥有的，但它并没有完全实现我所需要的。

for(i in unique(data$email)){

print(data %>% filter(email == i))

for(j in unique(data %>% filter(email == i) %>% select(id))){
print(length(j))

for(k in j){
write.xlsx(data %>% filter(id == k), file = paste('./test_', k, '.xlsx'), sheetName = names(j)[k], append = TRUE)
}
}

}

Answer 1

lst <- split(data, data$email)
writexl::write_xlsx(lst, "file.xlsx")