1 Aufgabe: Finde den Tag mit den meisten Abflügen (flights)!

An welchem Tag im Jahr 2013 sind die meisten Flüge aus NYC gestartet?

2 Setup

library(tidyverse)  # Datenjudo
library(nycflights13)  # Daten
library(lubridate)  # Datumsangaben

3 Daten laden

data(flights)

4 Spalte mit Datum ergänzen

flights <-
  flights %>% 
  mutate(date = date(time_hour))

5 Datensatz zusammenfassen

flights2 <-
  flights %>% 
  group_by(date) %>% 
  summarise(n = n())

Synonym:

flights2 <-
  flights %>% 
  count(date)

6 Maximalwert der Spalte n

flights2 %>% 
  slice_max(n)
#> # A tibble: 1 x 2
#>   date           n
#>   <date>     <int>
#> 1 2013-11-27  1014