Last observation: 2025 (N = 57522)
First observation: 2001 (N = 16860)
Last data update: 14 aoû 2026, 20:20. Last compile: 18 aoû 2026, 03:24
Data - Eurostat
Last observation: 2025 (N = 57522)
First observation: 2001 (N = 16860)
Last data update: 14 aoû 2026, 20:20. Last compile: 18 aoû 2026, 03:24
prc_hicp_apc |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
coicop == "CP0451",
statinfo == "WT",
administr == "ADM") |>
year_to_date() |>
mutate(values = values/1000) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + scale_color_identity() + add_flags +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Electricity weight in HICP basket (per mille -> %)") +
scale_y_continuous(labels = scales::percent_format(accuracy = 0.1))
prc_hicp_apc |>
filter(geo == "FR",
coicop %in% c("CP0451", "CP0452", "CP0611"),
statinfo == "WT",
administr == "ADM") |>
year_to_date() |>
mutate(values = values/1000) |>
ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.title = element_blank()) +
xlab("") + ylab("Weight in HICP basket") +
scale_y_continuous(labels = scales::percent_format(accuracy = 0.1))
prc_hicp_apc |>
filter(time == "2022",
geo == "FR") %>%
select_if(~n_distinct(.) > 1) |>
filter(values != 0) |>
spread(statinfo, values)# # A tibble: 120 × 7
# Statinfo coicop Coicop administr Administr STA WT
# <chr> <chr> <chr> <chr> <chr> <dbl> <dbl>
# 1 Status CP02201 Cigarettes ADM Administered 1 NA
# 2 Status CP02201 Cigarettes ADM_M Mainly adminis… 1 NA
# 3 Status CP02202 Cigars ADM Administered 1 NA
# 4 Status CP02202 Cigars ADM_M Mainly adminis… 1 NA
# 5 Status CP02203 Other tobacco products ADM Administered 1 NA
# 6 Status CP02203 Other tobacco products ADM_M Mainly adminis… 1 NA
# 7 Status CP0441 Water supply ADM Administered 1 NA
# 8 Status CP0441 Water supply ADM_F Fully administ… 1 NA
# 9 Status CP0442 Refuse collection ADM Administered 1 NA
# 10 Status CP0442 Refuse collection ADM_F Fully administ… 1 NA
# # ℹ 110 more rows
prc_hicp_apc |>
filter(time == "2022",
geo == "DE") %>%
select_if(~n_distinct(.) > 1) |>
filter(values != 0) |>
spread(statinfo, values)# # A tibble: 120 × 7
# Statinfo coicop Coicop administr Administr STA WT
# <chr> <chr> <chr> <chr> <chr> <dbl> <dbl>
# 1 Status CP0441 Water supply ADM Administ… 1 NA
# 2 Status CP0441 Water supply ADM_F Fully ad… 1 NA
# 3 Status CP0442 Refuse collection ADM Administ… 1 NA
# 4 Status CP0442 Refuse collection ADM_F Fully ad… 1 NA
# 5 Status CP0443 Sewerage collection ADM Administ… 1 NA
# 6 Status CP0443 Sewerage collection ADM_F Fully ad… 1 NA
# 7 Status CP04449 Other services related to d… ADM Administ… 1 NA
# 8 Status CP04449 Other services related to d… ADM_F Fully ad… 1 NA
# 9 Status CP0611 Pharmaceutical products ADM Administ… 1 NA
# 10 Status CP0611 Pharmaceutical products ADM_M Mainly a… 1 NA
# # ℹ 110 more rows