Week 4: Apply 3

Import data

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

## # A tibble: 450 × 5
##    service component severity         diagnosed  year
##    <chr>   <chr>     <chr>            <chr>     <dbl>
##  1 Army    Active    Penetrating      189        2006
##  2 Army    Active    Severe           102        2006
##  3 Army    Active    Moderate         709        2006
##  4 Army    Active    Mild             5896       2006
##  5 Army    Active    Not Classifiable 122        2006
##  6 Army    Guard     Penetrating      33         2006
##  7 Army    Guard     Severe           26         2006
##  8 Army    Guard     Moderate         177        2006
##  9 Army    Guard     Mild             1332       2006
## 10 Army    Guard     Not Classifiable 29         2006
## # ℹ 440 more rows

Plot data

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