在R [重复]中显示ggplot条形图上的百分比

Question

这个问题在这里已有答案：

• Adding percentage labels to a bar chart in ggplot2 1回答
• Show % instead of counts in charts of categorical variables 8个答案

我需要在R中的条形图条上显示百分比值。

此代码绘制分类数据，x上的类别和y上的％。如何修改它，使其显示条形本身的百分比，而不仅仅是在y轴上？

ggplot(data = iris) + 
  geom_bar(mapping = aes(x = Species, y = (..count..)/sum(..count..), fill = Species)) +
  scale_y_continuous(labels = percent)

Answer 1

ggplot中的..count..帮助程序可以用于简单的情况，但通常最好先将数据聚合到适当的级别，而不是在ggplot调用中：

library(tidyverse)
library(scales)

irisNew <- iris %>% group_by(Species) %>% 
 summarize(count = n()) %>%  # count records by species
 mutate(pct = count/sum(count))  # find percent of total

ggplot(irisNew, aes(Species, pct, fill = Species)) + 
  geom_bar(stat='identity') + 
  geom_text(aes(label=scales::percent(pct)), position = position_stack(vjust = .5))+
  scale_y_continuous(labels = scales::percent)

vjust = .5将标签集中在每个栏中

Answer 2

ggplot(data = iris, aes(x = factor(Species), fill = factor(Species))) +
geom_bar(aes(y = (..count..)/sum(..count..)),
         position = "dodge") + 
geom_text(aes(y = (..count..)/sum(..count..), 
              label = paste0(prop.table(..count..) * 100, '%')), 
          stat = 'count', 
          position = position_dodge(.9), 
          size = 3)+ 
labs(x = 'Species', y = 'Percent', fill = 'Species')