source | dataset | .html | .RData |
---|---|---|---|
insee | SMIC-COTISATIONS | 2024-12-22 | 2024-12-22 |
Taux de cotisations et salaires minima garantis - SMIC-COTISATIONS
Data - INSEE
Info
Données sur les salaires
source | dataset | .html | .RData |
---|---|---|---|
dares | les-indices-de-salaire-de-base | 2024-11-04 | 2024-12-15 |
insee | CNA-2014-RDB | 2024-12-22 | 2024-12-22 |
insee | CNT-2014-CSI | 2024-12-22 | 2024-12-22 |
insee | ECRT2023 | 2024-12-22 | 2023-06-30 |
insee | if230 | 2024-12-22 | 2021-12-04 |
insee | INDICE-TRAITEMENT-FP | 2024-12-22 | 2024-12-22 |
insee | ir_salaires_SL_23_csv | 2024-12-22 | NA |
insee | ir_salaires_SL_csv | 2024-12-22 | NA |
insee | SALAIRES-ACEMO | 2024-12-22 | 2024-12-22 |
insee | SALAIRES-ACEMO-2017 | 2024-12-22 | 2024-12-22 |
insee | SALAIRES-ANNUELS | 2024-12-22 | 2024-12-22 |
insee | t_7401 | 2024-12-20 | 2024-10-18 |
insee | t_salaire_val | 2024-12-21 | 2024-12-21 |
Data on wages
source | dataset | .html | .RData |
---|---|---|---|
eurostat | earn_mw_cur | 2024-11-23 | 2024-10-08 |
eurostat | ei_lmlc_q | 2024-11-23 | 2024-10-08 |
eurostat | lc_lci_lev | 2024-11-23 | 2024-10-08 |
eurostat | lc_lci_r2_q | 2024-11-23 | 2024-11-04 |
eurostat | nama_10_lp_ulc | 2024-11-23 | 2024-10-08 |
eurostat | namq_10_lp_ulc | 2024-11-23 | 2024-11-04 |
eurostat | tps00155 | 2024-11-22 | 2024-10-08 |
fred | wage | 2024-11-21 | 2024-12-22 |
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-11-22 | 2024-11-22 |
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 | 7768 |
CHGS | Cotisations sociales salariales | 5801 |
SMG | Salaires minima garantis | 2906 |
RET_COMP | Retraites complémentaires | 1210 |
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 % | 14674 |
VALEUR_ABSOLUE | Valeur absolue | 3011 |
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) %>%
+ geom_line(aes(x = date, y = OBS_VALUE)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = OBS_VALUE)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
ggplot 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]) %>%
+ geom_line(aes(x = date, y = indice, color = Indicateurs_smic_cotisations)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Indicateurs_smic_cotisations)) +
ggplot 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]) %>%
+ geom_line(aes(x = date, y = indice, color = Indicateurs_smic_cotisations)) +
ggplot 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))