Code
`IPCH-2005` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(desc(LAST_UPDATE)) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2016-01-13 | 33638 |
2015-02-19 | 2587 |
Data - INSEE
`IPCH-2005` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(desc(LAST_UPDATE)) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2016-01-13 | 33638 |
2015-02-19 | 2587 |
`IPCH-2005` %>%
group_by(TITLE_FR, IDBANK) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
`IPCH-2005` %>%
left_join(PRODUITS_IPCH2005, by = "PRODUITS_IPCH2005") %>%
group_by(PRODUITS_IPCH2005, Produits_ipch2005) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
`IPCH-2005` %>%
left_join(PRODUITS_IPCH2005, by = "PRODUITS_IPCH2005") %>%
group_by(PRODUITS_IPCH2005, Produits_ipch2005) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
`IPCH-2005` %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR, Indicateur) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
INDICATEUR | Indicateur | Nobs |
---|---|---|
IPCH | Indice des prix à la consommation harmonisé (IPCH) | 36225 |
`IPCH-2005` %>%
left_join(FREQ, by = "FREQ") %>%
group_by(FREQ, Freq) %>%
summarise(Nobs = n()) %>%
print_table_conditional
FREQ | Freq | Nobs |
---|---|---|
A | Annual | 5181 |
M | Monthly | 31044 |
`IPCH-2005` %>%
left_join(NATURE, by = "NATURE") %>%
group_by(NATURE, Nature) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
NATURE | Nature | Nobs |
---|---|---|
INDICE | Indice | 33638 |
POND | Pondérations d'indice | 2587 |
`IPCH-2005` %>%
group_by(REF_AREA) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
REF_AREA | Nobs |
---|---|
FE | 36225 |
`IPCH-2005` %>%
group_by(TITLE_FR, IDBANK) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
`IPCH-2005` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()
`IPCH-2005` %>%
rename(COICOP2016 = PRODUITS_IPCH2005) %>%
bind_rows(`IPC-2015`) %>%
filter(COICOP2016 %in% c("06", "T06"),
== "POND",
NATURE == "FE",
REF_AREA is.na(MENAGES_IPC) | MENAGES_IPC == "ENSEMBLE") %>%
%>%
year_to_date left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR) %>%
filter(date >= as.Date("1996-01-01")) %>%
arrange(date) %>%
ggplot() + ylab("Pondération de la Santé dans l'IPC, IPCH") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = OBS_VALUE/10000, color = Indicateur)) +
scale_color_manual(values = viridis(3)[1:2]) +
scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
theme(legend.position = c(0.7, 0.55),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 300, 1),
labels = percent_format(accuracy = 1))