Reversing the order of fill in ggplot stacked bar revrsing legend
%R df_unique$Churn <- factor(df_unique$Churn, levels=rev(levels(df_unique$Churn)))
#for reversing the order of fill
scale_fill_discrete(guide=guide_legend(reverse=T))
#for reversing the legend