source | dataset | .html | .RData |
---|---|---|---|
oecd | EPL_T | 2024-04-15 | 2023-12-10 |
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Dropbox/website/data/oecd/EPL_T.RData")$mtime)) %>%
print_table_conditional()
LAST_DOWNLOAD |
---|
2023-12-10 |
LAST_COMPILE |
---|
2024-04-16 |
obsTime | Nobs |
---|---|
2019 | 124 |
EPL_T %>%
left_join(EPL_T_var$SERIES, by = "SERIES") %>%
group_by(SERIES, Series) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
SERIES | Series | Nobs |
---|---|---|
EPT_V1 | Version 1 (1985-2019) | 1120 |
EPT_V3 | Version 3 (2008-2019) | 522 |
EPT_V4 | Version 4 (2013-2019) | 263 |
EPL_T %>%
left_join(EPL_T_var$COUNTRY, by = "COUNTRY") %>%
group_by(COUNTRY, Country) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
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 .}
EPL_T %>%
filter(SERIES == "EPT_V1",
COUNTRY %in% c("FRA", "ITA", "DEU")) %>%
left_join(EPL_T_var$COUNTRY, by = "COUNTRY") %>%
year_to_date %>%
left_join(colors, by = c("Country" = "country")) %>%
rename(Location = Country) %>%
ggplot(.) + geom_line(aes(x = date, y = obsValue, color = color)) +
scale_color_identity() + add_3flags + theme_minimal() +
xlab("") + ylab("Strictness of employment protection") +
scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 6, 1),
limits = c(0, 6))
EPL_T %>%
filter(SERIES == "EPT_V1",
COUNTRY %in% c("AUS", "GBR", "USA")) %>%
left_join(EPL_T_var$COUNTRY, by = "COUNTRY") %>%
year_to_date %>%
left_join(colors, by = c("Country" = "country")) %>%
rename(Location = Country) %>%
ggplot(.) + geom_line(aes(x = date, y = obsValue, color = color)) +
scale_color_identity() + add_3flags + theme_minimal() +
xlab("") + ylab("Strictness of employment protection") +
scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 5, 0.2),
limits = c(0, 1.6))
EPL_T %>%
filter(SERIES == "EPT_V1",
COUNTRY %in% c("AUS", "GBR", "USA", "FRA", "ITA", "DEU", "ESP")) %>%
left_join(EPL_T_var$COUNTRY, by = "COUNTRY") %>%
year_to_date %>%
left_join(colors, by = c("Country" = "country")) %>%
rename(Location = Country) %>%
ggplot(.) + geom_line(aes(x = date, y = obsValue, color = color)) +
scale_color_identity() + add_7flags + theme_minimal() +
xlab("") + ylab("Strictness of employment protection") +
scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 7, 0.5))