求将DataFrame按TP前缀拆分转换为嵌套列表的通用R方法

我明白你想要一个更通用、可封装的方法来把你的DataFrame按TP前缀分组转换成嵌套列表，替代原来依赖assign的特定实现。这里有几个简洁且通用的方案，不管TP后面是单个整数还是多位数（比如TP10、TP14）都能完美适配：

方案一：Base R 简洁实现 #

利用base R的split.default和正则表达式提取分组，一步完成转换，代码非常紧凑：

# 从列名中提取TP分组（比如TP1、TP2）
tp_groups <- sub("(TP\\d+)\\..*", "\\1", colnames(df1))

# 按分组拆分DataFrame，再将每个子DataFrame转为列表
list1 <- lapply(split.default(df1, tp_groups), as.list)

运行后list1的结构完全符合你的需求：每个TP分组作为顶层列表元素，内部是对应列名和值向量的键值对。

方案二：Tidyverse 风格实现 #

如果你习惯使用tidyverse工具链，用dplyr+purrr也能轻松实现：

library(tidyverse)

list1 <- df1 %>%
  # 将宽格式列拆分为TP分组和指标列
  pivot_longer(everything(), names_to = c("tp_group", ".value"), names_sep = "\\.") %>%
  # 按TP分组拆分数据
  group_split(tp_group, .keep = TRUE) %>%
  # 给每个列表元素命名为对应的TP分组
  set_names(map(., ~ .x$tp_group[1])) %>%
  # 移除tp_group列并转为嵌套列表
  map(~ select(., -tp_group) %>% as.list())

封装为通用函数 #

把上面的Base R方法封装成函数，方便重复使用，还能自定义TP前缀（比如如果你的前缀是TimePoint也能适配）：

df_to_tp_nested_list <- function(df, tp_prefix = "TP") {
  # 构建匹配前缀的正则表达式
  pattern <- paste0("(", tp_prefix, "\\d+)\\..*")
  # 提取每个列对应的TP分组
  tp_groups <- sub(pattern, "\\1", colnames(df))
  # 拆分并转换为嵌套列表
  lapply(split.default(df, tp_groups), as.list)
}

# 使用示例
list1 <- df_to_tp_nested_list(df1)
# 如果你的前缀是TimePoint，比如TimePoint1.xxx，就这么调用：
# list1 <- df_to_tp_nested_list(df1, tp_prefix = "TimePoint")

这个方案完全避免了assign这类容易引发环境问题的函数，代码更简洁、可读性更强，而且能轻松适配不同的TP前缀和任意数量的分组。

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