平均列表重复元素

Question

我有以下包含重复名称的列表

> l
$A
[1] 2

$A
[1] 4

$B
[1] 10

我找不到将这些元素的值平均化为一个“ A”元素的合并方法。结果列表应如下所示

> l
$A
[1] 3

$B
[1] 10

是否可以生成此列表？

Answer 1

这里是base R的{​​{1}}选项

aggregate

---

如果我们在aggregate(values ~ ind, stack(li), FUN = mean) 中需要它，则执行list并遍历split以获得list

mean

数据

lapply(split(li, names(li)), function(x) mean(unlist(x)))
#$A
#[1] 3

#$B
#[1] 2

Answer 2

使用tidyverse：

library(tidyverse)

li <- list(A = 2, A = 4, B = 2)

tibble(key = names(li), value = unlist(li)) %>% 
  group_by(key) %>% 
  summarize(mean = mean(value))