r - 使用数据帧列表中数据帧的相应元素应用函数(例如平均值)

Question

这个问题在这里已经有了答案:





Apply function to corresponding elements in list of data frames

(2 个回答)



apply function to elements over a list

(2 个回答)


去年关闭。




我有一个包含 10 个数据框的列表，其中每个元素代表一个不同的变量。

l1 <- list(d1=data.frame(a=c(1,2,3), b=c(4,5,6)),
           d2=data.frame(a=c(3,2,1), b=c(6,5,4)),
       d3=data.frame(a=c(2,2,2), b=c(5,5,5)))

我想对所有数据框的每个相应元素求平均值。
因此，对于元素 [1,1]，我的平均值为 (1,3,2)。
我可以为一个职位做到这一点:

m1_1<-mean(unlist(lapply(l1, function(x) (x[[1,1]]))))

有没有办法扩展整个数据框的索引？
谢谢，
M。

Answer 1

我们可以使用 Reduce得到对应元素的总和( + )，然后除以 length的list

Reduce(`+`, l1)/length(l1)

或者对于更一般的情况，转换为 array ，然后使用 apply

ar1 <- array(unlist(l1), dim = c(dim(l1[[1]]), length(l1)))
apply(ar1, 1:2, mean, na.rm = TRUE)
apply(ar1, 1:2, median, na.rm = TRUE)
apply(ar1, 1:2, sd, na.rm = TRUE)