Code:
library(readr)
library(dplyr)
leagues <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/general/leagues.csv")
#import data (players_basic, players_value, players_career_pitching_stats, players_career_batting_stats)
players <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/csv/players.csv")
players <- unite(players, name, c("first_name","last_name"), sep = " ")
players_career_pitching_stats <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/csv/players_career_pitching_stats.csv")
players_value <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/csv/players_value.csv")
players_career_batting_stats <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/csv/players_career_batting_stats.csv")
#Reduce pitching data to NCAA in current year and find rank
pncaa <- players_career_pitching_stats %>%
select(player_id, year, league_id, split_id, bf, gs, wpa, war) %>%
filter(league_id=='208' & split_id=='1'& year==max(year)) %>%
merge(players[ , c("player_id", "name")], by = "player_id") %>%
merge(players_value[ , c("player_id", "pot")], by = "player_id") %>%
mutate(rank = 0.75*wpa+2*war+pot/30, position = "P") %>%
select(player_id, league_id, name, rank, position)
#Reduce hitting data to NCAA in current year and find rank
bncaa <- players_career_batting_stats %>%
select(player_id, year, league_id, split_id, pa, wpa, war) %>%
filter(league_id=='208' & split_id=='1'& year==max(year)) %>%
merge(players[ , c("player_id", "name")], by = "player_id") %>%
merge(players_value[ , c("player_id", "pot")], by = "player_id") %>%
mutate(rank = 0.75*wpa+2*war+pot/30, position = "H") %>%
select(player_id, league_id, name, rank, position)
#merge hitters and pitchers for MVP
ncaamvp <- pncaa %>%
bind_rows(bncaa) %>%
arrange(desc(rank)) %>%
top_n(3, rank) %>%
select(name,position)
#POY award
ncaapoy <- pncaa %>%
arrange(desc(rank)) %>%
top_n(3, rank) %>%
select(name)
View(ncaamvp)
View(ncaapoy)