如何在每个栏的顶部显示百分比标签[重复]

【问题标题】：How to display percentage label on top of each bar [duplicate]如何在每个栏的顶部显示百分比标签[重复]
【发布时间】：2013-06-19 06:56:02
【问题描述】：

我是 R.I 的新手。我正在使用 ggplot 显示条形图。我想显示每个条形顶部的百分比。我不想将 y 轴转换为百分比标签。而是我想在 y- 中显示频率条形顶部每组的轴和百分比。

我的数据片段是

而我想要的输出 sn-p 是

欢迎任何帮助

【问题讨论】：

使用geom_text 来做这件事，请帮助我们通过向我们提供可重现的示例（即代码和示例数据）来帮助您，有关详细信息，请参阅stackoverflow.com/questions/5963269/…。

标签： r ggplot2 bar-chart

【解决方案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)

【讨论】：

@Sven。我没有在ggplot工作过。使用这个包后我发现它也很容易。
@Sven 是否可以再添加一个具有相同级别但颜色和百分比不同的图，例如该变量中的目标数量？