Distribution du salaire annuel brut des salariés à temps complet de 2007 - ip1288

Données - INSEE

Distribution du salaire par centile

Code
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 = " "))

Fonction de répartition inversée (part des salariés au-dessus)

Code
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())