source | dataset | .html | .qmd | .RData |
---|---|---|---|---|
eurostat | hbs_str_t223 | [2024-11-23] | https://fgee | olf.com/data |
insee | bdf2017 | [2024-12-22] | https://fgee | olf.com/data |
insee | if203 | [2024-11-22] | https://fgee | olf.com/data |
Les ménages les plus modestes dépensent davantage pour leur logement et les plus aisés pour les transports
Data - INSEE
Info
LAST_DOWNLOAD
Code
tibble(source = c("eurostat", "eurostat", "insee"),
dataset = c("hbs_str_t223", "hbs_exp_t121", "bdf2017")) %>%
mutate(Title = read_lines(paste0("~/iCloud/website/data/", source, "/",dataset, ".qmd"), skip = 1, n_max = 1) %>% gsub("title: ", "", .) %>% gsub("\"", "", .)) %>%
mutate(Download = as.Date(file.info(paste0("~/iCloud/website/data/", source, "/", dataset, ".RData"))$mtime),
Compile = as.Date(file.info(paste0("~/iCloud/website/data/", source, "/", dataset, ".html"))$mtime)) %>%
mutate(Compile = paste0("[", Compile, "](https://fgeerolf.com/data/", source, "/", dataset, '.html)')) %>%
print_table_conditional()
source | dataset | Title | Download | Compile |
---|---|---|---|---|
eurostat | hbs_str_t223 | Mean consumption expenditure by income quintile | 2024-11-23 | [2024-11-23] |
eurostat | hbs_exp_t121 | Mean consumption expenditure per household by COICOP consumption purpose | 2024-10-08 | [2024-11-23] |
insee | bdf2017 | Budget de famille 2017 | 2023-11-21 | [2024-12-22] |
LAST_COMPILE
LAST_COMPILE |
---|
2024-12-22 |
Comparer
Eurostat, 2015
Code
%>%
hbs_str_t223 filter(time == "2015",
== "FR",
geo nchar(coicop) == 4) %>%
left_join(coicop, by = "coicop") %>%
select_if(~ n_distinct(.) > 1) %>%
spread(quantile, values) %>%
select_if(~ n_distinct(.) > 1) %>%
print_table_conditional
coicop | Coicop | QUINTILE1 | QUINTILE2 | QUINTILE3 | QUINTILE4 | QUINTILE5 |
---|---|---|---|---|---|---|
CP01 | Food and non-alcoholic beverages | 147 | 150 | 154 | 150 | 128 |
CP02 | Alcoholic beverages, tobacco and narcotics | 35 | 30 | 28 | 24 | 20 |
CP03 | Clothing and footwear | 43 | 37 | 38 | 39 | 41 |
CP04 | Housing, water, electricity, gas and other fuels | 347 | 328 | 305 | 279 | 255 |
CP05 | Furnishings, household equipment and routine household maintenance | 34 | 40 | 43 | 47 | 58 |
CP06 | Health | 15 | 16 | 18 | 16 | 15 |
CP07 | Transport | 102 | 113 | 121 | 139 | 149 |
CP08 | Communications | 35 | 28 | 25 | 23 | 18 |
CP09 | Recreation and culture | 66 | 66 | 72 | 76 | 89 |
CP10 | Education | 8 | 4 | 3 | 4 | 9 |
CP11 | Restaurants and hotels | 40 | 41 | 44 | 52 | 71 |
CP12 | Miscellaneous goods and services | 128 | 147 | 150 | 150 | 148 |
Insee, 2015
Code
%>%
if203 filter(is.na(prop_loc)) %>%
select_if(~ n_distinct(.) > 1) %>%
spread(Quintile, value) %>%
select(coicop, Coicop, everything()) %>%
arrange(coicop) %>%
print_table_conditional
coicop | Coicop | 1er quintile (ménages modestes) | 5e quintile (ménages aisés) | Ensemble |
---|---|---|---|---|
CP01 | Alimentation (hors alcool) | 18.3 | 14.2 | 16.1 |
CP02 | Alcool et tabac | 3.4 | 2.3 | 2.9 |
CP03 | Habillement | 5.5 | 5.2 | 5.0 |
CP04 | Logement | 22.1 | 12.2 | 16.3 |
CP05 | Équipement du logement, meubles | 4.0 | 7.3 | 5.7 |
CP06 | Santé | 1.7 | 1.8 | 1.8 |
CP07 | Transports | 13.6 | 17.6 | 16.4 |
CP08 | Communications | 3.8 | 2.1 | 2.7 |
CP09 | Loisirs et culture | 7.2 | 11.3 | 9.4 |
CP10 | Enseignement | 1.5 | 0.9 | 0.8 |
CP11 | Restauration et hôtels | 5.2 | 9.4 | 7.2 |
CP12 | Biens et services divers (assurances, coiffeurs, etc.) | 13.7 | 15.8 | 15.8 |