Week 4: Apply 3

Import data

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

## # A tibble: 78 × 135
##    Date                Opponent   Score Column1 `All shifts` `Time on ice` Goals
##    <dttm>              <chr>      <chr>   <dbl>        <dbl> <chr>         <dbl>
##  1 2022-10-20 00:00:00 vs Endico… 4:5         0           14 12:34             0
##  2 2022-10-21 00:00:00 @ Univers… 3:4         0           15 11:16             0
##  3 2022-10-28 00:00:00 vs SUNY-P… 2:2         0           20 14:37             0
##  4 2022-10-29 00:00:00 @ Babson … 2:3         0           19 15:10             0
##  5 2022-11-05 00:00:00 @ Anna Ma… 3:4         0           12 09:40             0
##  6 2022-11-10 00:00:00 @ Westfie… 6:3         0           19 16:55             0
##  7 2022-11-12 00:00:00 vs UMass … 3:2         0           14 12:32             0
##  8 2022-11-19 00:00:00 vs Worces… 7:3         0           20 16:47             1
##  9 2022-11-25 00:00:00 @ Utica P… 3:5         0           18 15:50             0
## 10 2022-11-27 00:00:00 vs Trine … 1:0         0           12 11:52             0
## # ℹ 68 more rows
## # ℹ 128 more variables: `First assist` <dbl>, `Second assist` <dbl>,
## #   Assists <dbl>, `Puck touches` <chr>, `Puck control time` <chr>,
## #   Points <dbl>, `+/-` <dbl>, Plus <dbl>, Minus <dbl>, Penalties <dbl>,
## #   `Penalties drawn` <dbl>, `Penalty time` <chr>, Faceoffs <dbl>,
## #   `Faceoffs won` <dbl>, `Faceoffs lost` <dbl>, `Faceoffs won, %` <chr>,
## #   Hits <dbl>, `Hits against` <dbl>, `Error leading to goal` <chr>, …

Plot data

data %>%
    
    ggplot(aes(Points)) +
    geom_bar() + 
    labs(
        x = "Points",
        y = "# of Games",
        title = "Distribution of Points per Game"
    )