仅对数据帧使用for循环

Question

我试图弄清楚如何使用for循环计算数据框的均值。我知道您可以使用聚合函数简单地执行此操作，但是我还需要知道如何使用循环执行此操作。我的数据框是

(x <- data.frame("subject" = c(1, 2, 3, 1, 2, 3), "value" = c(10, 2, 9, 8, 7, 4)))

我想要的是返回每个主题的值的平均值，即9、4.5、6.5。

使用聚合函数，看起来像

for (i in x$subject){
  y <- aggregate(x["value"], list(x$subject), mean)
}
y

我想将平均值存储到空白向量y中。有人可以告诉我该怎么做吗？

到目前为止，我已经拥有了

val <- unique(x$subject)
for(val in (x$subject)) {
  y <- x[which(names(x) == val)]
}