在 ggplot2 箱线图上添加多个标签

我正在尝试在此箱形图上为 2 组添加带有男性和女性平均年龄的标签。到目前为止，我只能按小组进行，而不能按性别和小组进行。

我的数据框：

Age=c(60, 62, 22, 24, 21, 23) 
Sex=c("f", "m", "f","f","f","m")
Group=c("Old", "Old", "Young", "Young", "Young", "Young")

aging<-data.frame(Age, Sex, Group)

以及绘图的命令：

ggplot(data=aging, aes(x=Group, y=Age))+geom_boxplot(aes(fill=Sex))
+geom_text(data =aggregate(Age~Group,aging, mean), 
aes(label =round(Age,1), y = Age + 3), size=6)

为了清晰和使用，您可能应该将聚合数据保存在单独的对象上position=position_dodge() in the geom_text()选项：

aging.sum = aggregate(Age ~ Group + Sex, aging, mean)

ggplot(data=aging, aes(x=Group, y=Age, fill=Sex)) + 
  geom_boxplot(position=position_dodge(width=0.8)) +
  geom_text(data=aging.sum, aes(label=round(Age,1), y = Age + 3), 
            size=6, position=position_dodge(width=0.8))

玩width直到您对结果满意为止。请注意，我把fill=Sex在全球范围内aes定义，因此它也适用于文本标签。

Edit:添加了@user20650建议position_dodge() to geom_boxplot()以便正确对齐。