Second wave of COVID-19 in Switzerland

Code

# Load libraries
library(here)
library(tidyverse)
library(lubridate)
library(unibeCols)

Introduction

The aim of this exercises is to visualize the increase of laboratory-confirmed cases of COVID-19 in Switzerland during autumn 2020.

Data

We read and process the data of laboratory-confirmed cases of COVID-19 in Switzerland as reported by the Federal Office of Public Health.

Code

# Read data
cases <- read_csv(here("data/raw/COVID19Cases_geoRegion.csv"))

Code

# Process data
region <- "CH"
window_start <- ymd("2020-09-01")
window_end <- ymd("2020-11-30")
cases <- cases |>
  filter(geoRegion == region & datum >= window_start & datum <= window_end) |>
  select(datum, entries)
cases

Results

Figure 1 shows the number of laboratory-confirmed cases of COVID-19 in Switzerland from 2020-09-01 to 2020-11-30.

Code

ggplot(cases, aes(x = datum, y = entries)) +
  geom_bar(stat = "identity", fill = unibeSaphireS()[1]) +
  labs(x = "", y = "Laboratory-confirmed cases", ) +
  theme_minimal()

Figure 1: Laboratory-confirmed cases of COVID-19 in Switzerland in 2020.

Conclusions

The number of laboratory-confirmed cases of COVID-19 in Switzerland rapidly increased during October 2020 and subsequently declined.