mpg |>
count(manufacturer) |>
mutate(manufacturer = str_to_title(manufacturer)) |>
gf_col(n ~ fct_reorder(manufacturer, n) , stat = "identity", fill = "steelblue") |>
gf_refine(coord_flip()) |>
gf_labs(x = "Manufacturer",
y = "Count",
title = "The most common manufacturer is Dodge") |>
gf_refine(theme_bw() )