R:ggplot2分格几何图形栏的几何图形文本数据标签

我是ggplot2新手，在第一次尝试时遇到了一个无法解决的问题：

x <- data.frame(y = c(1,1,1,2,2,3,rep(c(1,2,3,4), 10)))

ggplot(x, aes(factor(y))) +
  geom_bar(fill = 2) +
  geom_text(stat="bin", aes(label = ..count..))

ggplot(x, aes(factor(y))) +
  geom_bar(fill = 2) +
  geom_text(aes(y = 5, label = y))

像这样的东西

ggplot(x, aes(factor(y))) +
  geom_bar(fill = 2) +
  geom_text(stat="bin", aes(label = ..count.., y=(..count..-..count..)+5))

---

您可以为每个

geom

修改

aes（）

，如果您需要有关该层的特殊信息，您实际上可以为每个

geom

提供一个全新的

data=

参数。

此设置取决于..计数的位置。。变量而我希望有一个固定的位置。然而，通过提供（…count…-…count…）+5，我发现了非常有趣的解决方法。您可以将此添加到解决方案中，以便我可以接受它。