Week 4: Apply 3

Import data

# excel file
data <- read_excel("data/MyData3.xlsx")
data

## # 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 prices

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