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

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)