ggplot(tips, aes(x= day, group=sex)) + geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count") + geom_text(aes( label = scales::percent(..prop..), y= ..prop.. ), stat= "count", vjust = -.5) + labs(y = "Percent", fill="day") + facet_grid(~sex) + scale_y_continuous(labels = scales::percent)