Используйте пакет forcats :

library(forcats)
library(ggplot2)

ggplot(mpg, aes(fct_infreq(class))) + 
  geom_bar()

введите описание изображения здесь


Есть идеи?

10000