r - 如何在 R 中同时使用统计函数和子集数据？

Question

我有看起来像这样的数据 (dat)

region muscle    protein
head   cerebrum  78
head   cerebrum  56
head   petiole   1
head   petiole   2
tail   pectoral  3
tail   pectoral  4

我想取 cerebrum 的蛋白质值的平均值.我试图查找不同的方法来对数据进行子集化 here和 here .但似乎没有一种直接的方法来做到这一点。现在，我正在这样做:

datcerebrum <- dat[which(dat$muscle == "cerebrum"),]
mean(datcerebrum$protein)

我试着浓缩这一行:

mean(dat[which(dat$muscle == "cerebrum"),])

但它抛出一个 NA 并警告参数不是数字或逻辑。有没有简单的方法来实现这一目标？

Answer 1

我们可以使用 aggregate来自 base R

aggregate(protein ~muscle, dat, mean)
#   muscle protein
#1 cerebrum    67.0
#2 pectoral     3.5
#3  petiole     1.5