R语言：将数据框列表按名称转换为嵌套列表

嘿，我来帮你搞定这个R列表的重构需求！这里有两种实用的方法，你可以根据自己的习惯选择：

这种方法不需要额外安装包，用基础R函数就能完成：

# 第一步：提取每个列表元素对应的日期前缀
dates <- sub("\\.(Date|Treatment|Value)$", "", names(dflist))

# 第二步：按日期对原列表进行分组拆分
nested_list <- split(dflist, dates)

# 第三步：重命名每个子列表的元素，去掉冗余的日期前缀
nested_list <- lapply(nested_list, function(sub_list) {
  names(sub_list) <- sub("^X[^\\.]+\\.", "", names(sub_list))
  sub_list
})

代码解释： #

• sub("\\.(Date|Treatment|Value)$", "", names(dflist))：通过正则表达式去掉元素名称末尾的.Date/.Treatment/.Value，提取出日期部分。
• split(dflist, dates)：把原列表按日期分组，相同日期的元素会被放到同一个子列表里。
• 最后用lapply遍历每个子列表，把元素名称里的日期前缀（比如X2013.11.14.）去掉，让子列表里的元素直接叫Date、Treatment、Value。

如果你习惯用tidyverse系列包（比如purrr、stringr），可以用更直观的管道流实现：

library(tidyverse)

nested_list <- dflist %>%
  # 将列表转换为包含名称和值的数据框
  enframe(name = "full_name", value = "data_df") %>%
  # 从全名中提取日期和类型信息
  mutate(
    date = str_remove(full_name, "\\.(Date|Treatment|Value)$"),
    type = str_remove(full_name, "^X[^\\.]+\\.")
  ) %>%
  # 按日期分组，把不同类型的数据框转为列
  pivot_wider(names_from = type, values_from = data_df) %>%
  # 按日期拆分为列表
  split(.$date) %>%
  # 把每个分组转为只包含数据框的子列表，去掉date列
  map(~ .x %>% select(-date) %>% as.list())

代码解释： #

• enframe把原列表转成三列的数据框：full_name（原列表元素名）、data_df（对应的数据框），方便后续处理。
• str_remove用正则分别提取日期和类型字段。
• pivot_wider把同一日期的三个类型数据框转为单独的列，让结构更清晰。
• 最后用split和map把数据框转回嵌套列表结构，得到我们想要的结果。

验证一下效果：打印nested_list$X2013.11.14，就能看到这个子列表里包含Date、Treatment、Value三个数据框啦！

内容的提问来源于stack exchange，提问作者J.Con