r - 如何在每个条形顶部显示百分比标签

Question

这个问题已经有答案了:

How to label a barplot bar with positive and negative bars with ggplot2 (1 个回答)

已关闭 10 年前。

我是 R 新手。我正在使用 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)