R更改geom_bar（）中文本的位置

Question

我想用geom_text()创建条形图。在每个小节上方应是变量的计数。但是在这种情况下，文本的位置在小节的中间。 有人可以帮我解决这个问题吗？

new.data <- diamonds[ which( diamonds$clarity =="VS1" | diamonds$clarity =="VS2") , ]

ggplot(data=new.data, aes(x=clarity, fill=cut)) +
  geom_bar(position = "dodge",stat = "count") +
  geom_text(stat='count', aes(label=..count..), vjust=-1)

Answer 1

添加position参数，就像在类似问题here中提到的那样

new.data <- diamonds[ which( diamonds$clarity =="VS1" | diamonds$clarity =="VS2") , ]

ggplot(data=new.data, aes(x=clarity, fill=cut)) +
  geom_bar(position = "dodge",stat = "count") +
  geom_text(stat='count', aes(label=..count..), vjust=-1,
            position = position_dodge(width = 0.9))

输出：

就像TobKel在评论中提到的那样，可以随宽度而变化。