Environmental protection expenditure by size class (NACE Rev. 2, B-E) - sbs_env_sc_r2
Data - Eurostat
Info
Last observation: Annual: 2018 (N = 7,504)
First observation: Annual: 2008 (N = 6,684)
Last data update: 11 aoû 2026, 19:29. Last compile: 12 aoû 2026, 03:15
Structure
Pollution Control Investment, Manufacturing
France, Germany, Italy, Spain
Code
sbs_env_sc_r2 |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
nace_r2 == "C",
size_emp == "TOTAL",
indic_sb == "V21110") |>
year_to_date() |>
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(2005, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Investment in pollution control equipment (Mn€)")
France: Pollution Control vs. Cleaner Technology
Manufacturing
Code
sbs_env_sc_r2 |>
filter(geo == "FR",
nace_r2 == "C",
size_emp == "TOTAL") |>
year_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic_sb)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2005, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Investment (Mn€)") +
theme(legend.position = "bottom", legend.title = element_blank()) +
guides(color = guide_legend(nrow = 2))
Latest Year, Manufacturing (Mn€)
Code
latest_y_sbs <- sbs_env_sc_r2 |>
filter(nace_r2 == "C",
size_emp == "TOTAL",
indic_sb == "V21110",
geo %in% c("FR", "DE", "IT", "ES"),
!is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
sbs_env_sc_r2 |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
nace_r2 == "C",
size_emp == "TOTAL",
time == latest_y_sbs) |>
select(indic_sb, Indic_sb, Geo, values) |>
spread(Geo, values) |>
print_table_conditional()| indic_sb | Indic_sb | France | Germany | Italy | Spain |
|---|---|---|---|---|---|
| V21110 | Investment in equipment and plant for pollution control - million euro | 740.8 | 838.5 | 355.1 | 116.3 |
| V21120 | Investment in equipment and plant linked to cleaner technology ('integrated technology') - million euro | 115.6 | 749.0 | 157.6 | 382.4 |