Module 5: Apply 4
Rider McCallum
Import data
# excel file
mydata <- read_excel("MyData.xlsx")
mydata## # A tibble: 19 × 100
## Date Opponent Score Column1 `All shifts` `Time on ice` Goals
## <dttm> <chr> <chr> <dbl> <dbl> <chr> <dbl>
## 1 2024-10-24 00:00:00 vs New En… 5:2 0 17 18:02 1
## 2 2024-11-01 00:00:00 @ Univers… 0:5 0 23 22:59 0
## 3 2024-11-03 00:00:00 @ Babson … 4:5 0 23 25:07 0
## 4 2024-11-07 00:00:00 vs SUNY-P… 5:3 0 22 21:26 0
## 5 2024-11-09 00:00:00 @ New Eng… 5:1 0 20 21:19 0
## 6 2024-11-15 00:00:00 vs Worces… 8:2 0 18 18:16 0
## 7 2024-11-21 00:00:00 vs Framin… 7:1 0 20 19:11 0
## 8 2024-11-23 00:00:00 @ Salem S… 4:3 0 24 20:05 0
## 9 2024-11-26 00:00:00 vs Trinit… 1:2 0 24 21:10 0
## 10 2024-12-05 00:00:00 @ UMass D… 4:2 0 17 19:00 0
## 11 2024-12-07 00:00:00 vs Westfi… 1:0 0 27 22:20 1
## 12 2025-01-03 00:00:00 @ Hamilto… 0:4 0 20 19:35 0
## 13 2025-01-04 00:00:00 @ William… 8:2 0 19 18:18 0
## 14 2025-01-09 00:00:00 @ Rivier … 6:1 0 20 18:30 0
## 15 2025-01-11 00:00:00 vs Fitchb… 3:2 0 24 21:30 0
## 16 2025-01-16 00:00:00 @ Worcest… 5:2 0 20 20:22 0
## 17 2025-01-18 00:00:00 vs Massac… 3:1 0 19 17:18 0
## 18 2025-01-23 00:00:00 @ Anna Ma… 2:4 0 25 25:17 0
## 19 NA Average p… <NA> 169 20 18:59 0.17
## # ℹ 93 more variables: `First assist` <dbl>, `Second assist` <dbl>,
## # Assists <dbl>, `Puck touches` <dbl>, `Puck control time` <chr>,
## # Points <dbl>, `+/-` <dbl>, Plus <dbl>, Minus <dbl>, Penalties <dbl>,
## # `Penalties drawn` <dbl>, `Penalty time` <chr>, Hits <dbl>,
## # `Hits against` <dbl>, `Error leading to goal` <dbl>, `Dump ins` <dbl>,
## # `Dump outs` <dbl>, `Team goals when on ice` <dbl>,
## # `Opponent's goals when on ice` <dbl>, Shots <dbl>, `Shots on goal` <dbl>, …State one question
How many shots on goal per game?
Plot data
shots_data <- mydata[, c("Date", "Shots")]
shots_data## # A tibble: 19 × 2
## Date Shots
## <dttm> <dbl>
## 1 2024-10-24 00:00:00 5
## 2 2024-11-01 00:00:00 10
## 3 2024-11-03 00:00:00 6
## 4 2024-11-07 00:00:00 3
## 5 2024-11-09 00:00:00 4
## 6 2024-11-15 00:00:00 10
## 7 2024-11-21 00:00:00 0
## 8 2024-11-23 00:00:00 6
## 9 2024-11-26 00:00:00 8
## 10 2024-12-05 00:00:00 6
## 11 2024-12-07 00:00:00 9
## 12 2025-01-03 00:00:00 4
## 13 2025-01-04 00:00:00 7
## 14 2025-01-09 00:00:00 3
## 15 2025-01-11 00:00:00 8
## 16 2025-01-16 00:00:00 5
## 17 2025-01-18 00:00:00 6
## 18 2025-01-23 00:00:00 9
## 19 NA 5.8ggplot(shots_data, aes(x=Date, y=Shots)) +
geom_bar(stat = "identity", fill = "blue") +
labs(title = "Shot Comparison", x = "Date", y = "Shots") +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
Interpret
Throughout the year, the weekly game structure is thursday game and saturday game.It seems that throughout the season, I am consistently getting more shots on saturday vs thursday.In fact there is only one occurance (in november) where I had more shots on thursday than saturday.