Taux de cotisations et salaires minima garantis - SMIC-COTISATIONS

Data - INSEE

Author

François Geerolf

Info

source dataset .html .RData

insee

SMIC-COTISATIONS

 2024-07-02 2024-07-03

Données sur les salaires

source dataset .html .RData

dares

les-indices-de-salaire-de-base

 2024-06-23 2024-06-22

insee

CNA-2014-RDB

 2024-07-03 2024-07-03

insee

CNT-2014-CSI

 2024-07-03 2024-07-03

insee

ECRT2023

 2024-07-03 2023-06-30

insee

if230

 2024-07-03 2021-12-04

insee

INDICE-TRAITEMENT-FP

 2024-07-03 2024-07-02

insee

ir_salaires_SL_csv

 2024-07-04 NA

insee

SALAIRES-ACEMO

 2024-07-04 2024-07-03

insee

SALAIRES-ACEMO-2017

 2024-07-04 2024-07-03

insee

SALAIRES-ANNUELS

 2024-07-04 2024-07-03

insee

t_7401

 2024-07-02 2023-12-23

insee

t_salaire_val

 2024-06-20 2024-07-01

Data on wages

source dataset .html .RData

eurostat

earn_mw_cur

 2024-07-01 2024-06-30

eurostat

ei_lmlc_q

 2024-07-01 2024-06-30

eurostat

lc_lci_lev

 2024-07-01 2024-06-30

eurostat

lc_lci_r2_q

 2024-07-01 2024-07-01

eurostat

nama_10_lp_ulc

 2024-07-01 2024-06-30

eurostat

namq_10_lp_ulc

 2024-07-01 2024-06-30

eurostat

tps00155

 2024-07-01 2024-06-30

fred

wage

 2024-07-03 2024-07-03

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 2023-09-09

oecd

AWCOMP

 2024-07-01 2023-09-09

oecd

EAR_MEI

 2024-04-16 2024-04-16

oecd

HH_DASH

 2024-07-01 2023-09-09

oecd

MIN2AVE

 2024-07-01 2023-09-09

oecd

RMW

 2024-07-01 2024-03-12

oecd

ULC_EEQ

 2024-07-01 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 7698
CHGS Cotisations sociales salariales 5761
SMG Salaires minima garantis 2871
RET_COMP Retraites complémentaires 1155

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 % 14514
VALEUR_ABSOLUE Valeur absolue 2971

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