Week 4: Apply 3

Import data

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

## # A tibble: 507 × 1
##    Totals       
##    <chr>        
##  1 Obesity Score
##  2 Obesity Score
##  3 Obesity Score
##  4 Obesity Score
##  5 Obesity Score
##  6 Obesity Score
##  7 Obesity Score
##  8 Obesity Score
##  9 Obesity Score
## 10 Obesity Score
## # ℹ 497 more rows

Plot Data

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