3.217 – Principaux impôts par catégorie (En milliards d’euros)

Data - INSEE

Author

François Geerolf

Info

source dataset .html .RData
insee CNA-2014-PIB 2024-11-05 2024-11-05
insee t_3217 2024-10-29 2023-07-17

Données sur les finances publiques

source dataset .html .RData
insee t_3217 2024-10-29 2023-07-17
insee t_7301 2024-10-29 2024-10-17

Last

Code 
t_3217 %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(year)) %>%
  head(1) %>%
  print_table_conditional()
year Nobs
2022 69

Principaux impots

Code 
i_g("bib/insee/TEF2020/recette-administrations-publiques-bind.png")

2019

Ordre Ligne

Code 
i_g("bib/insee/t_3217_bind.png")

Ordre Ligne

Code 
t_3217 %>%
  filter(year == "2019") %>%
  left_join(gdp, by = "year") %>%
  select(-year) %>%
  mutate(`%` = round(100*value / gdp, 2)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Ordre décroissant

Code 
t_3217 %>%
  filter(year == "2019") %>%
  left_join(gdp, by = "year") %>%
  select(-year) %>%
  mutate(`%` = round(100*value / gdp, 2)) %>%
  arrange(-value) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Individuel

Ensemble des prélèvements obligatoires

Code 
t_3217 %>%
  filter(line %in% c(68)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

Cotisations sociales effectives

Code 
t_3217 %>%
  filter(line %in% c(66)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

Tabac

Code 
t_3217 %>%
  filter(line %in% c(6)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 0.02),
                labels = percent_format(accuracy = .01)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

CSG (Santé), Tabac

Code 
t_3217 %>%
  filter(line %in% c(6, 47)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

Gros prélèvements

TVA, produits

Code 
t_3217 %>%
  filter(line %in% c(1, 4, 18, 27, 46, 66)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.55, 0.55),
        legend.title = element_blank())

Impôt sur les sociétés

Code 
t_3217 %>%
  filter(line %in% c(53)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .2),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank())

Impôt sur les sociétés, IR, TICPE

Code 
t_3217 %>%
  filter(line %in% c(53, 50, 5)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .2),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.55, 0.9),
        legend.title = element_blank())

Droits d’enregistrement, droits de mutation, habitation, foncière

Code 
t_3217 %>%
  filter(line %in% c(7, 64, 58, 33)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .1),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

IR, TVA, CSG

Tous

Code 
t_3217 %>%
  filter(line %in% c(1, 47, 46)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

Court

Code 
t_3217 %>%
  filter(line %in% c(1, 47, 46)) %>%
  left_join(tibble(line = c(1, 47, 46),
                   Variable = c("TVA", "Impôt sur le Revenu", "CSG"))) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.85, 0.15),
        legend.title = element_blank())

IR, CSG (Santé), TVA, Impôts sur les produits

Code 
t_3217 %>%
  filter(line %in% c(1, 4, 44, 47)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 1),
                labels = percent_format(accuracy = 1),
                limits = c(0, 0.08)) +
  
  theme(legend.position = c(0.6, 0.15),
        legend.title = element_blank())

Taxe foncière, Impots divers sur la production, Impôts sur les salaires

Code 
t_3217 %>%
  filter(line %in% c(26, 18, 31, 32)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .5),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.3, 0.5),
        legend.title = element_blank())

Autres impots, Droit enregistrement, IS, TIPP

Code 
t_3217 %>%
  filter(line %in% c(8, 9, 13, 6, 14)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .1),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank())

Autres impots, Droit enregistrement, IS, TIPP

All

Code 
t_3217 %>%
  filter(line %in% c(8, 9, 13, 6, 14)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .1),
                labels = percent_format(accuracy = .1),
                limits = c(0, 0.008)) +
  theme(legend.position = c(0.3, 0.86),
        legend.title = element_blank())

2000-

Code 
t_3217 %>%
  filter(line %in% c(8, 9, 13, 6, 14)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("2000-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .1),
                labels = percent_format(accuracy = .1),
                limits = c(0, 0.008)) +
  theme(legend.position = c(0.3, 0.86),
        legend.title = element_blank())

2007-

Code 
t_3217 %>%
  filter(line %in% c(8, 9, 13, 6, 14)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("2007-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2027, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .1),
                labels = percent_format(accuracy = .1),
                limits = c(0, 0.008)) +
  theme(legend.position = c(0.3, 0.86),
        legend.title = element_blank())

Somme

Code 
t_3217 %>%
  filter(line %in% c(8, 9, 13, 6, 14)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("2007-01-01")) %>%
  group_by(date) %>%
  summarise(value = sum(value),
            gdp = gdp[1]) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1960, 2027, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, .1),
                labels = percent_format(accuracy = .1)) +
  theme(legend.position = c(0.3, 0.86),
        legend.title = element_blank())

Petits impôts

Droits d’enregistrement

Code 
t_3217 %>%
  filter(line %in% c(7)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("Droits d'enregistrement (% du PIB)") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 0.05),
                labels = percent_format(accuracy = .01)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

Taxe intérieure de consommation sur les produits énergétiques

Code 
t_3217 %>%
  filter(line %in% c(5)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("Taxe intérieure de conso sur les produits énergétiques\n(% du PIB)") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 0.05),
                labels = percent_format(accuracy = .01)) +
  
  theme(legend.position = c(0.75, 0.15),
        legend.title = element_blank())

Taxe foncière

Code 
t_3217 %>%
  filter(line %in% c(33, 34, 35)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  mutate(Line = gsub("Taxe foncière", " Taxe foncière", Line)) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Line)) +
  theme_minimal() + xlab("") + ylab("Taxe foncière (% du PIB)") +
  scale_x_date(breaks = seq(1960, 2030, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 500, 0.1),
                labels = percent_format(accuracy = .1)) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())