graphique_ventes <- resume_succursales |>
mutate(succursale = fct_reorder(succursale, ventes_totales)) |>
ggplot(aes(x = ventes_totales, y = succursale)) +
geom_col(fill = "#0B4F6C") +
scale_x_continuous(labels = scales::label_dollar(
prefix = "", suffix = " $", big.mark = " ", decimal.mark = ","
)) +
labs(
title = "Ventes totales par succursale",
x = "Ventes totales ($ CA)",
y = NULL
) +
theme_minimal(base_size = 14)
graphique_ventes