Import data

# excel file
data <- read_excel("data/MyData.xlsx")
data
## # A tibble: 336 × 6
##      Ref airline               avail_seat_km_per_week year_range type_…¹ n_eve…²
##    <dbl> <chr>                 <chr>                  <chr>      <chr>   <chr>  
##  1    NA Aer Lingus            320906734              85_99      incide… 2      
##  2     2 Aeroflot*             1197672318             85_99      incide… 76     
##  3     3 Aerolineas Argentinas 385803648              85_99      incide… 6      
##  4     4 Aeromexico*           596871813              85_99      incide… 3      
##  5     5 Air Canada            1865253802             85_99      incide… 2      
##  6     6 Air France            3004002661             85_99      incide… 14     
##  7     7 Air India*            869253552              85_99      incide… 2      
##  8     8 Air New Zealand*      710174817              85_99      incide… 3      
##  9     9 Alaska Airlines*      965346773              85_99      incide… 5      
## 10    10 Alitalia              698012498              85_99      incide… 7      
## # … with 326 more rows, and abbreviated variable names ¹​type_of_event,
## #   ²​n_events

Plot data

data %>%
    
    ggplot(aes(type_of_event)) +
    geom_bar()