Revenue Statistics - France

Data - OECD

Author

Info

dataset	.html	.qmd	.RData
EAR_MEI	2024-09-11	2024-06-14	2023-09-09

LAST_COMPILE

LAST_COMPILE
2024-09-15

Last

Code

REVFRA %>%
  group_by(obsTime) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(obsTime)) %>%
  head(3) %>%
  print_table_conditional()

obsTime	Nobs
2021	1039
2020	1039
2019	1032

GOV

Code

REVFRA %>%
  left_join(REVFRA_var$GOV, by = "GOV") %>%
  group_by(GOV, Gov) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

GOV	Gov	Nobs
NES	Total	15298
FED	Federal or Central government	11286
LOCAL	Local government	10360
SOCSEC	Social Security Funds	9469
SUPRA	Supranational	5940

TAX

Code

REVFRA %>%
  left_join(REVFRA_var$TAX, by = "TAX") %>%
  group_by(TAX, Tax) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

2021

All

Code

REVFRA %>%
  filter(obsTime == "2021") %>%
  left_join(REVFRA_var$TAX, by = "TAX") %>%
  left_join(REVFRA_var$GOV, by = "GOV") %>%
  select(TAX, Tax, Gov, obsValue) %>%
  spread(Gov, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

NES

Code

REVFRA %>%
  filter(obsTime == "2021",
         GOV == "NES") %>%
  left_join(REVFRA_var$TAX, by = "TAX") %>%
  select(TAX, Tax, obsValue) %>%
  mutate(share = round(100*obsValue/obsValue[TAX == "TOTALTAX"], 1)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Impôts sur la propriété

Code

REVFRA %>%
  filter(obsTime == "2021",
         (grepl("41", TAX) | grepl("40", TAX) | grepl("42", TAX) | grepl("43", TAX) | 
           grepl("44", TAX) | grepl("45", TAX) | grepl("46", TAX) | TAX == "TOTALTAX") & !grepl("FRA_51", TAX),
         GOV == "NES") %>%
  left_join(REVFRA_var$TAX, by = "TAX") %>%
  select(TAX, Tax, obsValue) %>%
  mutate(share = round(100*obsValue/obsValue[TAX == "TOTALTAX"], 1)) %>%
  arrange(-share) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

16 milliards d’euros aux collectivités en 2021. html