如何用R中的数据绘制分组均值？

Question

我有一些这样的数据：

1 1.57722e-18
1 1.57722e-18
1 1.57722e-18
1 2.8422e-11
1 3.96449e-20
1 4.1027e-11
2 1.57722e-18
2 1.57722e-18
2 1.57722e-18
2 2.8422e-11
2 3.96449e-20
2 4.1027e-11
2 4.19834e-17
2 7.62155e-20
3 1.57722e-18
3 1.57722e-18
3 1.57722e-18
3 2.8422e-11
3 3.96449e-20
3 4.1027e-11
3 4.19834e-17
3 7.62155e-20
3 2.00414e-17

这里第一列=位置，第二列=概率。我可以像R这样使用R中的情节函数进行绘图

dataset = read.table(path, col.names=c("pos", "prob"))
plot(dataset$pos, log10(dataset$prob), type="p", col="red")

现在我想为每个位置添加不同颜色的均值，以便在同一个图表中区分。我怎样才能做到这一点？

Answer 1

添加：

points(tapply(log10(dataset$prob), dataset$pos, mean), col = "blue")