如何将data.frame中的行转换为单独的唯一data.frames

# 示例数据
df <- data.frame(
  id = c(1, 2, 3, 1, 2, 3),
  name = c("John", "Jane", "Bob", "John", "Jane", "Bob"),
  age = c(25, 30, 35, 25, 30, 35)
)

# 获取唯一行的集合
unique_rows <- unique(df)

# 创建空列表
unique_dfs <- list()

# 遍历唯一行的集合
for (i in 1:nrow(unique_rows)) {
  # 提取相应的行
  subset_df <- subset(df, id == unique_rows[i, "id"] & name == unique_rows[i, "name"] & age == unique_rows[i, "age"])
  
  # 转换为data.frame并存储到列表中
  unique_dfs[[i]] <- as.data.frame(subset_df)
}

# 访问列表中的元素获取每个唯一行的单独data.frame
unique_dfs[[1]]  # 第一个唯一行的data.frame
unique_dfs[[2]]  # 第二个唯一行的data.frame
# ...