Week 4: Apply 3

Import data

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

## # A tibble: 83 × 7
##    YEAR  NUMBER_FIRES ACRES_BURNED DAMAGE_COSTS SEVERITY Damage_Cost_Per_Acre
##    <chr>        <dbl>        <dbl>        <dbl> <chr>                   <dbl>
##  1 1933          1994       129210       318636 Moderate                 2.47
##  2 1934          2338       363052       563710 Severe                   1.55
##  3 1935          1447       127262       165543 Moderate                 1.30
##  4 1936          3805       756696      1877147 Severe                   2.48
##  5 1937          2907        71312       151584 Mild                     2.13
##  6 1938          4150       221061       404225 Moderate                 1.83
##  7 1939          2491       513620       847579 Severe                   1.65
##  8 1940          4497       156015       272178 Moderate                 1.74
##  9 1941          5460       278599       515737 Moderate                 1.85
## 10 1942          5236       573597      1484864 Moderate                 2.59
## # ℹ 73 more rows
## # ℹ 1 more variable: Average_Acres_Burned_Per_Fire <dbl>

Plot data

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