r - R 中数据帧列表的逐元素中值

Question

我有几个列表，每个列表都包含许多数据框。我想计算每个列表中每个数据框的元素的元素中值，即元素 [[1]][1,1] 之间的中值。的 list1 , 元素 [[1]][1,1]的 list2和元素 [[1]][1,1]的 list3 ，对所有元素依此类推。每个数据框都有很多列，但这里有一些只有两列的示例数据:

set.seed(1)

list1 <- list(data.frame(a = sample.int(10, 4), b = sample.int(10, 4)),
              data.frame(a = sample.int(10, 4), b = sample.int(10, 4)))

list2 <- list(data.frame(a = sample.int(10, 4), b = sample.int(10, 4)),
              data.frame(a = sample.int(10, 4), b = sample.int(10, 4)))

list3 <- list(data.frame(a = sample.int(10, 4), b = sample.int(10, 4)),
              data.frame(a = sample.int(10, 4), b = sample.int(10, 4)))

这是预期的结果:

[[1]]
 a b
 7 4
 9 9
 7 3
 4 6

[[2]]
 a b
 5 7
 8 6
 2 6
 5 2

有什么建议吗？

Answer 1

使用 purrr:

library(purrr)
lsts <- list(list1,list2,list3)

map(transpose(lsts),~map_dfc(transpose(.), ~apply(list2DF(.x),1,median)))   

[[1]]
# A tibble: 4 × 2
      a     b
  <int> <int>
1     7     4
2     9     9
3     7     3
4     4     6

[[2]]
# A tibble: 4 × 2
      a     b
  <int> <int>
1     5     7
2     8     6
3     2     6
4     5     2

在 Base R 中，假设它们都具有相同的结构:

dims <- c(dim(list1[[1]]), length(list1), length(lsts))
d <- apply(array(unlist(lsts), dims), head(seq(dims),-1), median)
asplit(aperm(d, c(1,3,2)), 3)

[[1]]
     [,1] [,2]
[1,]    7    4
[2,]    9    9
[3,]    7    3
[4,]    4    6

[[2]]
     [,1] [,2]
[1,]    5    7
[2,]    8    6
[3,]    2    6
[4,]    5    2