Добавить процент счета для категориальной переменной в гистограмме; ggplots

Мне нужен кто-то, кто поможет мне отредактировать мой код, чтобы добавить количество процентов в качестве меток столбцов.

у меня есть код

scandals_deal_breaker <- data[, c("Q19.A: Sexual harassment",
                                  "Q19.B: Racism",                                                                                                                                       
                                  "Q19.C: Violence",                                                                                                                                     
                                  "Q19.D: Fraud and money laundering",                                                                                                                   
                                  "Q19.E: Alcohol and drug use")]


scandals_deal_breaker_count1 <- ldply(scandals_deal_breaker,
                                      function(c) sum(c=="1")/52) 

ggplot(scandals_deal_breaker_count1, aes(x=reorder(.id, -V1), y=V1)) + 
  geom_bar(stat="identity") + 
  xlab("") + ylab("") + 
  scale_x_discrete(breaks = c("Q19.A: Sexual harassment",
                              "Q19.B: Racism",                                                                                                                                       
                              "Q19.C: Violence",                                                                                                                                     
                              "Q19.D: Fraud and money laundering",                                                                                                                   
                              "Q19.E: Alcohol and drug use"),
                   labels = str_wrap(c("Sexual harassment","Racism","Violence",
                                       "Fraud and money laundering",
                                       "Alcohol and drug use"), width = 14)) +
  scale_y_continuous(labels = percent) +
  ggtitle("What types of scandals are \"deal-breakers\" for you?") +
  theme(plot.title = element_text(hjust = 0.5 , size = 8.5))

Это вопросы с несколькими вариантами ответов, сумма процентов должна составлять более 100%. Я хочу, чтобы процент для каждого столбца был добавлен.

Я попытался добавить следующий код, но он ставит метку 20% для каждого из вариантов.

geom_text(
    stat='count', 
    aes(y=after_stat(..count..),
        label=after_stat(scales::percent(..count../sum(..count..),1))),
    position=position_fill(0.5),
  )