Producer prices in industry, non domestic market - monthly data

Data - Eurostat

Author

François Geerolf

Info

Last observation: Monthly: 2026M07 (N = 429)

First observation: Monthly: 1962M01 (N = 88)

Last data update: 14 aoû 2026, 02:17. Last compile: 14 aoû 2026, 05:15

Structure

France, Germany, Italy

C - Manufacturing

All

Code

sts_inppnd_m |>
  filter(nace_r2 == "C",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2000M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 10))

2000-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2000M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

2010-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2010M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2010-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

2018-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2018M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2018-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

2020-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2020M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2020-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

C21 - Manufacture of basic pharmaceutical products and pharmaceutical preparations

All

Code

sts_inppnd_m |>
  filter(nace_r2 == "C21",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2000M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 10))

2000-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C21",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2000M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

2010-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C21",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2010M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2010-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

2020-

Code

sts_inppnd_m |>
  filter(nace_r2 == "C21",
         indic_bt == "PRC_PRR_NDOM",
         unit == "I21",
         geo %in% c("FR", "DE", "IT")) |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  mutate(values = 100*values/values[time == "2020M01"]) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2020-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Non-domestic output price index - in national currency") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 5))

Other data

Data on industry

source	dataset	Title	.html	.rData
ec	INDUSTRY	Industry (sector data)	2026-08-12	2026-08-01
eurostat	ei_isin_m	Industry - monthly data - index (2015 = 100) (NACE Rev. 2) - ei_isin_m	2026-08-13	2026-08-12
eurostat	htec_trd_group4	High-tech trade by high-tech group of products in million euro (from 2007, SITC Rev. 4)	2026-08-13	2026-08-12
eurostat	nama_10_a64	National accounts aggregates by industry (up to NACE A*64)	2026-08-13	2026-08-13
eurostat	nama_10_a64_e	National accounts employment data by industry (up to NACE A*64)	2026-08-13	2026-08-12
eurostat	namq_10_a10_e	Employment A*10 industry breakdowns	2026-08-13	2026-08-12
eurostat	road_eqr_carmot	New registrations of passenger cars by type of motor energy and engine size - road_eqr_carmot	2026-08-13	2026-08-13
eurostat	sts_inpp_m	Producer prices in industry, total - monthly data	2026-08-13	2026-08-12
eurostat	sts_inppd_m	Producer prices in industry, domestic market - monthly data	2026-08-13	2026-08-12
eurostat	sts_inpr_m	Production in industry - monthly data	2026-08-13	2026-08-13
eurostat	sts_intvnd_m	Turnover in industry, non domestic market - monthly data - sts_intvnd_m	2026-08-13	2026-08-12
fred	industry	Manufacturing, Industry	2026-08-12	2026-08-12
oecd	ALFS_EMP	Employment by activities and status (ALFS)	2026-08-13	2026-08-02
oecd	BERD_MA_SOF	Business enterprise R&D expenditure by main activity (focussed) and source of funds	2026-08-13	2026-08-02
oecd	GBARD_NABS2007	Government budget allocations for R and D	2026-08-13	2026-08-02
oecd	MEI_REAL	Production and Sales (MEI)	2026-08-13	2026-08-02
oecd	MSTI_PUB	Main Science and Technology Indicators	2026-08-13	2026-08-02
oecd	SNA_TABLE4	PPPs and exchange rates	2026-08-13	2026-08-02
wdi	NV.IND.EMPL.KD	Industry, value added per worker (constant 2010 USD)	2026-08-12	2026-08-12
wdi	NV.IND.MANF.CD	Manufacturing, value added (current USD)	2026-08-12	2026-08-12
wdi	NV.IND.MANF.ZS	Manufacturing, value added (% of GDP)	2026-08-12	2026-08-12
wdi	NV.IND.TOTL.KD	Industry (including construction), value added (constant 2015 USD) - NV.IND.TOTL.KD	2026-08-12	2026-08-12
wdi	NV.IND.TOTL.ZS	Industry, value added (including construction) (% of GDP)	2026-08-12	2026-08-12
wdi	SL.IND.EMPL.ZS	Employment in industry (% of total employment)	2026-08-12	2026-08-12
wdi	TX.VAL.MRCH.CD.WT	Merchandise exports (current USD)	2026-08-12	2026-08-12

Info

Code

include_graphics("https://ec.europa.eu/eurostat/statistics-explained/images/3/33/EU%2C_EA-19_Industrial_producer_prices%2C_total%2C_domestic_and_non-domestic_market%2C_2010_-_2022%2C_undadjusted_data_%282015_%3D_100%29_01-06-2022.png")