Import data

# excel file
beesdata <- read_excel("data/beesdata.xlsx")
beesdata
## # A tibble: 1,222 × 10
##     year months        state     colony_n colony_max colony_lost colony_lost_pct
##    <dbl> <chr>         <chr>        <dbl> <chr>            <dbl>           <dbl>
##  1  2015 January-March Alabama       7000 7000              1800              26
##  2  2015 January-March Arizona      35000 35000             4600              13
##  3  2015 January-March Arkansas     13000 14000             1500              11
##  4  2015 January-March Californ…  1440000 1690000         255000              15
##  5  2015 January-March Colorado      3500 12500             1500              12
##  6  2015 January-March Connecti…     3900 3900               870              22
##  7  2015 January-March Florida     305000 315000           42000              13
##  8  2015 January-March Georgia     104000 105000           14500              14
##  9  2015 January-March Hawaii       10500 10500              380               4
## 10  2015 January-March Idaho        81000 88000             3700               4
## # ℹ 1,212 more rows
## # ℹ 3 more variables: colony_added <chr>, colony_reno <chr>,
## #   colony_reno_pct <chr>

Plot data

beesdata %>%
    
    ggplot(aes(colony_lost_pct)) +
    geom_bar()
## Warning: Removed 54 rows containing non-finite values (`stat_count()`).