Taux de cotisations et salaires minima garantis - SMIC-COTISATIONS

Data - INSEE

Author

François Geerolf

Info

source dataset .html .RData
insee SMIC-COTISATIONS 2024-11-15 2024-11-16

Données sur les salaires

source dataset .html .RData
dares les-indices-de-salaire-de-base 2024-11-04 2024-09-21
insee CNA-2014-RDB 2024-11-15 2024-11-15
insee CNT-2014-CSI 2024-11-15 2024-11-15
insee ECRT2023 2024-11-09 2023-06-30
insee if230 2024-11-09 2021-12-04
insee INDICE-TRAITEMENT-FP 2024-11-15 2024-11-15
insee ir_salaires_SL_23_csv 2024-11-09 NA
insee ir_salaires_SL_csv 2024-11-09 NA
insee SALAIRES-ACEMO 2024-11-09 2024-11-09
insee SALAIRES-ACEMO-2017 2024-11-09 2024-11-09
insee SALAIRES-ANNUELS 2024-11-15 2024-11-15
insee t_7401 2024-10-18 2024-10-18
insee t_salaire_val 2024-11-09 2024-09-02

Data on wages

source dataset .html .RData
eurostat earn_mw_cur 2024-11-08 2024-10-08
eurostat ei_lmlc_q 2024-11-08 2024-10-08
eurostat lc_lci_lev 2024-11-08 2024-10-08
eurostat lc_lci_r2_q 2024-11-08 2024-11-04
eurostat nama_10_lp_ulc 2024-11-08 2024-10-08
eurostat namq_10_lp_ulc 2024-11-05 2024-11-04
eurostat tps00155 2024-11-05 2024-10-08
fred wage 2024-11-09 2024-11-09
ilo EAR_4MTH_SEX_ECO_CUR_NB_A 2024-06-20 2023-06-01
ilo EAR_XEES_SEX_ECO_NB_Q 2024-06-20 2023-06-01
oecd AV_AN_WAGE 2024-04-16 2024-10-24
oecd AWCOMP 2024-09-15 2023-09-09
oecd EAR_MEI 2024-04-16 2024-04-16
oecd HH_DASH 2024-09-15 2023-09-09
oecd MIN2AVE 2024-09-15 2023-09-09
oecd RMW 2024-09-15 2024-03-12
oecd ULC_EEQ 2024-09-15 2024-04-15

TITLE_FR

Code 
`SMIC-COTISATIONS` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n(),
            date1 = first(TIME_PERIOD),
            date2 = last(TIME_PERIOD)) %>%
  arrange(-Nobs) %>%
  print_table_conditional

INDICATEURS_SMIC_COTISATIONS

Code 
`SMIC-COTISATIONS` %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  group_by(INDICATEURS_SMIC_COTISATIONS, Indicateurs_smic_cotisations) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

INDICATEUR

Code 
`SMIC-COTISATIONS` %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
INDICATEUR Indicateur Nobs
CHGP Cotisations sociales patronales 7752
CHGS Cotisations sociales salariales 5793
SMG Salaires minima garantis 2899
RET_COMP Retraites complémentaires 1199

NATURE

Code 
`SMIC-COTISATIONS` %>%
  left_join(NATURE, by = "NATURE") %>%
  group_by(NATURE, Nature) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
NATURE Nature Nobs
PROPORTION_POURCENTAGE Proportion en % 14640
VALEUR_ABSOLUE Valeur absolue 3003

Series in 1980

Code 
`SMIC-COTISATIONS` %>%
  filter(TIME_PERIOD == "1980-01") %>%
  select(INDICATEUR, IDBANK, TITLE_FR) %>%
  print_table_conditional()
INDICATEUR IDBANK TITLE_FR
SMG 000077502 Salaire minimum brut interprofessionnel de croissance (augmentation en %)
CHGS 000077576 Taux de cotisations salariales obligatoires des non-cadres hors contribution sociale généralisée (CSG) et contribution au remboursement de la dette sociale (CRDS) - Partie du salaire sous le plafond de la sécurité sociale (en %)
SMG 000822484 Salaire minimum brut interprofessionnel de croissance (en euros par heure)

SMIC Horaire

Graph - Linear

Code 
`SMIC-COTISATIONS` %>%
  filter(IDBANK == "000822484") %>%
  month_to_date %>%
  select(date, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2022, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 2000, 1),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "€"))

Graph - Log

Code 
`SMIC-COTISATIONS` %>%
  filter(IDBANK == "000822484") %>%
  month_to_date %>%
  select(date, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2022, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.5, 1, 2, 5, 10),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "€"))

Exemple

  • 10.25€/h x 151,666h/mois = 1554.58€

  • 10.25€/h x 35h/semaine x 52 = 18655€

  • 1 année = 35h/semaine x 52 = 1820 h / an.

35 heures x 52 semaines = 151,666 heures x taux horaire

Code 
i_g("bib/france/SMIC-17-septembre-2021.png")

Montant mensuel

2005-

Code 
`SMIC-COTISATIONS` %>%
  filter(INDICATEURS_SMIC_COTISATIONS %in% c("SMICMB-35H", "SMICMNN-35H")) %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  month_to_date %>%
  select(Indicateurs_smic_cotisations, date, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 2000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "€")) +
  
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

2012-

Code 
`SMIC-COTISATIONS` %>%
  filter(INDICATEURS_SMIC_COTISATIONS %in% c("SMICMB-35H", "SMICMNN-35H")) %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  month_to_date %>%
  filter(date >= as.Date("2012-01-01")) %>%
  select(Indicateurs_smic_cotisations, date, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 2000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "€")) +
  
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

2020-

Euros

Code 
`SMIC-COTISATIONS` %>%
  filter(INDICATEURS_SMIC_COTISATIONS %in% c("SMICMB-35H", "SMICMNN-35H")) %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  select(Indicateurs_smic_cotisations, date, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "3 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(0, 2000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "€")) +
  
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Indice

Code 
`SMIC-COTISATIONS` %>%
  filter(INDICATEURS_SMIC_COTISATIONS %in% c("SMICMB-35H", "SMICMNN-35H")) %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  select(Indicateurs_smic_cotisations, date, OBS_VALUE) %>%
  group_by(Indicateurs_smic_cotisations) %>%
  arrange(date) %>%
  mutate(indice = 100*OBS_VALUE/OBS_VALUE[1]) %>%
  ggplot + geom_line(aes(x = date, y = indice, color = Indicateurs_smic_cotisations)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "2 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(0, 2000, 2)) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

2021-

Euros

Code 
`SMIC-COTISATIONS` %>%
  filter(INDICATEURS_SMIC_COTISATIONS %in% c("SMICMB-35H", "SMICMNN-35H")) %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  month_to_date %>%
  filter(date >= as.Date("2021-01-01")) %>%
  select(Indicateurs_smic_cotisations, date, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "2 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(0, 2000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "€")) +
  
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Indice

Code 
`SMIC-COTISATIONS` %>%
  filter(INDICATEURS_SMIC_COTISATIONS %in% c("SMICMB-35H", "SMICMNN-35H")) %>%
  left_join(INDICATEURS_SMIC_COTISATIONS, by = "INDICATEURS_SMIC_COTISATIONS") %>%
  month_to_date %>%
  filter(date >= as.Date("2021-01-01")) %>%
  select(Indicateurs_smic_cotisations, date, OBS_VALUE) %>%
  group_by(Indicateurs_smic_cotisations) %>%
  arrange(date) %>%
  mutate(indice = 100*OBS_VALUE/OBS_VALUE[1]) %>%
  ggplot + geom_line(aes(x = date, y = indice, color = Indicateurs_smic_cotisations)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "2 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(0, 2000, 1)) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))