South Africa new reported cases around higher than Our World In Data/WHO about covidregionaldata HOT 4 OPEN

sa_dat <- get_national_data(countries = "South Africa") 

sa_plot <- read_csv("data/owid-covid-data.csv")%>%
  filter(iso_code == "ZAF") %>%
  mutate(date = as.Date(date)) %>%
  filter(date <= as.Date("2023-01-01")) %>% 
  ggplot(aes(x = date, y = new_cases))+
  geom_col(alpha = 0.75, aes(fill = "OWID/WHO"))+
  geom_point(data = sa_dat %>% 
               mutate(date = as.Date(date)) %>%
               filter(date <= as.Date("2023-01-01")),
             aes(x = date,y = cases_new, fill = "covidregionaldata"))+
  labs(x = "",y = "Daily reported cases")+
  scale_fill_brewer(palette = "Set2")

ggsave("results/sa_cases.png", width=200, height=100, units="mm", dpi=600, bg="white")

sa_dat <- get_national_data(countries = "South Africa")

sa_plot <- read_csv("data/owid-covid-data.csv") %>%
  filter(iso_code == "ZAF") %>%
  mutate(date = as.Date(date)) %>%
  filter(date <= as.Date("2023-01-01")) %>%
  ggplot(aes(x = date, y = new_cases)) +
  geom_col(alpha = 0.75, aes(colour = "OWID/WHO")) +
  geom_point(
    data = sa_dat %>%
      mutate(date = as.Date(date)) %>%
      filter(date <= as.Date("2023-01-01")),
    aes(x = date, y = cases_new, colour = "covidregionaldata")
  ) +
  geom_line(
    data = read_csv("https://covid19.who.int/WHO-COVID-19-global-data.csv") %>%
      filter(Country == "South Africa") %>%
      filter(Date_reported <= as.Date("2023-01-01")),
    aes(x = Date_reported, y = New_cases, colour = "WHO")
  ) +
  labs(x = "", y = "Daily reported cases") +
  scale_colour_brewer(palette = "Set2")