Week 4: Apply 3

Import data

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

## # A tibble: 27 × 5
##    number film            release_date        run_time film_rating
##     <dbl> <chr>           <dttm>              <chr>    <chr>      
##  1      1 Toy Story       1995-11-22 00:00:00 81       G          
##  2      2 A Bug's Life    1998-11-25 00:00:00 95       G          
##  3      3 Toy Story 2     1999-11-24 00:00:00 92       G          
##  4      4 Monsters, Inc.  2001-11-02 00:00:00 92       G          
##  5      5 Finding Nemo    2003-05-30 00:00:00 100      G          
##  6      6 The Incredibles 2004-11-05 00:00:00 115      PG         
##  7      7 Cars            2006-06-09 00:00:00 117      G          
##  8      8 Ratatouille     2007-06-29 00:00:00 111      G          
##  9      9 WALL-E          2008-06-27 00:00:00 98       G          
## 10     10 Up              2009-05-29 00:00:00 96       PG         
## # ℹ 17 more rows

Plot data

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