r - 垂直计算多个列表的中位数

Question

假设我有三个列表，每个列表都包含测试结果:

listA <- list(10, 5, 4)
listB <- list(2, 8, 3)
listC <- list(1, 5, 3)

我想按垂直位置找到这些列表的中位数。因此每个位置的结果将是:

• 第一名:2
• 第二名:5
• 第三名:3

我如何在 R 中实现这一点？提前致谢。

Answer 1

您可以使用 Map() 将三个列表垂直组合，然后通过 lapply() 计算每个中位数。

sapply(Map(c, listA, listB, listC), median)

# [1] 2 5 3

---

您还可以使用 purrr 中的 transpose()。

library(purrr)

map_dbl(transpose(mget(ls(pattern = 'list'))), ~ median(flatten_dbl(.x)))

# [1] 2 5 3

或者使用pmap():

pmap_dbl(mget(ls(pattern = 'list')), ~ median(c(...)))

# [1] 2 5 3