如何结合使用purrr和dplyr来过滤列表元素并将列表导出到Excel

install.packages("purrr")
install.packages("dplyr")

library(purrr)
library(dplyr)

my_list <- list(data1 = data.frame(id = 1:5, value = c(10, 20, 30, 40, 50)),
                data2 = data.frame(id = 6:10, value = c(60, 70, 80, 90, 100)),
                data3 = data.frame(id = 11:15, value = c(110, 120, 130, 140, 150)))

filtered_list <- map(my_list, ~filter(.x, value > 50))

install.packages("openxlsx")

library(openxlsx)

# 创建一个Excel工作簿
wb <- createWorkbook()

# 在工作簿中创建一个工作表
addWorksheet(wb, "Filtered Data")

# 将过滤后的列表元素写入工作表
writeData(wb, sheet = "Filtered Data", filtered_list)

# 保存工作簿为Excel文件
saveWorkbook(wb, "filtered_data.xlsx", overwrite = TRUE)