#: ggplot, percent