R 数据框的列表列表，其中列表名称作为额外列

我有一个包含名称的列表的列表。

我想将它们全部添加到一个数据框中，但保留所有列

past_earnings_lists[1]

成功从列表列表中返回一个列表

names(past_earnings_lists)[1]

成功返回列表名称

past_earnings <- melt(past_earnings_lists)

将所有数据放入一个数据框中，但不保留结构

past_earnings <- as.data.frame.matrix(past_earnings_lists$ADBE)

成功获取一个列表并保留结构，但不将列表的名称添加到数据帧中。

例如adbe有7列30行；我希望它添加名称为 adbe 的第八列，并将其附加到数据框中，所有其他列表也执行相同的操作。

I want a dataframe with the results being:
  sym  v1 v2 v3 v4 v5 v6 v7
1 adbe  1  2  3  4  5  6  7
2 adbe  1  2  3  4  5  6  7
3 air   1  2  3  4  5  6  7
4 air   1  2  3  4  5  6  7
5 alog  1  2  3  4  5  6  7
and so on

这可能有效

library(purrr)
ans <- map_df(past_earnings_lists, ~as.data.frame(.x), .id="id")

It uses map_df，它将映射列表并将结果转换为数据帧（如果可能）。使用.id要添加的参数names将每个数据框作为一列。