Last data update: 02 août 2026, 11:04
Last compile: 28 sept. 2026, 22:45
ip1288 |>
ggplot() + geom_line(aes(x = centile, y = salaire), color = rgb(0.2, 0.4, 0.65), linewidth = 1) +
theme_minimal() + xlab("Centile") + ylab("Salaire annuel brut (€)") +
scale_y_continuous(labels = scales::label_number(big.mark = " "))
ip1288 |>
ggplot() + geom_line(aes(x = salaire, y = countercumulative), color = rgb(0.6, 0.2, 0.35), linewidth = 1) +
theme_minimal() + xlab("Salaire annuel brut (€)") + ylab("Part des salariés gagnant plus") +
scale_x_continuous(labels = scales::label_number(big.mark = " ")) +
scale_y_continuous(labels = scales::percent_format())