将列表中多数据框写入Excel：按因子b分表并指定因子d排序

步骤说明 #

• 先将因子d转换为指定顺序的有序因子，确保排序时遵循x、y、z、q的顺序（默认字母排序会把q放在最前，不符合需求）
• 对拆分后的每个子数据框按转换后的d进行排序
• 直接将处理后的列表传入write_xlsx，自动将每个列表元素对应为Excel的一个工作表，工作表名即为b的各个水平

完整代码 #

# 加载所需包
library(dplyr)
library(writexl)
library(purrr)

# 示例数据
a <- rnorm(1000, 1, 1)
b <- rep(letters[1:10], each = 100)
d <- rep(c("x","y","z","q"), 250) 
abd <- cbind.data.frame(a, b, d)

# 按b拆分数据框
abdlist <- split(abd, abd$b)

# 对每个子数据框按指定顺序排序d
abdlist_processed <- abdlist %>%
  map(~ .x %>%
        mutate(d = factor(d, levels = c("x", "y", "z", "q"))) %>%
        arrange(d))

# 写入Excel文件，路径可自行修改
write_xlsx(abdlist_processed, path = "sorted_abd.xlsx")

代码解释 #

• mutate(d = factor(d, levels = c("x", "y", "z", "q")))：将d转换为因子，通过levels参数定义自定义排序优先级
• arrange(d)：按转换后的d列完成排序
• map()：遍历拆分后的列表，对每个子数据框执行排序操作
• write_xlsx()：接受列表作为输入，自动将每个列表元素生成独立工作表，工作表名称对应b的各个水平（如a、b、c等）

内容的提问来源于stack exchange，提问作者procerus