Turnover in industry, non domestic market - monthly data - sts_intvnd_m

Data - Eurostat

Info

source dataset .html .RData
eurostat sts_intvd_m 2024-06-24 2024-11-21
eurostat sts_intvnd_m 2024-11-18 2024-11-21

Data on macro

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

Last

Code
sts_intvnd_m %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(3) %>%
  print_table_conditional()
time Nobs
2024M09 8371
2024M08 13004
2024M07 13004

Info

The Turnover Index is a business cycle indicator showing the monthly evolution of the market of goods and services in the industrial sector. It also records the evolution of turnover over longer periods of time. The turnover of industry index is not deflated. It is therefore the objective of this indicator to measure the market activity in the industrial sector in value. Data are compiled according to the Statistical classification of economic activities in the European Community, (NACE Rev. 2, Eurostat). Industrial turnover is compiled as a “fixed base year Laspeyres type volume-index”.

indic_bt

Code
sts_intvnd_m %>%
  left_join(indic_bt, by = "indic_bt") %>%
  group_by(indic_bt, Indic_bt) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
indic_bt Indic_bt Nobs
NETTUR_NDOM Non-domestic net turnover 3930860
NETTUR_NDOM_EU Non-domestic net turnover - euro area 1787919
NETTUR_NDOM_NEU Non-domestic net turnover - non-euro area 1762124

nace_r2

Code
sts_intvnd_m %>%
  left_join(nace_r2, by = "nace_r2") %>%
  group_by(nace_r2, Nace_r2) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

s_adj

Code
sts_intvnd_m %>%
  left_join(s_adj, by = "s_adj") %>%
  group_by(s_adj, S_adj) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
s_adj S_adj Nobs
SCA Seasonally and calendar adjusted data 2875365
CA Calendar adjusted data, not seasonally adjusted data 2844685
NSA Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) 1760853

unit

Code
sts_intvnd_m %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Unit Nobs
I15 Index, 2015=100 2258470
I21 Index, 2021=100 2135383
I10 Index, 2010=100 1451162
PCH_PRE Percentage change on previous period 834492
PCH_SM Percentage change compared to same period in previous year 801396

geo

Code
sts_intvnd_m %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

time

Code
sts_intvnd_m %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()

EA20

C

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("EA20")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2005M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date >= as.Date("2005-01-01")) %>%
  ggplot() + ylab("Index of turnover") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

Germany - Different Industries

C10 - Manufacture of food products

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C10",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2004M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date <= as.Date("2020-07-01"),
         date >= as.Date("2000-01-01")) %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

C29 - Manufacture of motor vehicles, trailers and semi-trailers

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C29",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2004M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date <= as.Date("2020-07-01"),
         date >= as.Date("2000-01-01")) %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.35),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

C20 - Manufacture of chemicals and chemical products

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C20",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2004M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date <= as.Date("2020-07-01"),
         date >= as.Date("2000-01-01")) %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

C30 - Manufacture of other transport equipment

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C30",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2004M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date <= as.Date("2020-07-01"),
         date >= as.Date("2000-01-01")) %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

Individual Countries

France

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("FR")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2000M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date <= as.Date("2020-07-01")) %>%
  ggplot() + ylab("Index of turnover") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

Germany

All

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2003M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

1995-

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2004M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))

2000-

Code
sts_intvnd_m %>%
  bind_rows(sts_intvd_m) %>%
  filter(nace_r2 == "C",
         unit == "I21",
         s_adj == "SCA",
         geo %in% c("DE")) %>%
  group_by(indic_bt) %>%
  mutate(values = 100*values/values[time == "2004M01"]) %>%
  left_join(indic_bt, by = "indic_bt") %>%
  month_to_date %>%
  filter(date >= as.Date("2000-01-01")) %>%
  ggplot() + ylab("Index of turnover - Non domestic market") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = Indic_bt)) +
  
  scale_x_date(breaks = seq(1920, 2100,2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(-60, 300, 10))