Évolution du salaire annuel net moyen des salariés dans le secteur privé à temps complet selon le sexe

Data - INSEE

Info

source	dataset	Title	.html	.rData
insee	marc-salair-net-moy-sexe	Évolution du salaire annuel net moyen des salariés dans le secteur privé à temps complet selon le sexe	2025-10-10	2025-04-04

Données sur le pouvoir d’achat

source	dataset	Title	.html	.rData
insee	CNA-2014-RDB	Revenu et pouvoir d’achat des ménages	2025-10-10	2025-10-09
insee	CNT-2014-CSI	Comptes de secteurs institutionnels	2025-10-10	2025-10-09
insee	T_7401	7.401 – Compte des ménages (S14) (En milliards d'euros)	2025-10-10	2025-09-29
insee	conso-eff-fonction	Consommation effective des ménages par fonction	2025-10-10	2022-06-14
insee	econ-gen-revenu-dispo-pouv-achat-2	Revenu disponible brut et pouvoir d’achat - Données annuelles	2025-10-10	2024-07-05
insee	reve-conso-evo-dep-pa	Évolution de la dépense et du pouvoir d’achat des ménages - Données annuelles de 1960 à 2023	2025-10-10	2024-12-11
insee	reve-niv-vie-individu-activite	NA	NA	NA
insee	reve-niv-vie-pouv-achat-trim	Évolution du revenu disponible brut et du pouvoir d’achat - Données trimestrielles	2025-10-10	2024-12-11
insee	t_men_val	Revenu, pouvoir d'achat et comptes des ménages - Valeurs aux prix courants	2025-10-10	2025-08-29
insee	t_pouvachat_val	Pouvoir d'achat et ratios des comptes des ménages	2025-10-10	2025-08-29
insee	t_recapAgent_val	Récapitulatif des séries des comptes d'agents	2025-10-10	2025-09-29
insee	t_salaire_val	Salaire moyen par tête - SMPT (données CVS)	2025-10-10	2025-08-29
oecd	HH_DASH	Household Dashboard	2025-09-29	2023-09-09

Source

Source: https://www.insee.fr/fr/statistiques/2381334

Tous

Lineaire

plot_lineaire <- `marc-salair-net-moy-sexe` %>%
  year_to_date2 %>%
  ggplot() + geom_line(aes(x = date, y = value, color = sexe)) +
  scale_x_date(breaks = seq(1950, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme_minimal() + xlab("") + ylab("") +
  scale_y_continuous(breaks = seq(100, 1000, 50),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(date == max(date)),
             aes(x = date, y = value, color = sexe, label = round(value, 1)))

plot_lineaire

Log

plot_log <- plot_lineaire +
  scale_y_log10(breaks = seq(100, 1000, 50))

plot_log

Bind

ggarrange(plot_lineaire + ggtitle("Salaire annuel net moyen des salariés dans le secteur privé\nÉchelle Linéaire"), plot_log + ggtitle("\nÉchelle Log"))

1990-

Lineaire

plot_lineaire <- `marc-salair-net-moy-sexe` %>%
  year_to_date2 %>%
  filter(date >= as.Date("1990-01-01")) %>%
  group_by(sexe) %>%
  arrange(date) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot + geom_line(aes(x = date, y = value, color = sexe)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme_minimal() + xlab("") + ylab("") +
  scale_y_continuous(breaks = seq(100, 1000, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(date == max(date)),
             aes(x = date, y = value, color = sexe, label = round(value, 1)))

plot_lineaire

Log

plot_log <- plot_lineaire +
  scale_y_log10(breaks = seq(100, 1000, 5))

plot_log

Bind

ggarrange(plot_lineaire + ggtitle("Salaire annuel net moyen des salariés dans le secteur privé\nÉchelle Linéaire"), plot_log + ggtitle("\nÉchelle Log"))

1992-

Lineaire

plot_lineaire <- `marc-salair-net-moy-sexe` %>%
  year_to_date2 %>%
  filter(date >= as.Date("1992-01-01")) %>%
  group_by(sexe) %>%
  arrange(date) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot + geom_line(aes(x = date, y = value, color = sexe)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme_minimal() + xlab("") + ylab("") +
  scale_y_continuous(breaks = seq(100, 1000, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(date == max(date)),
             aes(x = date, y = value, color = sexe, label = round(value, 1)))

plot_lineaire

Log

plot_log <- plot_lineaire +
  scale_y_log10(breaks = seq(100, 1000, 5))

plot_log

Bind

ggarrange(plot_lineaire + ggtitle("Salaire annuel net moyen des salariés dans le secteur privé\nÉchelle Linéaire"), plot_log + ggtitle("\nÉchelle Log"))

1996-

Lineaire

plot_lineaire <- `marc-salair-net-moy-sexe` %>%
  year_to_date2 %>%
  filter(date >= as.Date("1996-01-01")) %>%
  group_by(sexe) %>%
  arrange(date) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot + geom_line(aes(x = date, y = value, color = sexe)) +
  scale_x_date(breaks = seq(1996, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme_minimal() + xlab("") + ylab("") +
  scale_y_continuous(breaks = seq(100, 1000, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(date == max(date)),
             aes(x = date, y = value, color = sexe, label = round(value, 1)))

plot_lineaire

Log

plot_log <- plot_lineaire +
  scale_y_log10(breaks = seq(100, 1000, 5))

plot_log

Bind

ggarrange(plot_lineaire + ggtitle("Salaire annuel net moyen des salariés dans le secteur privé\nÉchelle Linéaire"), plot_log + ggtitle("\nÉchelle Log"))

1999-

Lineaire

plot_lineaire <- `marc-salair-net-moy-sexe` %>%
  year_to_date2 %>%
  filter(date >= as.Date("1999-01-01")) %>%
  group_by(sexe) %>%
  arrange(date) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot + geom_line(aes(x = date, y = value, color = sexe)) +
  scale_x_date(breaks = seq(1999, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme_minimal() + xlab("") + ylab("") +
  scale_y_continuous(breaks = seq(100, 1000, 1),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(date == max(date)),
             aes(x = date, y = value, color = sexe, label = round(value, 1)))

plot_lineaire

Log

plot_log <- plot_lineaire +
  scale_y_log10(breaks = seq(100, 1000, 1))

plot_log

Bind

ggarrange(plot_lineaire + ggtitle("Salaire annuel net moyen des salariés dans le secteur privé\nÉchelle Linéaire"), plot_log + ggtitle("\nÉchelle Log"))