dpylr-嵌套列表中的元素式摘要

我们可以使用

df <- df %>% group_by(X1) %>% 
  summarise(mean = list(map(reduce(X2, `map2`, `+`), `/`, n())))
df$mean
# [[1]]
# [[1]][[1]]
# [1] 1
#
# [[1]][[2]]
# [1] 2
#
#
# [[2]]
# [[2]][[1]]
# [1] 0.5
#
# [[2]][[2]]
# [1] 0.5

解释 :首先,分组后,使用

reduce(X2, `map2`, `+`)

我们按顺序添加所有列表元素。为了达到目的,我们用另一种方法 map 具有 / . 最后, list 返回一个列表。

更新 :您也可以使用

df %>% group_by(X1) %>%
  summarise(mean = list(pmap(X2, ~ sum(...) / n())))

或

df %>% group_by(X1) %>%
  summarise(mean = list(pmap(X2, ~ mean(c(...)))))

不幸地 list(pmap(X2, mean)) 不起作用

mean(1, 2)
# [1] 1