library(tidyverse)
read_csv(file = "sd_boxscore.csv")
sd_shooting <- read_csv(file = "sd_boxscore.csv")


sd_shooting <- replace_na(sd_shooting, 
                                list(FTM = 0, FGA = 0, FGM = 0, TPM = 0, TPA = 0))

sd_shooting$FGM <- as.integer(sd_shooting$FGM)

sd_shooting$FGA <- as.integer(sd_shooting$FGA)
sd_shooting$FTM <- as.integer(sd_shooting$FTM)

  


sd_shooting <- mutate(sd_shooting, 
                      eFGP = (FGM+0.5*TPM)/(FGA),
                      TPP = TPM/TPA,
                      FGP = FGM/FGA,
                      FTP = FTM/FTA,
                      TSP = PTS/(2*(FGA + 0.44*FTA)),
                      PPS = (PTS/FGA))



sd_shooting <- arrange(sd_shooting, desc(PPS))

sd_shooting
mean_tsp <- mean(sd_shooting$TSP)

sd_shooting %>% select(Player, PPS,FGM, FGA, PTS, eFGP, FGP, TPP, TSP)


sd_shooting


ggplot(data = sd_shooting) +
  geom_histogram(mapping = aes(x = PPS, fill = ..count..), bins = 50) +
  scale_fill_gradient(low = "blue", high = "red") +
  labs(
    title = "Histogram of Points/FGA for Seadragons",
    x = "Average points scored on each attempt",
    y = "Count",
    fill = "Count"
  )

ggplot(sd_shooting, aes(x = FGP)) +
  geom_boxplot() +
  labs(
    title = "Boxplot of Field Goal %",
    x = "Field Goal Percentage",
  ) +
  theme_minimal()