条形图上带有标签的Geom_text问题

Question

基于虹膜数据集，我试图创建一个条形图，其中每个物种的平均间隔长度作为每个条的标签。

可复制的示例：

#load data
iris1 <- as.data.frame(iris)

#packages
library(ggplot2) #visualizations

#create bar chart with average Sepal Length for each Species as the label
ggplot(data = iris1, aes(x = iris1$Species, y = iris1$Sepal.Length)) + 
  geom_bar(stat = "summary", fun.y ="mean",  fill = "light blue") +
  labs(title = "Sepal Length by Species", x = "Species", y = "Sepal Length") +
  geom_text(label = iris1$Sepal.Length)

输出：

ggplot(data = iris1, aes(x = iris1$Species, y = iris1$Sepal.Length)) + 
  geom_bar(stat = "summary", fun.y ="mean",  fill = "light blue") +
  labs(title = "Sepal Length by Species", x = "Species", y = "Sepal Length") +
  geom_text(label = mean(iris1$Sepal.Length))

输出：

我希望该图显示每个条形（setosa，杂色和弗吉尼亚州）的平均间隔长度的1个标签。

Answer 1

您可以尝试以下操作：

ggplot(iris1, aes(x = Species, y = Sepal.Length)) + 
  stat_summary(fun.y=mean, geom="bar", fill = "light blue") +
  stat_summary(aes(label=..y..), fun.y=mean, geom="text", size=8)

输出：