-
Notifications
You must be signed in to change notification settings - Fork 2
/
README.Rmd
52 lines (34 loc) · 1.83 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
---
title: "Data from the Robert-Koch-Institut on COVID-19 in Germany"
date: "Last update: `r Sys.Date()`"
output: github_document
---
This repository contains data on reported COVID-19 cases in Germany and its federal states that is published daily by the Robert-Koch-Institut (RKI).
```{r, message=FALSE, warning=FALSE}
library(tidyverse)
corona_rki <- read_csv("data/corona_deu_rki.csv")
corona_rki %>%
arrange(desc(Datum), Bundesland) %>%
print(n = 16)
```
Data is downloaded each day at 11am from the [website of the RKI](https://www.rki.de/DE/Content/InfAZ/N/Neuartiges_Coronavirus/Fallzahlen.html) (and updated again at 11pm). The time stamp refers to the day when the data was downloaded.
Population sizes of the federal states were scraped from [Wikipedia](https://de.wikipedia.org/wiki/Liste_der_deutschen_Bundesl%C3%A4nder_nach_Bev%C3%B6lkerung) and are also available in this repo.
```{r, message=FALSE, warning=FALSE}
population <- read_csv("data/einwohner_bundesland.csv")
population
```
I'll try to update the data daily. You can import the most recent version directly from GitHub.
```{r, eval=FALSE}
library(readr)
corona_rki <- read_csv("https://raw.githubusercontent.com/seb09/covid19-ger-rki/master/data/corona_deu_rki.csv")
```
I will also produce a plot from time to time, probably in German. You're welcome to use them.
***
<img src="plots/covid19-deu-rki-entwicklung-original-skala.png">
[Full size](https://github.com/seb09/covid19-ger-rki/raw/master/plots/covid19-deu-rki-entwicklung-original-skala.png)
***
<img src="plots/covid19-deu-rki-entwicklung.png">
[Full size](https://github.com/seb09/covid19-ger-rki/raw/master/plots/covid19-deu-rki-entwicklung.png)
***
<img src="plots/covid19-deu-rki-faelle-pro-tag.png">
[Full size](https://github.com/seb09/covid19-ger-rki/raw/master/plots/covid19-deu-rki-faelle-pro-tag.png)