felixgolcher

library(tidyverse)
library(ggrepel)
library(readxl)
download.file("https://www.rki.de/DE/Content/InfAZ/N/Neuartiges_Coronavirus/Daten/Impfquotenmonitoring.xlsx?__blob=publicationFile",
              "Impfquotenmonitoring.xlsx")
# https://de.statista.com/statistik/daten/studie/1178874/umfrage/bundeslaender-mit-den-meisten-coronainfektionen-in-der-letzten-woche/
# no automatic download.
read_excel("statistic_id1178874_bundeslaender-mit-den-meisten-coronainfektionen-in-der-letzten-woche.xlsx",
           sheet = 2, skip = 4, col_names = F) %>% 
  set_names(c("Bundesland", "Inzidenz")) %>% 

felixgolcher

#!/bin/bash -x
# Wed 24 Jun 2020 02:39:13 PM CEST

# felix.golcher@hu-berlin.de

# heavily based on

# https://unix.stackexchange.com/questions/37258/refresh-reload-active-browser-tab-from-command-line
# L Nix <lornix@lornix.com>

felixgolcher

library(tidyverse)
library(ggplot2)
# using csv now
# library(readODS)

# height of figs
mh <- 3
# width
mw <- mh*1.5