# Übungen zu Episode II


#'                    .-.
#'                   / /
#'                  / |
#'    |\     ._ ,-""  `.
#'    | |,,_/  7        ;
#'  `;=     ,=(     ,  /
#'   |`q  q  ` |    \_,|
#'  .=; <> _ ; /  ,/'/ |
#'  ';|\,j_ \;=\ ,/   `-'
#'     `--'_|\  )
#'     ,' | /  ;'
#'    (,,/ (,,/


###########################
# Lücken-Skript
# Füllen Sie die Kommentare und beschreiben Sie, was die jeweilige Operation macht.
###########################

# ??
getwd()


# ??
library(tidyverse)


# ??
dwd_gebietsmittel_lufttemperatur_datei <- 'regional_averages_tm_year.txt'


# ??
# (Achtung: Hier möglichkerweise "Working Directory setzen" nicht vergessen!)
dwd_gebietsmittel_lufttemperatur <- read_delim(dwd_gebietsmittel_lufttemperatur_datei, 
                                               delim = ';',
                                               skip = 1,
                                               trim_ws = TRUE)


# ??
dwd_gebietsmittel_lufttemperatur %>% 
  top_n(3, Hessen) %>% 
  arrange(-Hessen) %>% 
  select(Jahr, Hessen)


# ??
dwd_gebietsmittel_lufttemperatur %>% 
  filter(Jahr >= 1990) %>% 
  ggplot(aes(x = Jahr,
             y = Bayern)) +
  geom_col()


# ??
dwd_gebietsmittel_lufttemperatur %>% 
  filter(Jahr >= 1990) %>% 
  ggplot(aes(x = Jahr,
             y = Bayern)) +
  geom_line(color = 'blue') +
  geom_point(color = 'blue') +
  theme_minimal() +
  scale_x_continuous(breaks = c(1990, 1992, 1994, 1996, 1998, 2000, 2002, 2004, 2006, 2008, 2010, 2012, 2014, 2016, 2018, 2020)) +
  scale_y_continuous(name = 'Jahresmittel [Grad Celsius]',
                     breaks = c(1, 3, 5, 7, 9, 11),
                     limits = c(0, 12)) +
  ggtitle(label = 'Lufttemperatur in Bayern',
          subtitle = 'Daten vom Deutschen Wetterdienst')




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

# ??
dwd_gebietsmittel_lufttemperatur %>% 
  filter(Jahr >= 1990) %>% 
  ggplot(aes(x = Jahr,
             y = Bayern)) +
  geom_line(color = 'blue') +
  geom_point(color = 'blue') +
  theme_minimal() +
  scale_x_continuous(breaks = c(1990, 1992, 1994, 1996, 1998, 2000, 2002, 2004, 2006, 2008, 2010, 2012, 2014, 2016, 2018, 2020)) +
  scale_y_continuous(name = 'Jahresmittel [Grad Celsius]',
                     breaks = c(1, 3, 5, 7, 9, 11),
                     labels = c('saukalt', 'kühl', 'auch kühl', 'Sonnenbrille und Jacke', 'Übergang', 'Schweißausbruch'),
                     limits = c(0, 12)) +
  ggtitle(label = 'Lufttemperatur in Bayern',
          subtitle = 'Daten vom Deutschen Wetterdienst')
  

# ??
dwd_gebietsmittel_lufttemperatur %>% 
  select(Jahr, 'Temperatur' = Sachsen)


# ??
dwd_gebietsmittel_lufttemperatur %>% 
  select(Jahr, 'Temperatur' = Sachsen) %>% 
  bind_cols('Bundesland' = rep('Sachsen', 139))


# ??
dwd_gebietsmittel_lufttemperatur_sachsen <-
  dwd_gebietsmittel_lufttemperatur %>% 
  select(Jahr, 'Temperatur' = Sachsen) %>% 
  bind_cols('Bundesland' = rep('Sachsen', 139))


# ??
dwd_gebietsmittel_lufttemperatur_bayern <-
  dwd_gebietsmittel_lufttemperatur %>% 
  select(Jahr, 'Temperatur' = Bayern) %>% 
  bind_cols('Bundesland' = rep('Bayern', 139))


# ??
dwd_gebietsmittel_lufttemperatur_vergleich <-
  dwd_gebietsmittel_lufttemperatur_sachsen %>% 
  bind_rows(dwd_gebietsmittel_lufttemperatur_bayern)


# ??
dwd_gebietsmittel_lufttemperatur_vergleich %>% 
  group_by(Bundesland) %>% 
  top_n(1, Temperatur)


# ??
dwd_gebietsmittel_lufttemperatur_vergleich %>% 
  ggplot(aes(x = Jahr,
             y = Temperatur,
             color = Bundesland)) +
  geom_line() +
  geom_point()



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

# Ergänzen Sie die letzte (Vergleichs-)Grafik um passende Achsenbeschriftungen und Titel



# Hängen Sie Thüringen zusätzlich an dwd_gebietsmittel_lufttemperatur_vergleich an.



# Finden Sie das kälteste und wärmste Jahr in Thüringen (korrekt: 1940 und 2018)



# Visualisieren Sie Bayern, Sachsen und Thüringen als drei unterschiedliche Linien über die Zeit.