A touch up script in R for problem-solving

touchupSO.R

library(tidyverse)
category <- c("red", "blue", "green", "yellow")
tag <- c("yes", "no", "maybe", "idk")
value <- c(21, 1, 10, 9) 
df <- data.frame(category, tag, value) %>% 
   mutate(prop = value/sum(value)) 

df %>% 
  ggplot(aes(tag, prop, fill = category))+
  geom_col()+
  geom_text(aes(label = prop %>% scales::percent()), position=position_dodge(width=0.9), vjust=-0.25)