View source: R/get_korea_regional_cases.R
Extract regional case counts for South Korea. Source.
1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ## Not run:
# Mapping
data <- get_korea_regional_cases()
regions <- rnaturalearth::ne_states("South Korea", returnclass = "sf")
regions_with_data <- regions %>%
mutate(name_de = str_replace_all(name_de, "Jeju-do", "Jeju")) %>%
left_join(data, by = c("name_de" = "region"))
ggplot(regions_with_data) +
geom_sf(aes(fill = cases))
## End(Not run)
get_korea_regional_cases
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.