dataset | LAST_DOWNLOAD |
---|---|
SL.UEM.TOTL.ZS | 2022-11-01 |
NY.GDP.DEFL.KD.ZG | 2023-03-30 |
LAST_COMPILE |
---|
2023-06-18 |
SL.UEM.TOTL.ZS %>%
inner_join(NY.GDP.DEFL.KD.ZG, by = c("iso2c", "year")) %>%
gather(variable, value, -iso2c, -year) %>%
left_join(iso2c, by = "iso2c") %>%
left_join(tibble(variable = c("SL.UEM.TOTL.ZS", "NY.GDP.DEFL.KD.ZG"),
Variable = c("Unemployment Rate (%)", "Inflation, GDP Deflator (%)")), by = "variable") %>%
filter(!is.na(value)) %>%
group_by(Variable, iso2c, Iso2c) %>%
summarise(Nobs = n()) %>%
spread(Variable, Nobs) %>%
print_table_conditional()