# NOT RUN {
df <- download_jhu_csse_covid19_data(silent = TRUE, cached = TRUE)
df %>%
dplyr::group_by(country) %>%
dplyr::summarise(confirmed_cases = max(confirmed, na.rm = TRUE)) %>%
dplyr::arrange(-confirmed_cases) %>%
dplyr::top_n(10)
df <- download_jhu_csse_covid19_data(
type = "us_county", silent = TRUE, cached = TRUE
)
df %>%
dplyr::filter(!is.na(state)) %>%
dplyr::group_by(state) %>%
dplyr::summarise(deaths = max(deaths, na.rm = TRUE)) %>%
dplyr::arrange(-deaths) %>%
dplyr::top_n(10)
# }
Run the code above in your browser using DataLab