Figure 1 - Distribution des taux marginaux effectifs de prélèvement (TMEP) en 2014 et 2019 - IA66

Name: Figure 1 - Distribution des taux marginaux effectifs de prélèvement (TMEP) en 2014 et 2019
Creator: François Geerolf
License: https://www.etalab.gouv.fr/licence-ouverte-open-licence/

Données - INSEE

Auteur

François Geerolf

Distribution des taux marginaux effectifs de prélèvement (TMEP) en 2014 et 2019

Code

d1 |>
  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 = NULL, y = "en %",
       title = str_wrap("Distribution des taux marginaux effectifs de prélèvement (TMEP) en 2014 et 2019", 75)) +
  theme(legend.position = "none")

Taux marginaux effectifs de prélèvement (TMEP) médians en 2014 et 2019

Code

d2 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "",
       title = str_wrap("Taux marginaux effectifs de prélèvement (TMEP) médians en 2014 et 2019", 75)) +
  guides(color = guide_legend(ncol = 2))

Décomposition des taux marginaux effectifs de prélèvement (TMEP) moyens par type de transfert en 2019

Code

d3 |>
  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 = NULL, y = "",
       title = str_wrap("Décomposition des taux marginaux effectifs de prélèvement (TMEP) moyens par type de transfert en 2019", 75)) +
  theme(legend.position = "none")

Taux effectif de prélèvement de retour à l’emploi (TEPE) médians en 2014 et 2019

Code

d4 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "",
       title = str_wrap("Taux effectif de prélèvement de retour à l'emploi (TEPE) médians en 2014 et 2019", 75)) +
  guides(color = guide_legend(ncol = 2))

Différence de taux marginaux effectifs de prélèvement (TMEP) médians entre les barèmes de l’impôt sur le revenu de 2020 et de 2019

Code

d5 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = "Centièmes", y = "",
       title = str_wrap("Différence de taux marginaux effectifs de prélèvement (TMEP) médians entre les barèmes de l'impôt sur le revenu de 2020 et de 2019", 75)) +
  guides(color = guide_legend(ncol = 2))

Déciles de taux marginaux effectifs de prélèvement (TMEP) en 2019

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 = NULL, y = "en %",
       title = str_wrap("Déciles de taux marginaux effectifs de prélèvement (TMEP) en 2019", 75)) +
  theme(legend.position = "none")