Aviation Incidents
Sumit Kumar
12/31/2019
gc()## used (Mb) gc trigger (Mb) max used (Mb)
## Ncells 480529 25.7 1052142 56.2 641594 34.3
## Vcells 903448 6.9 8388608 64.0 1752684 13.4rm(list=ls())
library(XML)
library(lubridate)##
## Attaching package: 'lubridate'## The following object is masked from 'package:base':
##
## datelibrary(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:lubridate':
##
## intersect, setdiff, union## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(ggplot2)
setwd("~/Data_Science/R/Projects/Aviation Accidents/")
data = xmlParse("AviationData.xml")aviation =data.frame(
EventId = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@EventId"]),
InvestigationType = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@InvestigationType"]),
AccidentNumber = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AccidentNumber"]),
EventDate = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@EventDate"]),
Location = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Location"]),
Country = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Country"]),
Latitude = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Latitude"]),
Longitude = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Longitude"]),
AirportCode = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AirportCode"]),
AirportName = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AirportName"]),
InjurySeverity = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@InjurySeverity"]),
AircraftDamage = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AircraftDamage"]),
AircraftCategory = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AircraftCategory"]),
RegistrationNumber = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@RegistrationNumber"]),
Make = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Make"]),
Model = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Model"]),
AmateurBuilt = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AmateurBuilt"]),
NumberOfEngines = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@NumberOfEngines"]),
EngineType = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@EngineType"]),
FARDescription = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@FARDescription"]),
Schedule = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@Schedule"]),
PurposeOfFlight = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@PurposeOfFlight"]),
AirCarrier = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@AirCarrier"]),
TotalFatalInjuries = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@TotalFatalInjuries"]),
TotalSeriousInjuries = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@TotalSeriousInjuries"]),
TotalMinorInjuries = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@TotalMinorInjuries"]),
TotalUninjured = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@TotalUninjured"]),
WeatherCondition = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@WeatherCondition"]),
BroadPhaseOfFlight = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@BroadPhaseOfFlight"]),
ReportStatus = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@ReportStatus"]),
PublicationDate = unlist(data["//DATA[@class='http://www.ntsb.gov']/ROWS/ROW/@PublicationDate"]), stringsAsFactors = FALSE
)aviation$EngineType[aviation$EngineType==''] = "Unknown"
aviation$InvestigationType[aviation$InvestigationType==''] = "Unknown"
aviation$Country[aviation$Country==''] = 'Unknown'
aviation$AirportCode[aviation$AirportCode==''] = 'Unknown'
aviation$AircraftDamage[aviation$AircraftDamage==''] = 'Unknown'
aviation$AircraftCategory[aviation$AircraftCategory==''] = 'Unknown'
aviation$Make[aviation$Make==''] = 'Unknown'
aviation$AmateurBuilt[aviation$AmateurBuilt==''] = "Unknown"
aviation$NumberOfEngines[aviation$NumberOfEngines==''] = 'Unknown'
# zero NumberOfEngine does not make sense so changing them to unknown
aviation$NumberOfEngines[aviation$NumberOfEngines==0] = 'Unknown'
aviation$FARDescription[aviation$FARDescription==''] = 'Unknown'
aviation$PurposeOfFlight[aviation$PurposeOfFlight==''] = 'Unknown'
#If the InjurySeverity was Non-Fatal it should be safe to assume that TotalFatalInjuries was zero
aviation$TotalFatalInjuries[aviation$TotalFatalInjuries=='' & aviation$InjurySeverity=='Non-Fatal'] = 0
aviation$WeatherCondition[aviation$WeatherCondition=='']='UNK'
aviation$BroadPhaseOfFlight[aviation$BroadPhaseOfFlight=='']="UNKNOWN"
aviation$InvestigationType = as.factor(aviation$InvestigationType)
aviation$Country = as.factor(aviation$Country)
aviation$Latitude = as.numeric(aviation$Latitude)
aviation$Longitude = as.numeric(aviation$Longitude)
aviation$AirportCode = as.factor(aviation$AirportCode)
aviation$InjurySeverity = as.factor(aviation$InjurySeverity)
aviation$AircraftDamage = as.factor(aviation$AircraftDamage)
aviation$AircraftCategory = as.factor(aviation$AircraftCategory)
aviation$Make = as.factor(aviation$Make)
aviation$AmateurBuilt = as.factor(aviation$AmateurBuilt)
aviation$NumberOfEngines = as.factor(aviation$NumberOfEngines)
aviation$EngineType = as.factor(aviation$EngineType)
aviation$FARDescription = as.factor(aviation$FARDescription)
aviation$PurposeOfFlight = as.factor(aviation$PurposeOfFlight)
aviation$TotalFatalInjuries = as.numeric(aviation$TotalFatalInjuries)
aviation$TotalSeriousInjuries = as.numeric(aviation$TotalSeriousInjuries)
aviation$TotalMinorInjuries = as.numeric(aviation$TotalMinorInjuries)
aviation$TotalUninjured = as.numeric(aviation$TotalUninjured)
aviation$WeatherCondition = as.factor(aviation$WeatherCondition)
aviation$BroadPhaseOfFlight = as.factor(aviation$BroadPhaseOfFlight)
aviation$ReportStatus = as.factor(aviation$ReportStatus)
#AirCarrier and Sche
aviation$EventDate = as.Date(aviation$EventDate, "%m/%d/%Y")
aviation$PublicationDate = as.Date(aviation$PublicationDate,"%m/%d/%Y")
str(aviation)## 'data.frame': 84226 obs. of 31 variables:
## $ EventId : chr "20191218X74518" "20191219X84839" "20191216X85434" "20191209X51617" ...
## $ InvestigationType : Factor w/ 3 levels "Accident","Incident",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ AccidentNumber : chr "WPR20CA048" "CEN20CA036" "WPR20CA045" "ERA20LA050" ...
## $ EventDate : Date, format: "2019-12-18" "2019-12-18" ...
## $ Location : chr "Caldwell, ID" "Starkville, MS" "Lancaster, CA" "Willow Springs, MO" ...
## $ Country : Factor w/ 179 levels "Afghanistan",..: 170 170 170 170 170 170 170 170 170 170 ...
## $ Latitude : num 43.6 NA NA 37 41.2 ...
## $ Longitude : num -116.6 NA NA -92 -96.1 ...
## $ AirportCode : Factor w/ 10019 levels "-","---",".",..: 4432 9437 9741 593 7108 699 9437 4114 9552 9412 ...
## $ AirportName : chr "CALDWELL INDUSTRIAL" "" "" "Willow Springs Memorial" ...
## $ InjurySeverity : Factor w/ 128 levels "Fatal(1)","Fatal(10)",..: 127 127 128 127 127 127 127 127 127 127 ...
## $ AircraftDamage : Factor w/ 4 levels "Destroyed","Minor",..: 3 3 3 3 3 3 3 3 3 3 ...
## $ AircraftCategory : Factor w/ 13 levels "Airplane","Balloon",..: 1 1 12 1 6 1 1 1 1 1 ...
## $ RegistrationNumber : chr "N1107C" "N9566S" "N4098N" "N914AR" ...
## $ Make : Factor w/ 8024 levels "107.5 Flying Corporation",..: 5588 1386 1357 7999 6196 699 1357 550 5588 1458 ...
## $ Model : chr "PA22" "7ECA" "140" "ZODIAC CH-650" ...
## $ AmateurBuilt : Factor w/ 3 levels "No","Unknown",..: 1 1 1 3 3 1 1 1 1 1 ...
## $ NumberOfEngines : Factor w/ 6 levels "1","2","3","4",..: 1 6 1 1 6 1 1 2 1 1 ...
## $ EngineType : Factor w/ 13 levels "Electric","Hybrid Rocket",..: 13 13 13 7 7 7 7 9 7 7 ...
## $ FARDescription : Factor w/ 18 levels "Armed Forces",..: 14 14 14 14 14 14 14 10 14 14 ...
## $ Schedule : chr "" "" "" "" ...
## $ PurposeOfFlight : Factor w/ 22 levels "Aerial Application",..: 15 22 22 15 15 15 15 22 13 15 ...
## $ AirCarrier : chr "" "" "" "" ...
## $ TotalFatalInjuries : num 0 0 NA 0 0 0 0 0 0 0 ...
## $ TotalSeriousInjuries: num NA 1 NA NA 1 NA 1 NA NA NA ...
## $ TotalMinorInjuries : num NA NA NA 1 NA NA NA NA NA NA ...
## $ TotalUninjured : num 1 NA NA NA NA 5 NA 2 1 2 ...
## $ WeatherCondition : Factor w/ 3 levels "IMC","UNK","VMC": 3 2 2 3 3 3 3 3 3 3 ...
## $ BroadPhaseOfFlight : Factor w/ 12 levels "APPROACH","CLIMB",..: 12 12 12 10 6 10 3 6 1 6 ...
## $ ReportStatus : Factor w/ 4 levels "Factual","Foreign",..: 3 3 3 3 3 3 3 3 3 1 ...
## $ PublicationDate : Date, format: "2019-12-18" "2019-12-20" ...ggplot(aviation, aes(x=year(EventDate))) + geom_bar()
There has been a steady decline in aviation incidents/accidents since 1981 but what happened before? Bar chart is not showing anything prior to 1981. Lets explore
aviation %>%
group_by(year(EventDate)) %>%
tally()## # A tibble: 44 x 2
## `year(EventDate)` n
## <dbl> <int>
## 1 1948 1
## 2 1962 1
## 3 1974 1
## 4 1977 1
## 5 1979 2
## 6 1981 1
## 7 1982 3593
## 8 1983 3556
## 9 1984 3457
## 10 1985 3096
## # … with 34 more rows
There are only 7 reported incidents/accidents from 1948 to 1981 which is negligible compared to 3593 observations in 1982 alone and then consistently in thousands going forward. There is a high possibility that there was not a reporting requirement prior to 1981
table(aviation$InvestigationType)##
## Accident Incident Unknown
## 80780 3443 3ggplot(aviation, aes(x=year(EventDate), fill=InvestigationType)) + geom_bar(stat = "count", position = "dodge")
Most of the reports were classified as accidents by NTSB. A very few incidents were reported
aviation$fatal = ifelse(aviation$TotalFatalInjuries >=1,"Yes","No")
aviation$fatal[is.na(aviation$fatal)]="No"
ggplot(aviation[aviation$EventDate >= as.Date("01-01-1982", format="%m-%d-%Y"),], aes(x=year(EventDate), fill=fatal)) + geom_bar(stat="count", position="dodge")
Most of the reported incidents were non-fatal. Number of fatal incidents decreased slightly from 80’s to mid 90’s and have been pretty much consistent since then.
aviation %>%
group_by(Country) %>%
tally() %>%
arrange(desc(n))## # A tibble: 179 x 2
## Country n
## <fct> <int>
## 1 United States 78815
## 2 Unknown 521
## 3 Canada 308
## 4 Brazil 290
## 5 Mexico 268
## 6 United Kingdom 262
## 7 Australia 245
## 8 Bahamas 205
## 9 France 194
## 10 Germany 184
## # … with 169 more rows
Majority of the observations are from United States
ggplot(aviation[aviation$EventDate >= as.Date("01-01-1982", format="%m-%d-%Y") & aviation$fatal=="Yes" & aviation$InvestigationType=="Accident" & aviation$fatal=="Yes",], aes(x=BroadPhaseOfFlight)) + geom_bar(stat="count") +
theme(axis.text.x = element_text(angle = 90))
Highest number of fatal accidents happened during Maneuvering. Cruise, TakeOFF and approach came in 2nd, 3rd and 4th respectively.
ggplot(aviation[aviation$EventDate >= as.Date("01-01-1982", format="%m-%d-%Y") & aviation$fatal=="Yes" & aviation$InvestigationType=="Accident",], aes(x=EngineType)) + geom_bar(stat="count") +
theme(axis.text.x = element_text(angle = 90))
Reciprocating engines appear to have most number of fatal accidents but it might be premature to blame them for accidents. If large percentage of the aircrafts uses reciprocating engine then its normal to have large percentage of accidents tied to these engines. Unfortunately, we do not have that information in this dataset.
ggplot(aviation, aes(x=AircraftDamage)) + geom_bar(stat = "count")
Wow, it seems nearly 18-19K incidents resulted in complete destruction on the aircraft. Let’s look further
aviation %>%
filter(year(EventDate)> 1981 & fatal=="Yes") %>%
group_by(Year=year(EventDate)) %>%
summarise(Year_Fatal_Count=sum(TotalFatalInjuries)) %>%
ggplot( aes(x=Year, y= Year_Fatal_Count)) + geom_line()
Let’s see what caused this peak in the plot
aviation %>%
filter(year(EventDate)> 1981 & fatal=="Yes") %>%
group_by(Year=year(EventDate)) %>%
summarise(Year_Fatal_Count=sum(TotalFatalInjuries)) %>%
arrange(desc(Year_Fatal_Count))## # A tibble: 38 x 2
## Year Year_Fatal_Count
## <dbl> <dbl>
## 1 1996 2533
## 2 2000 1765
## 3 2001 1709
## 4 2005 1689
## 5 1985 1648
## 6 1982 1585
## 7 1989 1532
## 8 2006 1489
## 9 2014 1438
## 10 2010 1390
## # … with 28 more rows
Number of fatalities were the highest in 1996. Let’s dig deeper
aviation[aviation$fatal=="Yes" & year(aviation$EventDate)==1996, ] %>%
select(EventDate, Country, TotalFatalInjuries) %>%
arrange(desc(TotalFatalInjuries))## EventDate Country TotalFatalInjuries
## 1 1996-11-12 India 349
## 2 1996-11-12 India 349
## 3 1996-07-17 United States 230
## 4 1996-02-06 Dominican Republic 189
## 5 1996-11-23 Ethiopia 125
## 6 1996-02-29 Peru 123
## 7 1996-05-11 United States 110
## 8 1996-10-31 Brazil 97
## 9 1996-10-02 Peru 70
## 10 1996-10-22 Ecuador 34
## 11 1996-04-03 Croatia 33
## 12 1996-11-19 United States 14
## 13 1996-11-19 United States 14
## 14 1996-11-01 Guatemala 14
## 15 1996-02-12 Haiti 11
## 16 1996-11-13 Kenya 8
## 17 1996-11-07 France 8
## 18 1996-10-20 Canada 8
## 19 1996-08-15 Argentina 8
## 20 1996-03-13 Venezuela 8
## 21 1996-02-06 Mexico 8
## 22 1996-01-15 United States 8
## 23 1996-12-22 United States 6
## 24 1996-12-21 United States 6
## 25 1996-03-07 United States 6
## 26 1996-03-07 United States 6
## 27 1996-11-17 United States 5
## 28 1996-11-01 United States 5
## 29 1996-07-08 United States 5
## 30 1996-06-23 United States 5
## 31 1996-05-29 United States 5
## 32 1996-03-17 United States 5
## 33 1996-02-15 Zambia 5
## 34 1996-01-07 Bahamas 5
## 35 1996-12-22 United States 4
## 36 1996-10-30 United States 4
## 37 1996-10-05 United States 4
## 38 1996-09-26 United States 4
## 39 1996-08-20 United States 4
## 40 1996-07-20 United States 4
## 41 1996-06-21 United States 4
## 42 1996-06-21 United States 4
## 43 1996-06-02 United States 4
## 44 1996-06-01 United States 4
## 45 1996-06-01 United States 4
## 46 1996-05-03 United States 4
## 47 1996-04-27 United States 4
## 48 1996-03-30 United States 4
## 49 1996-02-24 United States 4
## 50 1996-02-24 United States 4
## 51 1996-02-24 Cuba 4
## 52 1996-02-24 Cuba 4
## 53 1996-02-05 United States 4
## 54 1996-01-21 United States 4
## 55 1996-12-16 United States 3
## 56 1996-12-16 United States 3
## 57 1996-12-16 Spain 3
## 58 1996-12-12 United States 3
## 59 1996-12-01 United States 3
## 60 1996-11-30 United States 3
## 61 1996-11-28 Unknown 3
## 62 1996-11-21 United States 3
## 63 1996-11-11 United States 3
## 64 1996-11-09 United States 3
## 65 1996-10-31 United States 3
## 66 1996-10-26 Unknown 3
## 67 1996-10-18 Peru 3
## 68 1996-10-13 United States 3
## 69 1996-10-11 Bolivia 3
## 70 1996-10-04 United States 3
## 71 1996-10-02 United States 3
## 72 1996-09-23 United States 3
## 73 1996-09-21 United States 3
## 74 1996-09-02 United States 3
## 75 1996-08-11 United States 3
## 76 1996-07-26 United States 3
## 77 1996-06-19 United States 3
## 78 1996-06-14 United States 3
## 79 1996-06-13 United States 3
## 80 1996-06-09 United States 3
## 81 1996-05-07 United States 3
## 82 1996-05-02 Unknown 3
## 83 1996-04-29 United States 3
## 84 1996-04-12 United States 3
## 85 1996-04-12 United States 3
## 86 1996-04-11 United States 3
## 87 1996-04-06 United States 3
## 88 1996-03-09 Peru 3
## 89 1996-02-26 United States 3
## 90 1996-02-19 United States 3
## 91 1996-02-11 Unknown 3
## 92 1996-01-31 United States 3
## 93 1996-01-13 United States 3
## 94 1996-01-08 United States 3
## 95 1996-01-03 Honduras 3
## 96 1996-12-28 United States 2
## 97 1996-12-28 United States 2
## 98 1996-12-26 United States 2
## 99 1996-12-25 United States 2
## 100 1996-12-24 United States 2
## 101 1996-12-24 United States 2
## 102 1996-12-24 United States 2
## 103 1996-12-22 United States 2
## 104 1996-12-11 United States 2
## 105 1996-12-10 United States 2
## 106 1996-12-09 United States 2
## 107 1996-12-07 United States 2
## 108 1996-12-06 United States 2
## 109 1996-12-06 Ireland 2
## 110 1996-12-05 United States 2
## 111 1996-12-05 United States 2
## 112 1996-11-30 United States 2
## 113 1996-11-26 United States 2
## 114 1996-11-20 United States 2
## 115 1996-11-15 United States 2
## 116 1996-11-07 South Africa 2
## 117 1996-11-06 United States 2
## 118 1996-11-01 United States 2
## 119 1996-10-31 West Indies 2
## 120 1996-10-29 United States 2
## 121 1996-10-27 United States 2
## 122 1996-10-27 United States 2
## 123 1996-10-27 United States 2
## 124 1996-10-22 United States 2
## 125 1996-10-13 United States 2
## 126 1996-10-12 United States 2
## 127 1996-10-11 United States 2
## 128 1996-10-10 United States 2
## 129 1996-10-08 United States 2
## 130 1996-09-17 United States 2
## 131 1996-09-12 United States 2
## 132 1996-09-07 United States 2
## 133 1996-09-02 United States 2
## 134 1996-09-01 United States 2
## 135 1996-08-30 United States 2
## 136 1996-08-27 United States 2
## 137 1996-08-24 United States 2
## 138 1996-08-23 United States 2
## 139 1996-08-20 United States 2
## 140 1996-08-19 United States 2
## 141 1996-08-15 United States 2
## 142 1996-08-13 United States 2
## 143 1996-08-11 United States 2
## 144 1996-08-10 United States 2
## 145 1996-08-09 United States 2
## 146 1996-08-08 United States 2
## 147 1996-08-07 United States 2
## 148 1996-08-02 United States 2
## 149 1996-07-28 United States 2
## 150 1996-07-27 United States 2
## 151 1996-07-27 United States 2
## 152 1996-07-27 United States 2
## 153 1996-07-25 United States 2
## 154 1996-07-24 United States 2
## 155 1996-07-23 United States 2
## 156 1996-07-17 United States 2
## 157 1996-07-13 Italy 2
## 158 1996-07-09 United States 2
## 159 1996-07-06 United States 2
## 160 1996-07-05 United States 2
## 161 1996-06-30 Peru 2
## 162 1996-06-29 United States 2
## 163 1996-06-29 United States 2
## 164 1996-06-28 United States 2
## 165 1996-06-27 United States 2
## 166 1996-06-27 United States 2
## 167 1996-06-23 Guatemala 2
## 168 1996-06-21 United States 2
## 169 1996-06-21 United States 2
## 170 1996-06-16 United States 2
## 171 1996-06-13 United States 2
## 172 1996-06-10 United States 2
## 173 1996-06-07 United States 2
## 174 1996-06-07 United States 2
## 175 1996-05-26 United States 2
## 176 1996-05-24 United States 2
## 177 1996-05-16 United States 2
## 178 1996-05-15 United States 2
## 179 1996-05-15 Bahamas 2
## 180 1996-05-10 United States 2
## 181 1996-05-06 United States 2
## 182 1996-04-29 United States 2
## 183 1996-04-29 United States 2
## 184 1996-04-18 United States 2
## 185 1996-04-16 United States 2
## 186 1996-04-15 United States 2
## 187 1996-04-10 United States 2
## 188 1996-04-04 United States 2
## 189 1996-04-01 United States 2
## 190 1996-03-28 United States 2
## 191 1996-03-24 United States 2
## 192 1996-03-22 United States 2
## 193 1996-03-22 United States 2
## 194 1996-03-10 United States 2
## 195 1996-03-01 United States 2
## 196 1996-02-22 United States 2
## 197 1996-02-19 United States 2
## 198 1996-02-18 United States 2
## 199 1996-02-18 United States 2
## 200 1996-02-16 United States 2
## 201 1996-02-15 United States 2
## 202 1996-02-10 Unknown 2
## 203 1996-01-23 United States 2
## 204 1996-01-21 United States 2
## 205 1996-01-19 United States 2
## 206 1996-01-16 United States 2
## 207 1996-01-13 United States 2
## 208 1996-01-12 United States 2
## 209 1996-01-11 United States 2
## 210 1996-12-31 United States 1
## 211 1996-12-28 United States 1
## 212 1996-12-24 United States 1
## 213 1996-12-22 United States 1
## 214 1996-12-21 United States 1
## 215 1996-12-14 United States 1
## 216 1996-12-12 United States 1
## 217 1996-12-11 Unknown 1
## 218 1996-12-08 United States 1
## 219 1996-12-08 United States 1
## 220 1996-12-07 United States 1
## 221 1996-12-05 United States 1
## 222 1996-12-02 United States 1
## 223 1996-11-30 United States 1
## 224 1996-11-27 United States 1
## 225 1996-11-26 United States 1
## 226 1996-11-23 United States 1
## 227 1996-11-21 United States 1
## 228 1996-11-20 United States 1
## 229 1996-11-20 United States 1
## 230 1996-11-17 United States 1
## 231 1996-11-15 United States 1
## 232 1996-11-15 United States 1
## 233 1996-11-14 United States 1
## 234 1996-11-14 United States 1
## 235 1996-11-12 United States 1
## 236 1996-11-11 United States 1
## 237 1996-11-08 United States 1
## 238 1996-11-05 United States 1
## 239 1996-11-04 United States 1
## 240 1996-11-02 United States 1
## 241 1996-11-02 United States 1
## 242 1996-11-01 United States 1
## 243 1996-10-29 United States 1
## 244 1996-10-29 United States 1
## 245 1996-10-28 United States 1
## 246 1996-10-27 United States 1
## 247 1996-10-20 United States 1
## 248 1996-10-19 United States 1
## 249 1996-10-13 United States 1
## 250 1996-10-12 United States 1
## 251 1996-10-10 United States 1
## 252 1996-10-10 United States 1
## 253 1996-10-10 United States 1
## 254 1996-10-08 United States 1
## 255 1996-10-08 United States 1
## 256 1996-10-04 United States 1
## 257 1996-10-02 United States 1
## 258 1996-10-02 United States 1
## 259 1996-09-26 United States 1
## 260 1996-09-24 United States 1
## 261 1996-09-23 United States 1
## 262 1996-09-23 United States 1
## 263 1996-09-22 United States 1
## 264 1996-09-21 United States 1
## 265 1996-09-20 United States 1
## 266 1996-09-20 United States 1
## 267 1996-09-19 United States 1
## 268 1996-09-19 United States 1
## 269 1996-09-16 Portugal 1
## 270 1996-09-14 United States 1
## 271 1996-09-11 United States 1
## 272 1996-09-09 United States 1
## 273 1996-09-08 United States 1
## 274 1996-09-07 United States 1
## 275 1996-09-05 United States 1
## 276 1996-09-05 United States 1
## 277 1996-09-04 United States 1
## 278 1996-09-04 United States 1
## 279 1996-09-01 United States 1
## 280 1996-08-31 United States 1
## 281 1996-08-31 United States 1
## 282 1996-08-30 United States 1
## 283 1996-08-30 United States 1
## 284 1996-08-27 United States 1
## 285 1996-08-26 Unknown 1
## 286 1996-08-26 United States 1
## 287 1996-08-23 United States 1
## 288 1996-08-21 United States 1
## 289 1996-08-20 United States 1
## 290 1996-08-20 United States 1
## 291 1996-08-17 United States 1
## 292 1996-08-17 United States 1
## 293 1996-08-17 United States 1
## 294 1996-08-13 United States 1
## 295 1996-08-11 United States 1
## 296 1996-08-11 United States 1
## 297 1996-08-10 United States 1
## 298 1996-08-09 Unknown 1
## 299 1996-08-08 United States 1
## 300 1996-08-07 United States 1
## 301 1996-08-05 United States 1
## 302 1996-08-04 United States 1
## 303 1996-08-03 United States 1
## 304 1996-08-02 United States 1
## 305 1996-08-02 United States 1
## 306 1996-07-31 United States 1
## 307 1996-07-30 United States 1
## 308 1996-07-25 United States 1
## 309 1996-07-25 United States 1
## 310 1996-07-24 United States 1
## 311 1996-07-24 United States 1
## 312 1996-07-22 United States 1
## 313 1996-07-22 United States 1
## 314 1996-07-19 United States 1
## 315 1996-07-19 United States 1
## 316 1996-07-18 United States 1
## 317 1996-07-15 United States 1
## 318 1996-07-15 United States 1
## 319 1996-07-15 United States 1
## 320 1996-07-13 United States 1
## 321 1996-07-13 United States 1
## 322 1996-07-13 United States 1
## 323 1996-07-07 United States 1
## 324 1996-07-05 United States 1
## 325 1996-07-02 United States 1
## 326 1996-07-02 United States 1
## 327 1996-07-02 United States 1
## 328 1996-06-29 United States 1
## 329 1996-06-28 United States 1
## 330 1996-06-25 United States 1
## 331 1996-06-24 United States 1
## 332 1996-06-24 United States 1
## 333 1996-06-22 United States 1
## 334 1996-06-21 United States 1
## 335 1996-06-20 United States 1
## 336 1996-06-19 United States 1
## 337 1996-06-19 United States 1
## 338 1996-06-19 United States 1
## 339 1996-06-15 United States 1
## 340 1996-06-15 United States 1
## 341 1996-06-15 United States 1
## 342 1996-06-15 Canada 1
## 343 1996-06-13 United States 1
## 344 1996-06-10 United States 1
## 345 1996-06-10 United States 1
## 346 1996-06-06 United States 1
## 347 1996-06-05 United States 1
## 348 1996-06-03 United States 1
## 349 1996-06-03 United States 1
## 350 1996-06-03 United States 1
## 351 1996-05-31 United States 1
## 352 1996-05-30 United States 1
## 353 1996-05-28 United States 1
## 354 1996-05-25 United States 1
## 355 1996-05-23 United States 1
## 356 1996-05-19 United States 1
## 357 1996-05-11 United States 1
## 358 1996-05-11 United States 1
## 359 1996-05-11 United States 1
## 360 1996-05-09 United States 1
## 361 1996-05-04 United States 1
## 362 1996-05-04 United States 1
## 363 1996-04-28 United States 1
## 364 1996-04-27 United States 1
## 365 1996-04-26 United States 1
## 366 1996-04-25 United States 1
## 367 1996-04-24 United States 1
## 368 1996-04-23 United States 1
## 369 1996-04-19 United States 1
## 370 1996-04-16 United States 1
## 371 1996-04-16 United States 1
## 372 1996-04-14 United States 1
## 373 1996-04-14 United States 1
## 374 1996-04-14 United States 1
## 375 1996-04-06 United States 1
## 376 1996-04-06 United States 1
## 377 1996-04-04 United States 1
## 378 1996-04-03 United States 1
## 379 1996-04-02 United States 1
## 380 1996-03-24 United States 1
## 381 1996-03-24 United States 1
## 382 1996-03-23 United States 1
## 383 1996-03-22 United States 1
## 384 1996-03-21 United States 1
## 385 1996-03-21 United States 1
## 386 1996-03-18 United States 1
## 387 1996-03-17 United States 1
## 388 1996-03-15 United States 1
## 389 1996-03-15 United States 1
## 390 1996-03-15 United States 1
## 391 1996-03-13 United States 1
## 392 1996-03-11 United States 1
## 393 1996-03-09 United States 1
## 394 1996-03-06 United States 1
## 395 1996-03-03 Philippines 1
## 396 1996-02-23 United States 1
## 397 1996-02-22 United States 1
## 398 1996-02-20 Costa Rica 1
## 399 1996-02-20 United States 1
## 400 1996-02-20 United States 1
## 401 1996-02-19 United States 1
## 402 1996-02-17 Unknown 1
## 403 1996-02-17 United States 1
## 404 1996-02-17 United States 1
## 405 1996-02-16 United States 1
## 406 1996-02-14 United States 1
## 407 1996-02-10 United States 1
## 408 1996-02-09 United States 1
## 409 1996-02-09 United States 1
## 410 1996-02-02 United States 1
## 411 1996-01-31 United States 1
## 412 1996-01-29 Solomon Islands 1
## 413 1996-01-29 United States 1
## 414 1996-01-22 United States 1
## 415 1996-01-19 United States 1
## 416 1996-01-18 United States 1
## 417 1996-01-17 United States 1
## 418 1996-01-17 United States 1
## 419 1996-01-15 United States 1
## 420 1996-01-14 United States 1
## 421 1996-01-13 United States 1
## 422 1996-01-12 United States 1
## 423 1996-01-11 United States 1
## 424 1996-01-09 United States 1
## 425 1996-01-08 United States 1
## 426 1996-01-07 United States 1
## 427 1996-01-06 United States 1
## 428 1996-01-05 United States 1
## 429 1996-01-01 United States 1
Two planes that collided in India caused 698 fatalities. 1996 was probably the worst year for aviation.
ggplot(aviation, aes(x=AircraftCategory)) + geom_bar(stat="count") + theme(axis.text.x = element_text(angle=90))
Unfortunately, more than half of the observations did not have Aircraft category information. Airplane and Helicopter are the most common means of flying so there is no surprise here that they have 1st and 2nd highest number of reported incidents
ggplot(aviation, aes(x=NumberOfEngines, fill=fatal)) + geom_bar(stat = "count", position="dodge")
Majority of the incidents were related to single engine aircraft however a quarter of those incidents resulted in fatality.