Impôt sur le revenu par tranche de taux marginal, 2019-2024

Données - DGFIP

source(here::here("_rinit.R"))
invisible(Sys.setlocale("LC_TIME", "fr_FR.UTF-8"))
# cd ~/iCloud/website/data/dgfip; /usr/local/bin/R -e 'quarto::quarto_render("ir-taux-marginal.qmd")'
# cd ~/iCloud/website/data; sh _status/run_all_silent.sh --only dgfip

knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE,
                       fig.width = 9, fig.height = 5.5, dpi = 150)
source(here::here("data", "dgfip", "_cartes.R"))

ds_path <- here::here("data", "dgfip", "ir-taux-marginal.parquet")
irt <- arrow::read_parquet(ds_path)
fr <- scales::label_number(big.mark = " ", decimal.mark = ",")

theme_dgfip <- theme_minimal(base_size = 12) +
  theme(plot.title = element_text(face = "bold"),
        plot.subtitle = element_text(colour = "grey35"),
        panel.grid.minor = element_blank())

Last data update: 01 oct. 2026, 22:59

Last compile: 01 oct. 2026, 23:04

Source : DGFIP, statistiques sur l’impôt sur le revenu. Foyers (en milliers) et impôt net (en millions d’euros) selon la tranche du barème dans laquelle se situe le quotient familial.

Foyers et impôt par tranche, dernière année

dernier <- max(irt$annee)
irt |>
  dplyr::filter(annee == dernier, tranche != "TOTAL") |>
  dplyr::mutate(taux = factor(scales::percent(taux_marginal, accuracy = 1))) |>
  dplyr::select(taux, `Part des foyers` = part_foyers, `Part de l'impôt net` = part_impot) |>
  tidyr::pivot_longer(-taux) |>
  ggplot(aes(taux, value, fill = name)) + geom_col(position = "dodge") +
  scale_y_continuous(labels = scales::label_percent(accuracy = 1)) +
  scale_fill_manual(values = c("#9ecae1", "#08519c"), name = NULL) +
  labs(title = paste0("Foyers et impôt net selon le taux marginal, ", dernier),
       x = "Taux marginal du barème", y = NULL) + theme_dgfip + theme(legend.position = "bottom")

Part de l’impôt net payée par chaque tranche, 2019-2024

irt |>
  dplyr::filter(tranche != "TOTAL") |>
  dplyr::mutate(taux = factor(scales::percent(taux_marginal, accuracy = 1))) |>
  ggplot(aes(annee, part_impot, fill = taux)) + geom_col() +
  scale_y_continuous(labels = scales::label_percent(accuracy = 1)) +
  scale_fill_viridis_d(name = "Taux marginal") +
  labs(title = "Qui paie l'impôt sur le revenu ?", subtitle = "Part de l'impôt net par tranche du barème", x = NULL, y = NULL) +
  theme_dgfip

Nombre de foyers par tranche

irt |>
  dplyr::filter(tranche != "TOTAL") |>
  dplyr::mutate(taux = factor(scales::percent(taux_marginal, accuracy = 1))) |>
  ggplot(aes(annee, nb_foyers / 1000, colour = taux)) + geom_line() + geom_point() +
  scale_colour_viridis_d(name = "Taux marginal") +
  labs(title = "Nombre de foyers par tranche du barème", x = NULL, y = "millions de foyers") + theme_dgfip