Alternative solutions for 2.3.1 Exercises 2

[ghmorrison]

Big but usable, complete, and does not alter information

data(mpg)
descOrder <- sort(unique(mpg$model), decreasing = TRUE)
mpg %>%
mutate(model = factor(model, levels = descOrder)) %>%
ggplot(aes( manufacturer, model)) +
geom_point()