如何在每个栏顶部显示百分比标签

Question

我是RI的新手使用ggplot来显示条形图.我想显示每个条形图顶部的百分比.我不想将y轴转换为百分比标签.我希望在y轴和百分比中显示频率在酒吧顶部的每个小组.

我的数据片段是

我想要的输出片段是

欢迎任何帮助

Answer 1

这种情节可以很容易地创建ggplot2.

dat <- data.frame(Frequency = c(10, 5, 97, 47, 50),
                  Fruits = gl(5, 1, labels = c("Mango", "Apple", "Orange", 
                                               "Guava", "Papaya")))


library(ggplot2)
ggplot(dat, aes(x = Fruits, y = Frequency)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = sprintf("%.2f%%", Frequency/sum(Frequency) * 100)), 
            vjust = -.5)