# NOT RUN {
df <- download_merged_data(silent = TRUE, cached = TRUE)
df %>%
dplyr::group_by(iso3c) %>%
dplyr::filter(population > 10e6) %>%
dplyr::summarise(
cases_per_1e5_pop = max(1e5*(confirmed/population), na.rm = TRUE),
soc_dist_measures = max(soc_dist),
.groups = "drop"
) %>%
dplyr::filter(cases_per_1e5_pop >= 1000) %>%
ggplot2::ggplot(mapping = ggplot2::aes(x = cases_per_1e5_pop,
y = soc_dist_measures)) +
ggplot2::geom_point() +
ggrepel::geom_label_repel(ggplot2::aes(label = iso3c)) +
ggplot2::scale_x_continuous(trans='log10', labels = scales::comma)
# }
Run the code above in your browser using DataLab