Production and Sales (MEI) - MEI_REAL

Data - OECD

Author

François Geerolf

Info

Last observation: Q: 2026-Q2 (N = 17) · M: 2026-06 (N = 92) · A: 2025 (N = 468)

First observation: A: 1919 (N = 4) · M: 1919-01 (N = 4) · Q: 1919-Q1 (N = 4)

Last data update: 30 jul 2026, 15:59. Last compile: 18 aoû 2026, 00:53

Structure

Nobs - Javascript

Code

MEI_REAL |>
  group_by(MEASURE, ACTIVITY, FREQ) |>
  filter(!is.na(obsValue)) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

MEASURE / ACTIVITY

Code

MEI_REAL |>
  group_by(MEASURE, ACTIVITY) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()

MEASURE	ACTIVITY	Nobs
PRVM	BTE	73806
TOCAPA	G45	72500
PRVM	C	72007
TOVM	G47	53667
PRVM	F	44121
PRVM	D	31104
NODW	F41	17687
WSDW	F41	10837
PRVM	MIG_NRG	3404

obsTime

Code

MEI_REAL |>
  group_by(obsTime) |>
  summarise(Nobs = n()) |>
  arrange(desc(obsTime)) |>
  print_table_conditional()

Passenger car registrations - SLRTCR0

All Countries

Code

MEI_REAL |>
  filter(MEASURE == "TOCAPA", ACTIVITY == "G45", ADJUSTMENT == "Y") |>
  group_by(REF_AREA, Location, FREQ) |>
  arrange(obsTime) |>
  summarise(Nobs = n(),
            obsTime1 = first(obsTime),
            obsTime2 = last(obsTime)) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Location))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

France, Germany, Italy, United States

Monthly

Code

MEI_REAL |>
  filter(MEASURE == "TOCAPA", ACTIVITY == "G45", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Production in total manuf. na., Index - PRMNTO01, PRINTO01

France

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY %in% c("C", "BTE"), ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(ACTIVITY) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2001-01-01")])]) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = ACTIVITY)) +
  #scale_color_identity() + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Production in total manufacturing sa, Index - PRMNTO01

Table

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y") |>
  group_by(REF_AREA, Location, FREQ) |>
  summarise(Nobs = n(),
            obsTime1 = first(obsTime),
            obsTime2 = last(obsTime)) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Location))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Euro Area, United States

1999-

Code

plot <- MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1999-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("Production manufacturière (Janv. 1999 = 100)") +
  scale_x_date(breaks = c(seq(1999, 2100, 5),seq(1997, 2100, 5)) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank()) +
  geom_rect(data = nber_recessions |>
              filter(Peak > as.Date("1999-01-01")), 
            aes(xmin = Peak, xmax = Trough, ymin = 0, ymax = +Inf),
            fill = '#B22234', alpha = 0.1)  +
  geom_rect(data = cepr_recessions |>
              filter(Peak > as.Date("1999-01-01")), 
            aes(xmin = Peak, xmax = Trough, ymin = 0, ymax = +Inf), 
            fill = '#003399', alpha = 0.1)

save(plot, file = "MEI_REAL_files/figure-html/PRMNTO01-USA-EA20-1999-1.RData")
plot

France, Germany

Monthly

All

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU")) |>
  month_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

1980-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU")) |>
  month_to_date() |>
  filter(date >= as.Date("1980-01-01")) |>
  group_by(REF_AREA) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1980-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

1995-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU")) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  group_by(REF_AREA) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

2000-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU")) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  group_by(REF_AREA) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2000-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

United States, Euro Area, Germany, United Kingdom

Monthly

1995-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "GBR", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2000-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "GBR", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2000-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

United States, Euro Area, France, Germany

1999-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1999-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "EA20", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1999, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

United States, Euro Area, France, Germany, Italy

Monthly

1990-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1990-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1995-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1999-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1999-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1999, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2002-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2002-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2017-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2017-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2020-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("2020-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2020-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2019-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("2019-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2019-01-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2019Q4-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "EA20")) |>
  month_to_date() |>
  filter(date >= as.Date("2019-10-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2019-10-01")])]) |>
  mutate(Location = ifelse(REF_AREA == "EA20", "Europe", Location)) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

France, Germany, Italy, United States

Quarterly

All

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  quarter_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1955-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  quarter_to_date() |>
  filter(date >= as.Date("1955-01-01")) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1975-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  quarter_to_date() |>
  filter(date >= as.Date("1975-01-01")) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1990-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  quarter_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Monthly

All

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1990-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1990-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1995-

English

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

French

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production dans l'industrie manufacturière (1995 = 100)") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1998-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1998-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1998-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2017Q2-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("2017-04-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2017-04-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

2020-02-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("2020-02-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2020-02-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = "3 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

France, Italy, Belgium, Germany

Monthly

All

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "BEL")) |>
  month_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Passenger car registrations") +
  scale_x_date(breaks = seq(1910, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1990-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "BEL")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1990-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2002-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "C", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "BEL")) |>
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2002-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  #mutate(color = ifelse(REF_AREA == "FRA", color2, color)) %>%
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total manufacturing sa") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Production in total industry, Index - PRINTO01

France, Germany, Italy, United States, Spain, Switzerland

Monthly

All

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "ESP")) |>
  month_to_date() |>
  #filter(date >= as.Date("1990-01-01")) %>%
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1990-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total industry sa") +
  scale_x_date(breaks = seq(1910, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

1990-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA", "ESP")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1990-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Production in total industry sa") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

France, Germany, Italy, United States

Monthly

1990-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1990-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

1995-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry, index") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

1998-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1998-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1998-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry, index") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

1999-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1999-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry, index") +
  scale_x_date(breaks = seq(1910, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

2017Q2-

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("2017-04-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2017-04-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry, index") +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

2020-02

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("2020-02-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2020-02-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry, index") +
  scale_x_date(breaks = "3 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))

Quarterly

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  quarter_to_date() |>
  filter(date >= as.Date("1955-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1968-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 300, 20),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Germany, Portugal, Spain, UK

Quarterly

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("DEU", "PRT", "ESP", "GBR")) |>
  quarter_to_date() |>
  filter(date >= as.Date("1955-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1968-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 20),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Germany, France, Greece, US

Code

MEI_REAL |>
  filter(MEASURE == "PRVM", ACTIVITY == "BTE", ADJUSTMENT == "Y",
         FREQ == "Q",
         REF_AREA %in% c("DEU", "FRA", "GRC", "USA")) |>
  quarter_to_date() |>
  filter(date >= as.Date("1955-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1968-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production in total industry") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 20),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Total retail trade (Volume) sa, Index - SLRTTO01

France, Germany, Italy, United States

Monthly

All

Code

MEI_REAL |>
  filter(MEASURE == "TOVM", ACTIVITY == "G47", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1994-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Total retail trade (Volume) sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1975-

Code

MEI_REAL |>
  filter(MEASURE == "TOVM", ACTIVITY == "G47", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1975-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1994-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Total retail trade (Volume) sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1990-

Code

MEI_REAL |>
  filter(MEASURE == "TOVM", ACTIVITY == "G47", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1994-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Total retail trade (Volume) sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

2000-

Code

MEI_REAL |>
  filter(MEASURE == "TOVM", ACTIVITY == "G47", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("2000-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Total retail trade (Volume) sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

DEU, PRT, ESP, GBR - Monthly

Code

MEI_REAL |>
  filter(MEASURE == "TOVM", ACTIVITY == "G47", ADJUSTMENT == "Y",
         FREQ == "M",
         REF_AREA %in% c("ESP", "PRT", "DEU", "FRA")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  select(Location, date, obsValue) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1995-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Total retail trade (Volume) sa") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

PRMNIG01 - Production of total manufactured intermediate goods sa, Index

France, Germany, Italy, United States

Quarterly

Code

MEI_REAL |>
  filter(SUBJECT == "PRMNIG01",
         FREQ == "Q",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  quarter_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production of total manufactured intermediate goods sa, Index") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Monthly

All

Code

MEI_REAL |>
  filter(SUBJECT == "PRMNIG01",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production of total manufactured intermediate goods sa, Index") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

1990-

Code

MEI_REAL |>
  filter(SUBJECT == "PRMNIG01",
         FREQ == "M",
         REF_AREA %in% c("FRA", "DEU", "ITA", "USA")) |>
  month_to_date() |>
  filter(date >= as.Date("1990-01-01")) |>
  group_by(Location) |>
  mutate(obsValue = 100*obsValue/obsValue[date == min(date[date >= as.Date("1994-01-01")])]) |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("Production of total manufactured intermediate goods sa, Index") +
  scale_x_date(breaks = seq(1910, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(-10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.2, 0.80),
        legend.title = element_blank())

Related Data

Data on industry

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

Data on macro

source	dataset	Title	Updated
eurostat	nama_10_a10	Gross value added and income by A*10 industry breakdowns	2026-08-14
eurostat	nama_10_a10_e	Employment by A*10 industry breakdowns	2026-08-14
eurostat	nama_10_gdp	GDP and main components (output, expenditure and income)	2026-08-14
eurostat	nama_10_lp_ulc	Labour productivity and unit labour costs	2026-08-14
eurostat	namq_10_a10	Gross value added and income A*10 industry breakdowns	2026-08-14
eurostat	namq_10_a10_e	Employment A*10 industry breakdowns	2026-08-14
eurostat	namq_10_gdp	GDP and main components (output, expenditure and income)	2026-08-14
eurostat	namq_10_lp_ulc	Labour productivity and unit labour costs	2026-08-14
eurostat	namq_10_pc	Main GDP aggregates per capita	2026-08-14
eurostat	nasa_10_nf_tr	Non-financial transactions	2026-08-14
eurostat	nasq_10_nf_tr	Non-financial transactions	2026-08-14
fred	gdp	Gross Domestic Product	2026-08-16
oecd	QNA	Quarterly National Accounts	2026-08-16
oecd	SNA_TABLE1	Gross domestic product (GDP)	2026-08-02
oecd	SNA_TABLE14A	Non-financial accounts by sectors	2026-08-02
oecd	SNA_TABLE2	Disposable income and net lending - net borrowing	2026-08-02
oecd	SNA_TABLE6A	Value added and its components by activity, ISIC rev4	2026-08-02
wdi	NE.RSB.GNFS.ZS	External balance on goods and services (% of GDP)	2026-08-16
wdi	NY.GDP.MKTP.CD	GDP (current USD)	2026-08-16
wdi	NY.GDP.MKTP.PP.CD	GDP, PPP (current international D)	2026-08-16
wdi	NY.GDP.PCAP.CD	GDP per capita (current USD)	2026-08-16
wdi	NY.GDP.PCAP.KD	GDP per capita (constant 2015 USD)	2026-08-16
wdi	NY.GDP.PCAP.PP.CD	GDP per capita, PPP (current international D)	2026-08-16
wdi	NY.GDP.PCAP.PP.KD	GDP per capita, PPP (constant 2011 international D)	2026-08-16