如何在以下箱线图中分离 geom_text 插入的文本注释？
data(mtcars)
ggplot(data = mtcars, aes(as.factor(vs), mpg, color = am )) +
facet_wrap(~gear) +
geom_boxplot() +
geom_text(data=mtcars, aes(x=0.7, y = 30, label=carb), parse=TRUE)
这只是一个例子，不是我遇到的真正问题。在我的具体情况下，文本注释表示相应组中的观察量。它们来自聚合函数。最后，我想像示例中那样绘制多面箱线图，并在每个箱线图上方分别显示相应的观察次数。