Boeing Crash Data Analysis

fatalities <- flightcrashdata %>% group_by(plane) %>% summarise(total=sum(fatalities))
head(arrange(fatalities, desc(total)))

planes <- flightcrashdata %>% group_by(plane) %>% summarise(n=n())
head(arrange(planes, desc(n)))