R语言如何依据参考df规则对列表中的每个df自动分组排序

完全可以通过purrr包的map系列函数实现自动批量处理，不需要手动逐个操作，以下是可直接运行的实现代码：

library(tidyverse)

# 按配置规则处理列表中的每个数据框
lst_processed <- imap(lst, function(current_df, df_name) {
  # 匹配当前数据框对应的配置规则
  rule <- filter(df, File == df_name)
  res <- current_df
  # Var1不为空则按指定字段分组
  if (!is.na(rule$Var1)) {
    res <- group_by(res, !!sym(rule$Var1))
  }
  # Var2不为空则追加按指定字段排序
  if (!is.na(rule$Var2)) {
    res <- arrange(res, !!sym(rule$Var2))
  }
  return(res)
})

代码说明 #

• 使用imap()遍历列表，同时读取每个列表元素的名称，和配置表df的File列匹配，自动读取对应分组、排序规则
• !!sym()用于将字符串格式的列名转换为dplyr可识别的列对象，实现动态调用列
• 逻辑完全匹配需求：Var1不为空时先按指定字段分组，Var2不为空时追加按指定字段排序

如果你的列表元素顺序和配置表df的行顺序完全一一对应，可以使用更简洁的map2写法：

lst_processed <- pmap(list(lst, df$Var1, df$Var2), function(current_df, v1, v2) {
  res <- current_df
  if (!is.na(v1)) res <- group_by(res, !!sym(v1))
  if (!is.na(v2)) res <- arrange(res, !!sym(v2))
  res
})

结果验证 #

运行后可查看处理后的数据，例如查看DiseaseStatus的处理结果：

lst_processed$DiseaseStatus

输出会显示数据已按SubjectID分组，且按DSDT升序排列。如果需要降序排序，可将arrange语句修改为arrange(res, desc(!!sym(rule$Var2)))即可。

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