如何从r中的列表中提取所有子列表？

# 创建一个包含子列表的列表
my_list <- list(list(1, 2, 3), list(4, 5, 6), list(7, 8, 9))

# 创建一个空列表来存储提取的子列表
sub_lists <- list()

# 使用循环遍历列表并提取子列表
for (i in 1:length(my_list)) {
  sub_lists[[i]] <- my_list[[i]]
}

# 打印提取的子列表
sub_lists

# 创建一个包含子列表的列表
my_list <- list(list(1, 2, 3), list(4, 5, 6), list(7, 8, 9))

# 使用lapply函数提取所有子列表
sub_lists <- lapply(my_list, identity)

# 打印提取的子列表
sub_lists