Producer prices in industry, non domestic market - monthly data - sts_inppnd_m

Data - Eurostat

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() |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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() |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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")) |>
  add_flag_color("Geo") |>
  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

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")