计算R中list()各个元素的特定向量的平均值并转换为data.frame

Question

我有一个非常大的 list() ，其中有超过 2000 个元素，其中每个元素都有两个向量（x 和 y），列表元素之间的大小不同。

例子：

new_list<-list(data.frame(x = c(1,2,3),
                          y = c(3,4,5)),
               data.frame(x = c(3,2,2,2,3,8),
                          y = c(5,2,3,5,6,7)),
               data.frame(x = c(3,2,2,1,1),
                          y = c(5,2,3,3,2)))

我只想对x这个列表中的向量进行平均以获得如下结果：

df_mean<-data.frame(x=c(2,3.333,1.8))

Answer 1

您可以像这样计算colMeans每列包含 x 的数据sapply：

data.frame(x = sapply(new_list, \(x) colMeans(x[grepl('x', names(x))])))
#>          x
#> 1 2.000000
#> 2 3.333333
#> 3 1.800000

@nicola 建议了一个更好的选择，如下所示（谢谢！）：

data.frame(x = sapply(new_list, \(x) mean(x$x)))
#>          x
#> 1 2.000000
#> 2 3.333333
#> 3 1.800000

^{创建于 2023-02-06，使用reprex v2.0.2}