Creating a Stacked Percentage Bar Chart in R with ggplot with labels-CodePudding

I have a dataset that has the variables "SEXO" (M or F) and "Class" (0 or 1). I want to create a bar plot using ggplot2 that shows, for each sex, the distribution of Class as a percentage. I was able to get the plot, but I can't seem to get the labels working on the bars itself. I don't want to change the labels on the axis, I just want to get the % shown on the plot for each SEXO.

This is the code I have been using:

ggplot(data = df, aes(x = SEXO, fill = Class))   geom_bar(position = 'fill')

I also attach an image of the plot produced by the code:

This would be the ideal outcome:

CodePudding user response：

Here an example using the mtcars dataset where you can calculate the percentage per group and use these to place in your bars using label with geom_text like this:

library(ggplot2)
library(dplyr)
mtcars %>%
  group_by(am, vs) %>%
  summarise(cnt = n()) %>%
  mutate(perc = round(cnt/sum(cnt), 2)) %>%
  ggplot(aes(x = factor(vs), fill = factor(am), y = perc))   
  geom_col(position = 'fill')  
  geom_text(aes(label = paste0(perc*100,"%"), y = perc), position = position_stack(vjust = 0.5), size = 3)  
  labs(fill = 'Class', x = 'vs')  
  scale_y_continuous(limits = c(0,1))
#> `summarise()` has grouped output by 'am'. You can override using the `.groups`
#> argument.

^{Created on 2022-11-02 with reprex v2.0.2}