如何在R中的列表元素上应用平均函数

Question

我有一个列表，我想使用lapply() 来计算其元素的平均值。例如，对于列表的第七项，我有：

>list[[7]]
 [1] 1 1 1 1 1 1 1 1 1 1

我的输出应该是：

> mean(temp[[7]][1:10])
[1] 1

但是当我像下面这样使用lapply() 时，结果会有所不同。我该怎么办？

> lapply(list[[7]][1:10],mean)
[[1]]
[1] 1

[[2]]
[1] 1
.
.
.
[[10]]
[1] 1

Answer 1

考虑使用sapply 而不是lapply。

# sample data
a<- 1:3
dat <- list(a, a*2, a*3)

# sapply gives a tidier output
> sapply(dat, mean)
[1] 2 4 6

> lapply(dat, mean)
[[1]]
[1] 2

[[2]]
[1] 4

[[3]]
[1] 6

---

此外，您可能想查看plyr 包。 This question 也很好地解释了不同的 *apply 函数

Answer 2

要获取列表中第 7 个元素的平均值，只需使用 mean(list[[7]])。 要获取列表中每个元素的平均值，请使用lapply(list,mean)。 打电话给你的名单list是一个非常糟糕的主意。