如何为每个类别添加平均值的曲线以进行绘图

Question

我有两个变量：Std.gesamt（总共工作小时数）和alter（年龄，11个年龄段的因素）。

我已经绘制了每个年龄段中工作小时数的分布情况，并希望添加一条曲线，显示每个年龄段的平均值。

我试过这个，但它在我上一个年龄段添加了一条垂直线：

plot(as.factor(B$alter), B$Std.gesamt, main ="Gesamtstunden in B (Apr16 - Apr17)")
abline(v=mean(B$Std.gesamt),col="blue")

Answer 1

您可以使用ggplot2包进行绘制（geom_smooth添加“平滑条件均值”）

library(ggplot2)
ggplot(B, aes(factor(alter), Std.gesamt)) + 
    geom_boxplot() + 
    geom_smooth(aes(group = 1)) +
    ggtitle("Gesamtstunden in B (Apr16 - Apr17)")