Questions about birds

Which months have the highest and lowest number of bird impacts with aircraft?

#> # A tibble: 12 x 2
#>    incident_month     n
#>             <dbl> <int>
#>  1              9  7980
#>  2             10  7754
#>  3              8  7104
#>  4              5  6161
#>  5              7  6133
#>  6              6  4541
#>  7              4  4490
#>  8             11  4191
#>  9              3  2678
#> 10             12  2303
#> 11              1  1951
#> 12              2  1692

The month with the most incidents is September and the month with the least is December

Does the annual number of bird impacts appear to be changing over time?

birds %>% 
  count(incident_year) %>% 
  arrange(desc(n))
#> # A tibble: 29 x 2
#>    incident_year     n
#>            <dbl> <int>
#>  1          2018  4452
#>  2          2017  4081
#>  3          2016  3764
#>  4          2015  3602
#>  5          2014  3102
#>  6          2013  2681
#>  7          2012  2517
#>  8          2000  2303
#>  9          2010  2104
#> 10          2009  2102
#> # … with 19 more rows

Questions about bears

Which months have the highest frequency of bear killings?

bears %>% 
  count(month) %>% 
  arrange(desc(n)) %>% 
  knitr::kable()
month n
8 28
7 27
9 25
10 25
6 20
5 18
11 12
4 4
1 3
12 2
2 1
3 1

Who has been killed more often by bears: hunters or hikers?

bears %>% 
  count(hunter, hiker)
#> # A tibble: 3 x 3
#>   hunter hiker     n
#>    <dbl> <dbl> <int>
#> 1      0     0   144
#> 2      0     1     6
#> 3      1     0    16

How do the the number of bear attacks on men vs women compare?

bears %>% 
  count(gender)
#> # A tibble: 3 x 2
#>   gender     n
#>   <chr>  <int>
#> 1 female    43
#> 2 male     122
#> 3 <NA>       1