calculating percenatges in stacked bar plot
df=diamonds2 %>% group_by(color,cut) %>% summarise(n=n()) %>% mutate(prcent = paste0(round(100 * n/sum(n), 2), "%"))