get_korea_regional_cases: South Korea regional cases

Description Usage Examples

View source: R/get_korea_regional_cases.R

Description

Extract regional case counts for South Korea. Source.

Usage

1

Examples

 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

epiforecasts/NCoVUtils documentation built on June 26, 2020, 1:20 a.m.