Week 4: Apply 3

Import data

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

## # A tibble: 922 × 7
##    Season          Episode Title `Air Date`          `IMDB Rating` `Total Votes`
##    <chr>             <dbl> <chr> <dttm>                      <dbl>         <dbl>
##  1 Mighty Morphin…       0 The … 1999-05-22 00:00:00           6.7           113
##  2 Mighty Morphin…       1 Day … 1993-08-28 00:00:00           7.4           687
##  3 Mighty Morphin…       2 High… 1993-09-04 00:00:00           6.9           564
##  4 Mighty Morphin…       3 Team… 1993-09-08 00:00:00           7.3           546
##  5 Mighty Morphin…       4 A Pr… 1993-09-09 00:00:00           6.9           535
##  6 Mighty Morphin…       5 Diff… 1993-09-10 00:00:00           6.6           516
##  7 Mighty Morphin…       6 Food… 1993-09-04 00:00:00           7.3           531
##  8 Mighty Morphin…       7 Big … 1993-09-11 00:00:00           6.4           510
##  9 Mighty Morphin…       8 I, E… 1993-09-14 00:00:00           7             504
## 10 Mighty Morphin…       9 For … 1993-09-15 00:00:00           6             494
## # ℹ 912 more rows
## # ℹ 1 more variable: Description <chr>

IMDB Rating

data %>%
    
    ggplot(aes(`IMDB Rating`)) +
    geom_bar()

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_count()`).