将多个不同大小的子列表提取到不同的data.frames中，每个子列表一个

Question

我想将不同大小的多个子列表提取到不同的data.frames每个子列表一个数据帧。

有谁知道我该怎么做？

我试过了：

    extract_one <- function(x) {
  data.frame(dat[[1]]) }

out <- lapply(dat, extract_one).

我的想法是提取列表的第一部分，然后利用lapply为每个子列表执行此操作。 显然不起作用。 任何帮助将非常感谢！ 此致