1 Setup 2 Daten laden 3 Von lang nach breit 4 Plotten 5 Kommentar 1 Setup library(tidyverse) 2 Daten laden d <- read_csv("https://raw.githubusercontent.com/sebastiansauer/2021-sose/master/data/Impfbereitschaft/d3.csv") 3 Von lang nach breit d2 <- d %>% select(willingness:open2) %>% pivot_longer(extra1:open2) d2 %>% slice_head(n = 7) #> # A tibble: 7 x 6 #> willingness health fear cases name value #> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> #> 1 10 9 5 1 extra1 2 #> 2 10 9 5 1 agree1 2 #> 3 10 9 5 1 cons1 3 #> 4 10 9 …