Service producer prices - quarterly data - sts_sepp_q

Data - Eurostat

Author

François Geerolf

Info

Last observation: Quarterly: 2026Q2 (N = 99)

First observation: Quarterly: 1996Q1 (N = 48)

Last data update: 23 jul 2026, 22:26. Last compile: 24 jul 2026, 03:56

Structure

IT Services: Producer Price Index

France, Germany, Spain, Italy, Euro Area

Code

sts_sepp_q %>%
  filter(nace_r2 == "J62",
         indic_bt == "PRC_PRR",
         unit == "I15",
         geo %in% c("FR", "DE", "ES", "IT", "EA20")) %>%
  quarter_to_date %>%
  ggplot + geom_line(aes(x = date, y = values, color = Geo)) +
  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 (2015=100)")

France: Producer Prices by Sector (YoY)

Transport, IT, Legal/Accounting, Administrative Support

Code

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 Quarter: IT Services Price Index

Code

latest_q_sepp <- sts_sepp_q %>%
  filter(nace_r2 == "J62",
         indic_bt == "PRC_PRR",
         unit == "I15",
         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 == "I15",
         geo %in% c("FR", "DE", "ES", "IT", "EA20"),
         time == latest_q_sepp) %>%
  select(Geo, values) %>%
  arrange(-values) %>%
  print_table_conditional()

Geo	values
Italy	114.9
Spain	112.2
Euro area – 20 countries (2023-2025)	110.5
France	107.6
Germany	105.4

Europe, EU-19

Germany, France, Spain, Italy, Europe

Freight transport by road and removal services - H494

Code

sts_sepp_q %>%
  filter(nace_r2 == "H494",
         geo %in% c("FR", "DE", "ES", "IT", "EA20"),
         unit == "I15",
         indic_bt == "PRC_PRR") %>%
  quarter_to_date() %>%
  print_table_conditional