Last observation: 2026Q2 (N = 481)
First observation: 1998Q1 (N = 3)
Last data update: 15 aoû 2026, 22:59. Last compile: 18 aoû 2026, 04:24
Data - Eurostat
Last observation: 2026Q2 (N = 481)
First observation: 1998Q1 (N = 3)
Last data update: 15 aoû 2026, 22:59. Last compile: 18 aoû 2026, 04:24
sts_sepp_q |>
filter(nace_r2 == "J62",
indic_bt == "PRC_PRR",
unit == "I21",
geo %in% c("FR", "DE", "ES", "IT", "EA20")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2005, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.2, 0.75),
legend.title = element_blank()) +
xlab("") + ylab("Producer price index, IT services (2021=100)")
sts_sepp_q |>
filter(geo == "FR",
indic_bt == "PRC_PRR",
unit == "PCH_SM",
nace_r2 %in% c("H49", "J62", "M69", "N")) |>
quarter_to_date() |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2005, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = "bottom", legend.title = element_blank()) +
guides(color = guide_legend(nrow = 2)) +
xlab("") + ylab("Producer prices, % change y-o-y") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")
latest_q_sepp <- sts_sepp_q |>
filter(nace_r2 == "J62",
indic_bt == "PRC_PRR",
unit == "I21",
geo %in% c("FR", "DE", "ES", "IT", "EA20"),
!is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
sts_sepp_q |>
filter(nace_r2 == "J62",
indic_bt == "PRC_PRR",
unit == "I21",
geo %in% c("FR", "DE", "ES", "IT", "EA20"),
time == latest_q_sepp) |>
select(Geo, values) |>
arrange(-values) |>
print_table_conditional()| Geo | values |
|---|---|
| Italy | 112.6 |
| Euro area – 20 countries (2023-2025) | 112.0 |
| Spain | 108.9 |
| Germany | 108.5 |
| France | 107.9 |
sts_sepp_q |>
filter(nace_r2 == "H494",
geo %in% c("FR", "DE", "ES", "IT", "EA20"),
unit == "I21",
indic_bt == "PRC_PRR") |>
quarter_to_date() |>
print_table_conditional()