# Übungen zu Episode I


#'     /\___/\
#'    /       \
#'   l  u   u  l
#' --l----*----l--
#'    \   w   /     - Miau!
#'      ======
#'    /       \ __
#'    l        l\ \
#'    l        l/ /
#'    l  l l   l /
#'    \ ml lm /_/


###########################
# Lücken-Skript
# Füllen Sie die Kommentare und beschreiben Sie, was die jeweilige Operation macht.
# Wenn Sie unsicher sind, nutzen Sie die "str"-Funktion.
###########################

# ??
alter <- 23
jahr_aktuell <- 2020
jahr_geburt <- jahr_aktuell - alter


# ??
library(tidyverse)


# ??
tote_in_breaking_bad <- read_csv('https://wegweisr.haim.it/Daten/breaking_bad_deaths.csv')


# ??
tote_in_breaking_bad %>% 
  filter(method == 'shot') %>% 
  count()


# ??
tote_in_breaking_bad %>% 
  filter(murderer != 'Walter White') %>% 
  count()



###########################
# Code-Verständnis 2.0
# Der folgende Code enthält noch nicht gelernte Elemente.
# Können Sie trotzdem beschreiben, was hier passiert?
###########################

# ??
tote_in_breaking_bad %>% 
  filter(method == 'shot' & murderer == 'Walter White') %>% 
  count()


# ??
tote_in_breaking_bad %>% 
  group_by(episode) %>% 
  count()


# ??
tote_in_breaking_bad %>% 
  group_by(episode) %>% 
  count() %>% 
  arrange(-n)


# ??
tote_in_breaking_bad %>% 
  group_by(episode) %>% 
  count() %>% 
  arrange(n)


# ??
tote_in_breaking_bad %>% 
  group_by(episode) %>% 
  count() %>% 
  filter(n > 10)


# ??
tote_in_breaking_bad %>% 
  bind_cols('season' = c(rep(1, 2), rep(2, 176), rep(3, 28), rep(4, 27), rep(5, 38)))


# ??
tote_in_breaking_bad_mit_season <-
  tote_in_breaking_bad %>% 
  bind_cols('season' = c(rep(1, 2), rep(2, 176), rep(3, 28), rep(4, 27), rep(5, 38)))


# ??
tote_in_breaking_bad_mit_season %>%
  group_by(season) %>% 
  count()



###########################
# Code-Anpassungen
# Kopieren Sie sich den Code so zusammen, dass er den Anforderungen gerecht wird.
###########################

# Anzahl Episoden mit mehr als fünf Toten (korrekt: 6)



# Anzahl Opfer je Todesursache, sortiert absteigend nach Anzahl
# (korrekt: accidental 172, shot 59, poisoned 14, stabbed 13 ...)



# Mörder mit den meisten Opfern (absteigend sortiert) in Staffel 5
# (korrekt: Jack/Nazi group 22, Walter White 9 ...)



# Identifikation "mehrfach ermorderter" Personen (korrekt: Los Pollos Driver & Guard)



# Namen der Opfer von Jesse, nach Season aufsteigend sortiert
# (korrekt: Gale in #3, Joaquin Salamanca in #4 und Todd in #5)