Data solutions with R

Beauty of ggplot!

mpg %>% count(class) %>% mutate(n = n * 2000) %>% ggplot(aes(reorder(class, n), n)) + geom_col(fill = ' ') + geom_text(aes(label = comma(n)), hjust = 0, nudge_y = 2000) + scale_y_continuous(labels = comma, limits = c(0, 150000)) + coord_flip() + labs(x = "Fuel efficiency (mpg)", y = "Weight (tons)", title = "Fuel efficiency of different car models", subtitle = "All models are pre-tested", caption = "Data source: Beautiful-data") + theme_ipsum(grid = "Y")