STAN (STructural ANalysis) Industrial - STANINDICATORS

Data - OECD

Author

François Geerolf

Nobs - Javascript

Data Structure

id description
COU Country
VAR Variable
IND Industry
TIME Time
OBS_VALUE Observation Value
TIME_FORMAT Time Format
OBS_STATUS Observation Status

VAR

IND

TIME_FORMAT

id label
P1Y Annual
P1M Monthly
P3M Quarterly
P6M Half-yearly
P1D Daily

Ex 1: Unit labour cost index (Total)

Code 
STANINDICATORS %>%
  filter(IND == "0199",
         VAR == "IULC",
         COU == c("FRA", "DEU")) %>%
  year_to_date %>%
  left_join(STANINDICATORS_var %>% pluck("VAR"), by = c("VAR" = "id")) %>%
  rename(VAR_desc = label) %>%
  left_join(STANINDICATORS_var %>% pluck("COU"), by = c("COU" = "id")) %>%
  rename(COU_desc = label) %>%
  select(VAR_desc, COU_desc, date, obsValue) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = obsValue, color = COU_desc, linetype = COU_desc)) + 
  scale_color_manual(values = viridis(3)[1:2]) +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_continuous(breaks = seq(0, 200, 10)) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal")

Ex 2: Unit labour cost index (Total)

Code 
STANINDICATORS %>%
  filter(IND == "1537",
         VAR == "IULC",
         COU == c("FRA", "DEU")) %>%
  year_to_date %>%
  left_join(STANINDICATORS_var %>% pluck("VAR"), by = c("VAR" = "id")) %>%
  rename(VAR_desc = label) %>%
  left_join(STANINDICATORS_var %>% pluck("COU"), by = c("COU" = "id")) %>%
  rename(COU_desc = label) %>%
  select(VAR_desc, COU_desc, date, obsValue) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = obsValue, color = COU_desc, linetype = COU_desc)) + 
  scale_color_manual(values = viridis(3)[1:2]) +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_continuous(breaks = seq(0, 200, 10)) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal")