Ответ 1
Здесь решение, которое можно найти в связанном вопросе:
pp <- ggplot(data=tips, aes(x=day)) +
geom_bar(aes(y = (..count..)/sum(..count..)))
Если вы хотите пометить частоты в процентах, добавьте это (см. здесь):
library(scales)
pp + scale_y_continuous(labels = percent)