R 位置为“的几何图形”条形图；道奇；和geom_文本复制值

我看了这么多，看到了很多关于

geom_text

与条形图相关的值的位置的帖子，但我没有看到任何与我的问题相关的帖子。如果我错过了，很抱歉。我试图在ggpot2中创建一个带有

position=“dodge”

的条形图，并试图在每一组条形图上方放置一个摘要值。我很接近，但当我添加

geom_text

标签时，它会显示一组值。理想情况下，我希望删除所有的值，但每个分组一个。下面是我的可复制示例。提前感谢您提供的任何帮助

gather.iris <- iris %>% 
gather(key=flower_att, value=measurement, -Species) %>% 
  mutate(sum_value=ifelse(Species=="setosa", 5, ifelse(Species=="versicolor", 7, 9)))

ggplot(data=gather.iris, aes(x=Species, y=measurement, fill=flower_att)) +
  geom_bar(stat="identity", position="dodge") +
  geom_text(aes(label=sum_value), vjust=-0.5, check_overlap=T)

gather.iris%
聚集（键=花，值=测量，-物种）%>%
突变（总和值=ifelse（物种==“setosa”，5，ifelse（物种==“versicolor”，7，9）））
ggplot（数据=聚集。虹膜，aes（x=物种，y=测量，填充=花）+
几何图形栏（stat=“identity”，position=“dodge”）+
几何图形文本（aes（标签=和值），vjust=-0.5，检查重叠=T）

---

谢谢格雷戈的快速回答。我不明白我需要为文本选择一个x和y值，就像我需要一个绘图一样。这个问题有个不太好的答案

gather.iris <- iris %>% gather(key=flower_att, value=measurement, -Species) %>% 
  mutate(sum_value=ifelse(Species=="setosa", 5, ifelse(Species=="versicolor", 7, 9)))

ggplot(data=gather.iris, aes(x=Species, y=measurement, fill=flower_att)) +
  geom_bar(stat="identity", position="dodge") +
  geom_text(aes(y=as.numeric(Species), label=sum_value), vjust=-0.5, check_overlap=T)

gather.iris%gather（key=flower\u att，value=measurement，-Species）%>%
突变（总和值=ifelse（物种==“setosa”，5，ifelse（物种==“versicolor”，7，9）））
ggplot（数据=聚集。虹膜，aes（x=物种，y=测量，填充=花）+
几何图形栏（stat=“identity”，position=“dodge”）+
geom_文本（aes（y=as.numeric（物种），label=sum_值），vjust=-0.5，check_overlap=T）

---

您希望标签的y值是多少？在

aes（）

中，您指定了

y=measurement

，因此您将为y上的

measurement

和x上的

Species

的每个唯一组合获得一个唯一的标签。如果不需要，请为

geom_text

层指定不同的

y

值。通过“一组一个”，你是想要一个x值（物种），还是想要一个条形（物种：测量）？仔细查看

gather.iris

。它有600行。通过这种方式绘制，您可以将条形图一次又一次地放置在彼此的顶部。在

geom_bar

中设置

color=“black”

可以看到它们分开，这样您就明白我的意思了。对于其中的每一项，您将绘制一条文本。是否要绘制摘要值？若要查看@camille的点，请将

alpha=.2

添加到

geom_bar（）

。你们在这里做了很多奇怪的绘图。谢谢大家，我只是想做一些我可以快速共享的东西，因为我不能共享我的数据。很抱歉给你带来了困惑。