Chiffres détaillés - Salaires et revenus d’activité - base-cc-bases-tous-salaries-2019

Données - INSEE

Auteur

François Geerolf

Last data update: 26 oct. 2026, 19:32

Last compile: 26 oct. 2026, 19:46

Chiffres détaillés - Salaires et revenus d’activité

Code 
d1 |>
  filter(!is.na(valeur), !total100) |>
  filter(paste(libelle, coalesce(libelle2, "")) %in% head(unique(paste(libelle, coalesce(libelle2, ""))), 60)) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d2 |>
  filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
  mutate(cle = str_wrap(cle, 32)) |>
  ggplot(aes(x = annee, y = valeur)) +
  geom_line(color = bleu, linewidth = 0.9) +
  facet_wrap(~ cle, scales = "free_y", ncol = 3) +
  theme_pub(9) +
  labs(x = "CODGEO", y = "",
       title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "none")

Chiffres détaillés - Salaires et revenus d’activité

Code 
d3 |>
  filter(!is.na(valeur), !total100) |>
  filter(paste(libelle, coalesce(libelle2, "")) %in% head(unique(paste(libelle, coalesce(libelle2, ""))), 60)) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d4 |>
  filter(!is.na(valeur), !total100) |>
  filter(paste(libelle, coalesce(libelle2, "")) %in% head(unique(paste(libelle, coalesce(libelle2, ""))), 60)) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d5 |>
  filter(!is.na(valeur), !total100) |>
  filter(paste(libelle, coalesce(libelle2, "")) %in% head(unique(paste(libelle, coalesce(libelle2, ""))), 60)) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d6 |>
  filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
  mutate(cle = str_wrap(cle, 32)) |>
  ggplot(aes(x = annee, y = valeur)) +
  geom_line(color = bleu, linewidth = 0.9) +
  facet_wrap(~ cle, scales = "free_y", ncol = 3) +
  theme_pub(9) +
  labs(x = "CODGEO", y = "",
       title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "none")

Chiffres détaillés - Salaires et revenus d’activité

Code 
d7 |>
  filter(!is.na(valeur), !total100) |>
  filter(paste(libelle, coalesce(libelle2, "")) %in% head(unique(paste(libelle, coalesce(libelle2, ""))), 60)) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d8 |>
  filter(!is.na(valeur), !total100) |>
  filter(paste(libelle, coalesce(libelle2, "")) %in% head(unique(paste(libelle, coalesce(libelle2, ""))), 60)) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d9 |>
  filter(!is.na(valeur), !total100) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d10 |>
  filter(!is.na(valeur), !total100) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())

Chiffres détaillés - Salaires et revenus d’activité

Code 
d11 |>
  filter(!is.na(valeur), !total100) |>
  mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
  ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
  geom_tile(color = "white") +
  scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "") +
  theme_pub(9) +
  labs(x = NULL, y = NULL, title = str_wrap("Chiffres détaillés - Salaires et revenus d'activité", 75)) +
  theme(legend.position = "right", panel.grid = element_blank())