Home | Webstore
Latest News: OOTP 25 Available - FHM 10 Available - OOTP Go! Available

Out of the Park Baseball 25 Buy Now!

  

Go Back   OOTP Developments Forums > Prior Versions of Our Games > Out of the Park Baseball 19 > OOTP 19 - Fictional Simulations

OOTP 19 - Fictional Simulations Discuss fictional simulations and their results in this forum.

Reply
 
Thread Tools
Old 04-06-2019, 05:45 PM   #681
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 MLB Draft

Name:  AnthonyTaubman.PNG
Views: 92
Size:  35.4 KB
Anthony Taubman was drafted first overall by the Braves out of the defending NCAA champs Washington State.

Name:  UsherOates.PNG
Views: 115
Size:  37.3 KB
Usher Oates was the top high schooler selected, going third out of Rio Rancho to the Red Sox.

Name:  CurioHubbert.PNG
Views: 93
Size:  34.0 KB
The top pitcher selected was Curio Hubbert, though he is injured with a shoulder impingement and did not sign.


Round 1, Pick 1 - Atlanta Braves: 2B Anthony Taubman, age 21
Round 1, Pick 2 - Kansas City Royals: CF Alfred Bell, age 21
Round 1, Pick 3 - Boston Red Sox: RF Usher Oates, age 18
Round 1, Pick 4 - Milwaukee Brewers: SS Wesley Haley, age 18
Round 1, Pick 5 - Baltimore Orioles: RF Elijah Whisenhunt, age 18
Round 1, Pick 6 - Philadelphia Phillies: CF Silvino Tiffer, age 21
Round 1, Pick 7 - Florida Marlins: CF Leo McCanna, age 21
Round 1, Pick 8 - Texas Rangers: C Dallas Nissen, age 18
Round 1, Pick 9 - San Diego Padres: SP Curio Hubbert, age 18
Round 1, Pick 10 - Minnesota Twins: RF Austin Magee, age 21
Round 1, Pick 11 - St. Louis Cardinals: CF Louis Hayes, age 21
Round 1, Pick 12 - San Francisco Giants: CL Connor Morris, age 21
Round 1, Pick 13 - Houston Astros: SS Terrence Briley, age 21
Round 1, Pick 14 - Chicago White Sox: SS Reginald Musgrave, age 21
Round 1, Pick 15 - Cleveland Indians: 3B Evan Pieratt, age 18
Round 1, Pick 16 - Boston Red Sox: SP A.J. Knitter, age 21
Round 1, Pick 17 - Montreal Expos: 2B Aarão Sousa, age 21
Round 1, Pick 18 - Arizona Diamondbacks: SP Tino García, age 21
Round 1, Pick 19 - New York Yankees: CF Parker Harden, age 18
Round 1, Pick 20 - Detroit Tigers: 2B Jared Sandlin, age 21
Round 1, Pick 21 - Tampa Bay Devil Rays: RF Mac Anders, age 18
Round 1, Pick 22 - Seattle Mariners: SP Kamau Amos, age 21
Round 1, Pick 23 - Chicago Cubs: SP Sean Boldman, age 18
Round 1, Pick 24 - Colorado Rockies: 2B Shihei Mori, age 21
Round 1, Pick 25 - Los Angeles Dodgers: SP Ryan Farrell, age 21
Round 1, Pick 26 - New York Mets: SP Jordan Ogilvie, age 22
Round 1, Pick 30 - Oakland Athletics: 3B Ben Brejcha, age 21
stealofhome is offline   Reply With Quote
Old 04-06-2019, 07:03 PM   #682
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
MLB All-Star selection

I'm admittedly new to all this so I'm sure there are much easier and cleaner ways to do this, but my way does what I want for now.

Code:
#library(readr)
#library(dplyr)
#library(tidyr)
#library(Hmisc)
#teams <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/general/teams.csv")
#pos <- data.frame("posnum" = c(1,2,3,4,5,6,7,8,9),"posval" = c("P","C","1B","2B","3B","SS","LF","CF","RF"))

#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 MLB in current year
pas <- players_career_pitching_stats %>% 
  select(player_id, year, league_id, team_id, split_id, bf, gs, wpa, war) %>% 
  filter(league_id=='100' & 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") %>% 
  merge(teams[ , c("team_id", "sub_league_id")], by = "team_id") %>% 
  mutate(sprank = wpa+2*war,
         rprank = 2*wpa+war)

#select top 6 SP and top 4 RP for AL and NL
ALAS <- pas %>% 
  filter(gs!='0' & sub_league_id =='0') %>% 
  select(player_id, name, sprank, war) %>% 
  arrange(desc(sprank)) %>%
  top_n(6,sprank) %>% 
  mutate(pos="SP") %>% 
  rename(rank = sprank)

ALAS <- pas %>% 
  filter(gs=='0' & wpa>'0' & sub_league_id =='0') %>% 
  select(player_id, name, rprank, war) %>% 
  arrange(desc(rprank)) %>% 
  top_n(4,rprank) %>% 
  mutate(pos="RP") %>% 
  rename(rank = rprank) %>% 
  bind_rows(ALAS, .)

NLAS <- pas %>% 
  filter(gs!='0' & sub_league_id =='1') %>% 
  select(player_id, name, sprank, war) %>% 
  arrange(desc(sprank)) %>%
  top_n(6,sprank) %>% 
  mutate(pos="SP") %>% 
  rename(rank = sprank)

NLAS <- pas %>% 
  filter(gs=='0' & wpa>'0' & sub_league_id =='1') %>% 
  select(player_id, name, rprank, war) %>% 
  arrange(desc(rprank)) %>% 
  top_n(4,rprank) %>% 
  mutate(pos="RP") %>% 
  rename(rank = rprank) %>% 
  bind_rows(NLAS, .)

#Filter batter data
bas <- players_career_batting_stats %>% 
  select(player_id, year, league_id, team_id, split_id, pa, wpa, war) %>% 
  filter(league_id=='100' & split_id=='1'& year==max(year)) %>%
  merge(players[ , c("player_id", "name", "position")], by = "player_id") %>% 
  merge(players_value[ , c("player_id", "pot")], by = "player_id") %>% 
  merge(teams[ , c("team_id", "sub_league_id")], by = "team_id") %>% 
  mutate(brank = wpa+2*war)

#select top 2 C and top 1 for every other position
ALAS <- bas %>% 
  filter(position=='2' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(2,brank) %>% 
  mutate(pos="C") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='3' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="1B") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='4' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="2B") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='5' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="3B") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='6' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="SS") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='7' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="LF") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='8' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="CF") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

ALAS <- bas %>% 
  filter(position=='9' & sub_league_id =='0') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="RF") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

#filter out hitters already selected to all-star game
lasth <- anti_join(bas, ALAS, by=c("brank"= "rank"))

#select top 6 players not already selected
ALAS <- lasth %>% 
  filter(sub_league_id =='0') %>%
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(6,brank) %>% 
  mutate(pos="H") %>% 
  rename(rank = brank) %>% 
  bind_rows(ALAS, .)

#select top 2 C and top 1 for every other position
NLAS <- bas %>% 
  filter(position=='2' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(2,brank) %>% 
  mutate(pos="C") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='3' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="1B") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='4' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="2B") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='5' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="3B") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='6' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="SS") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='7' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="LF") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='8' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="CF") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

NLAS <- bas %>% 
  filter(position=='9' & sub_league_id =='1') %>% 
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(1,brank) %>% 
  mutate(pos="RF") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

#filter out hitters already selected to all-star game
lasth <- anti_join(bas, NLAS, by=c("brank"= "rank"))

#select top 6 players not already selected
NLAS <- lasth %>% 
  filter(sub_league_id =='1') %>%
  select(player_id, name, brank, war) %>% 
  arrange(desc(brank)) %>% 
  top_n(6,brank) %>% 
  mutate(pos="H") %>% 
  rename(rank = brank) %>% 
  bind_rows(NLAS, .)

#create AL table for export to forum
ALASF <- ALAS %>% 
  select(player_id, name, war) %>% 
  merge(players[ , c("player_id", "position", "team_id")], by = "player_id") %>%
  merge(pos[ , c("posnum","posval")], by.x='position', by.y = 'posnum') %>%
  merge(teams[ , c("team_id", "abbr")], by = "team_id") %>% 
  select(c(6,4,5,7)) %>% 
  mutate(war = round(war, digits = 2)) %>% 
  rename(position = posval, team = abbr) %>% 
  arrange(desc(war))

#create NL table for export to forum
NLASF <- NLAS %>% 
  select(player_id, name, war) %>% 
  merge(players[ , c("player_id", "position", "team_id")], by = "player_id") %>%
  merge(pos[ , c("posnum","posval")], by.x='position', by.y = 'posnum') %>%
  merge(teams[ , c("team_id", "abbr")], by = "team_id") %>% 
  select(c(6,4,5,7)) %>% 
  mutate(war = round(war, digits = 2)) %>% 
  rename(position = posval, team = abbr) %>% 
  arrange(desc(war))

#Create tables to use for in-game voting
ALAS <- ALAS %>% 
  separate(name, c("first","last"), sep = " ") %>% 
  arrange(last) %>% 
  unite("name", c("first", "last"), sep = " ") %>% 
  select(name)

NLAS <- NLAS %>% 
  separate(name, c("first","last"), sep = " ") %>% 
  arrange(last) %>% 
  unite("name", c("first", "last"), sep = " ") %>% 
  select(name)

View(ALAS)
View(NLAS)

#send AL and NL tables to clipboard
#write_clip(ALASF)
#write_clip(NLASF)
stealofhome is offline   Reply With Quote
Old 04-06-2019, 07:20 PM   #683
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 MLB All-Star Rosters

American League:

position name war team
P Matt Rex 4.68 CLE
P Kane Lake 4.37 BOS
P Gabe Morton 4.03 SEA
SS Carson Gilliland 3.86 MIN
2B Artur Vallejo 3.61 HOU
1B Fred Westbrook 3.46 TB
P Thomas Stendel 3.43 CHA
LF Blake Gribler 3.31 TEX
P Joe Smoot 3.3 TB
CF Cristian Bell 2.92 CLE
SS Dexter Stallworth 2.91 CLE
1B Alber Diesburg 2.28 OAK
2B Dylan Hale 2.28 TEX
P Alex Derk 2.2 DET
C Kyle Platt 2.19 KC
C Jason Servais 2.17 CLE
LF Jules Marty 2.15 DET
RF Colton Willis 2.08 TEX
2B Tavis Ysassi 2 TB
CF Pete Hinson 1.94 NYY
3B Cristopher Bandini 1.49 SEA
P Billy Cornier 0.58 NYY
P Mikko Mansikka 0.36 DET
P Robb Auch 0.17 BAL
P Hermann Wacker 0.1 SEA

National League:

position name war team
P Noah Luevanos 4.24 STL
P Steve Flores 4.15 NYM
SS Lester Taylor 3.86 FLA
P Ansel Thomas 3.77 STL
1B Leandro Quiroz 3.61 LAD
CF Jo Magallanes 3.6 NYM
P Tony Willson 3.32 SD
1B Nathanael Clark 3.28 ARI
2B Nathanael Acker 3.2 SD
P John Kalinoski 3.17 ATL
SS Carter Silberstein 3.14 MIL
P Graham Griffith 3.09 MIL
1B Gunnar Grima 3.09 SD
SS Reggie Veras 2.89 SF
C Ronnie Mellinger 2.58 ARI
LF Fabio Abreu 2.56 CHC
RF Erik Hutchins 2.3 SD
CF John Button 2.2 CHC
P Matthew Willard 2.09 ARI
3B Sultan Slade 1.93 COL
RF Cason Bautista 1.89 PHI
C Marek Vesik 1.45 CHC
P Corbin Cuva 1.08 MIL
P Charlie Kleiber 0.51 COL
P Tom Book 0.24 PHI
stealofhome is offline   Reply With Quote
Old 04-06-2019, 07:41 PM   #684
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
Achievements, June through October 1937

MLB Owner Changes:

MLB Career Milestones:
Lester Taylor, Florida Marlins - 2000 H
Mike Jernigan, Baltimore Orioles - 2000 H

No-Hitters/Perfect Games:
Lawrence Gill, Binghamton, AA - 7K, 1BB
J.P. Perez, Billings, R - 9K, 2BB
Jude Birmingham, Long Island, IND - 4K, 2BB
Caraun Williams, Brooklyn, A- - 5K, 1BB
Tommy See, Billings, R - 10K, 1BB

15+ Strikeout Games:

Hitting Streaks Ended:
Adam Fisher, New York Yankees, MLB - 25G
Brody Swanson, New York Yankees, MLB - 25G

Jared Held, Long Island, IND - 25G
Ryusei Yamashida, Oklahoma City, AAA - 29G
Zeke Riddle, El Paso, AAA - 26G
stealofhome is offline   Reply With Quote
Old 04-06-2019, 07:44 PM   #685
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 MLB Playoffs

The Astros win their first World Series since 1910
Attached Images
Image 
stealofhome is offline   Reply With Quote
Old 04-06-2019, 08:29 PM   #686
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
MLB Awards Selection

I'm not able to do everything I would like with this one - Most of the advanced stats are not exportable from the in-game database and there is no flag that I can find for MLB rookies.

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 MLB in current year and find rank
pmlb <- players_career_pitching_stats %>% 
  select(player_id, year, league_id, team_id, split_id, bf, gs, wpa, war) %>% 
  filter(league_id=='100' & 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") %>% 
  merge(teams[ , c("team_id", "sub_league_id")], by = "team_id") %>% 
  mutate(sprank = wpa+2*war, rprank = 2*wpa+war)

#Reduce hitting data to MLB in current year and find rank
bmlb <- players_career_batting_stats %>% 
  select(player_id, year, league_id, team_id, split_id, pa, wpa, war) %>% 
  filter(league_id=='100' & 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") %>% 
  merge(teams[ , c("team_id", "sub_league_id")], by = "team_id") %>%
  mutate(rank = wpa+2*war, position = "H")

#merge hitters and pitchers for MVP
mlbmvp <- pmlb %>% 
  bind_rows(bmlb) %>% 
  arrange(sub_league_id, desc(rank)) %>% 
  group_by(sub_league_id) %>% 
  top_n(3, rank) %>% 
  select(player_id, name,position, sub_league_id)

#POY award
mlbpoy <- pmlb %>% 
  arrange(sub_league_id, desc(sprank)) %>% 
  group_by(sub_league_id) %>% 
  top_n(3, sprank) %>% 
  select(player_id, name, sub_league_id)

#Reliever award
mlbreloy <- pmlb %>% 
  filter(gs=='0' & wpa>'0') %>% 
  arrange(sub_league_id, desc(rprank)) %>% 
  group_by(sub_league_id) %>% 
  top_n(3,rprank) %>% 
  select(name, sub_league_id)

View(mlbmvp)
View(mlbpoy)
View(mlbreloy)
stealofhome is offline   Reply With Quote
Old 04-06-2019, 08:50 PM   #687
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 MLB Award Winners

Name:  BlakeGribler1937.PNG
Views: 63
Size:  52.6 KB
AL MVP: Blake Gribler, LF, Texas Rangers - 4.9 WAR, 141 wRC+, 1.0 ZR

Name:  LesterTaylor1937.PNG
Views: 84
Size:  54.3 KB
NL MVP: Lester Taylor, SS, Florida Marlins - 5.9 WAR, 129 wRC+, 10.5 ZR

Name:  KaneLake1937.PNG
Views: 94
Size:  45.1 KB
AL Top Pitcher: Kane Lake, LHP, Boston Red Sox - 7.2 WAR, 80 FIP-, 1.8 K/BB

Name:  TonyWillson1937.PNG
Views: 67
Size:  45.4 KB
NL Top Pitcher: Tony Willson, RHP, San Diego Padres - 5.7 WAR, 88 FIP-, 1.4 K/BB

AL Rookie of the Year: Curt Scott, RF, Detroit Tigers - 5.0 WAR, 141 wRC+, 1.0 ZR
NL Rookie of the Year: Oliver Cutler, 2B, New York Mets - 2.3 WAR, 117 wRC+, 5.3 ZR
stealofhome is offline   Reply With Quote
Old 04-06-2019, 08:54 PM   #688
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 Free Agency

Name:  GunnarGrimaFA.PNG
Views: 65
Size:  36.2 KB
Not very much this offseason with Gunnar Grima, 3-time all-star and two-time silver slugger looking to be one of the most attractive free agents.
stealofhome is offline   Reply With Quote
Old 04-06-2019, 11:21 PM   #689
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
Unsigned Draftees

I am still moving the top unsigned draftees into college. Here's the code for that. I imagine there's some kind of a loop that can combine the two and automatically create a table that will match up the draftees with a school.

Code:
#library(readr)
#library(dplyr)
#library(lubridate)
#teams <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/general/teams.csv")
#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_value <- read_csv("Out of the Park Developments/OOTP Baseball 19/saved_games/OOTPLeagueReborn.lg/import_export/csv/players_value.csv")
ncaadate <- mdy(paste(3,"/",27,"/",as.numeric(players$age[players$player_id == '24']) + 
  as.numeric(year(players$date_of_birth[players$player_id == '24'])) + 1))

#Teams with fewer than 20 players
lowteams <- players %>% 
  filter(league_id == '208') %>% 
  group_by(team_id) %>% 
  tally() %>% 
  merge(teams[ , c("team_id", "name")], by = "team_id") %>% 
  arrange(n) %>% 
  filter(n < '20')

#Top unsigned players
draftees <- players %>%
  select(league_id, player_id, name, age, date_of_birth) %>% 
  merge(leagues[ , c("league_id", "league_level")], 
        by = "league_id", all = TRUE) %>% 
  merge(players_value[ , c("player_id", "offensive_value_talent", 
                           "pitching_value_talent")], 
        by = "player_id") %>% 
  replace_na(list(league_level = 0)) %>% 
  filter((league_id == '0' & age <= 19) | league_level == '11') %>% 
  mutate(nxtage = ncaadate - ymd(date_of_birth), 
         value = pmax(offensive_value_talent,pitching_value_talent)) %>% 
  filter(nxtage >= '6877' & value >=1000) %>% 
  arrange(desc(value)) %>%
  select(name)

View(lowteams)
View(draftees)
stealofhome is offline   Reply With Quote
Old 04-06-2019, 11:39 PM   #690
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 Hall of Fame

Name:  JeremiahInmanHOF.PNG
Views: 101
Size:  274.4 KB
Jeremiah Inman, RF

Inman was drafted 1st overall in 1916 out of the University of Illinois. He won one MVP, two gold gloves, four silver sluggers, went to 7 all-star games, and was an LCS MVP. He's a borderline RF HOF candidate but did have a slightly better career than Wes Grossman who is already in the Hall. When compared to other RF, he ranks 6th in hits, 3rd in doubles, 3rd in triples, and 4th in walks.

Career Stats: 8883 PA, 2146 H, 199 SB, .361 wOBA, 120 wRC+, 67.0 ZR, 42.8 WAR, 40.6 JAWS

Marlon Pepper, RHP

Pepper wasn't particularly close to the Hall but he put together a solid career nonetheless, attending two all-star games. His name is a memorable one from the feeder league ranks as he was Oregon High School Pitcher of the Year three times, MVP once, and finished in the top three two more times. He was drafted 4th overall by the Cubs and had 13 above average seasons in the major leagues.

Career Stats: 3185.7 IP, 986 BB, 937 K, 3.85 FIP, 97 FIP-, 46.0 WAR, 37.9 JAWS
stealofhome is offline   Reply With Quote
Old 04-06-2019, 11:44 PM   #691
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1937 FA Summary

Name:  GunnarGrimaGiants.PNG
Views: 66
Size:  49.9 KB
Gunnar Grima is just bouncing around California in his career - from Oakland to San Diego to San Francisco. He signed with the Giants for 6 years.
stealofhome is offline   Reply With Quote
Old 04-06-2019, 11:50 PM   #692
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 Top 100 Prospects

Name:  TeoAlarcon.PNG
Views: 60
Size:  38.3 KB
The top prospect is an injured pitcher - Teo Alarcon is out with a strained abdominal muscle.

Name:  JackSchofieldBradenton.PNG
Views: 58
Size:  37.2 KB
The top hitter is Jack Schofield, 1935's 4th overall pick.
Attached Images
Image 
stealofhome is offline   Reply With Quote
Old 04-07-2019, 12:30 AM   #693
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 NCAA All-Stars

Team 1:

position name war school
CF Buck Henna 1.87 SMG
2B Duval Rankins 1.83 TUL
C O.K. Olson 1.67 VIR
LF Connor Gosewisch 1.65 MIN
P Paul Trower 1.61 STAN
2B Derek Alfrego 1.46 SMG
2B William Williams 1.44 NMSU
P Atley Smallwood 1.3 DUK
P Jevon Flory 1.26 CSF
1B Zachery McGehee 1.24 LOY
P Wyatt Gregory 1.18 OK
CF Orion Nance 1.14 SCG
P Gabe Nelson 1.08 OSU
3B Robert Henry 1.05 SJSU
C Arnold Settle 1.02 ASU
P Terrence Mahan 0.97 TTU
RF D.J. Marsh 0.96 UNM
SS Blake Lira 0.93 STAN
P Howard Osborne 0.55 PSU
P Kevin Danley 0.47 PUR

Team 2:

position name war school
P John Gagliardini 1.81 ECP
2B Wayne Colvin 1.8 OKST
2B Julian Redlich 1.77 MIA
CF Logan Polkow 1.75 SHP
P Curio Hubbert 1.63 PUR
2B Carlos Castaneda 1.5 PEP
3B Jaxon Bradley 1.49 LOY
RF Ryder Santana 1.48 ALA
2B Marcus Carlin 1.43 SHP
SS Trevor Byers 1.34 ECP
P Kirby Westbrook 1.23 TCU
P Kiichi Fujimura 1.19 GEO
LF Dave Killen 1.14 GH
P Justin Hooper 1.09 BC
P Nicky Waitman 0.98 UNC
1B Blaze Hollman 0.86 CSF
P Deshane Rogers 0.62 STAN
C Karl Hofer 0.61 STAN
C Mark Petrov 0.59 PEP
P Alexander Fowler 0.26 NCST
stealofhome is offline   Reply With Quote
Old 04-07-2019, 01:00 AM   #694
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 College Playoffs

The Lobos bring the first championship to New Mexico.
Attached Images
Image 
stealofhome is offline   Reply With Quote
Old 04-07-2019, 01:06 AM   #695
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
Achievements, April/May 1938

MLB Owner Changes:

MLB Career Milestones:
Jax Slaughter, Tampa Bay Devil Rays - 2000 H

No-Hitters/Perfect Games:
Owen Oden, Daytona, A+ - 3K, 3BB

15+ Strikeout Games:

7 Hits:
Conor Seals, De La Salle, IHSA

Hitting Streaks Ended:
Buck Hena, St Marys, NCAA - 25G
Braiden Rhine, Rio Rancho, NMAA - 25G
Cody David, Austin, TUIL - 27G
Vin Elliott, Teutopolis, IHSA - 28G
stealofhome is offline   Reply With Quote
Old 04-07-2019, 01:49 AM   #696
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 MLB Draft

Name:  NickyWaitman.PNG
Views: 109
Size:  39.9 KB
The top player drafted was Nicky Waitman out of North Carolina. The Red Sox originally drafted Waitman back in 1935 out of high school, but he failed to sign and went to college.

Name:  ReggieSherburne.PNG
Views: 58
Size:  38.2 KB
The top high school player was also a pitcher - Reggie Sherburne out of Archbishop Molloy.

Name:  MarcusCarlin.PNG
Views: 77
Size:  37.4 KB
The top batter taken was Marcus Carlin, 2-time NCAA MVP.



Round 1, Pick 1 - Boston Red Sox: SP Nicky Waitman, age 21
Round 1, Pick 2 - Baltimore Orioles: SP Reggie Sherburne, age 18
Round 1, Pick 3 - Pittsburgh Pirates: 2B Marcus Carlin, age 21
Round 1, Pick 4 - Minnesota Twins: SP George Nobles, age 21
Round 1, Pick 5 - Atlanta Braves: C Karl Hofer, age 21
Round 1, Pick 6 - Kansas City Royals: 2B William Williams, age 21
Round 1, Pick 7 - Colorado Rockies: SP Justin Glatfelter, age 18
Round 1, Pick 8 - Cincinnati Reds: SP Kirby Westbrook, age 21
Round 1, Pick 9 - Seattle Mariners: SP Justin Hooper, age 21
Round 1, Pick 10 - San Diego Padres: SP Aramis De Boer, age 21
Round 1, Pick 11 - Los Angeles Angels: C Mark Petrov, age 21
Round 1, Pick 12 - Florida Marlins: RF Adam Sims, age 18
Round 1, Pick 13 - San Francisco Giants: SS Terrence Briley, age 22
Round 1, Pick 14 - Houston Astros: CF Dan Holloway, age 18
Round 1, Pick 15 - St. Louis Cardinals: SP Facundo Ross, age 21
Round 1, Pick 16 - Arizona Diamondbacks: SP Corbin Noble, age 18
Round 1, Pick 17 - Montreal Expos: LF Dave Killen, age 21
Round 1, Pick 18 - Tampa Bay Devil Rays: RF Casey West, age 21
Round 1, Pick 19 - Los Angeles Dodgers: SP Jeremiah Schwartz, age 21
Round 1, Pick 20 - New York Yankees: LF Austin Maruca, age 18
Round 1, Pick 21 - Philadelphia Phillies: 1B Travis Jensen, age 21
Round 1, Pick 22 - New York Yankees: SP Isidoro Muñoz, age 21
Round 1, Pick 23 - Milwaukee Brewers: SP Dallas Wasi, age 21
Round 1, Pick 24 - Texas Rangers: 2B Derek Alfrego, age 21
Round 1, Pick 25 - Colorado Rockies: 2B River Litchfield, age 21
Round 1, Pick 26 - Cleveland Indians: RP Connor Morris, age 22
Round 1, Pick 27 - Toronto Blue Jays: SP Liam Bond, age 21
Round 1, Pick 28 - Houston Astros: 2B Duval Rankins, age 21
Round 1, Pick 29 - New York Mets: SP Suelita Pena, age 21
stealofhome is offline   Reply With Quote
Old 04-07-2019, 02:01 AM   #697
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 MLB All-Star Rosters

American League:

position name war team
P Gabe Morton 4.18 SEA
2B Sebastian Carpenter 4.11 LAA
P James Clay 3.72 SEA
P Rutherford Jennings 3.43 HOU
RF Curt Scott 3.33 DET
LF Cristopher De La Cruz 3.23 TOR
P Danny Roy 3.22 OAK
P Ethan McBroom 3.15 CHA
P Griffin Clark 3.09 BOS
2B Tavis Ysassi 3.03 TB
SS J.R. Jackson 2.94 NYY
CF James Belisle 2.79 SEA
2B Dylan Hale 2.6 TEX
CF Michal Delaney 2.54 CHA
3B Sancho Rosas 2.43 TOR
2B Artur Vallejo 2.42 HOU
LF Blake Gribler 2.37 TEX
C Whitby Taylor 1.92 NYY
1B Fred Westbrook 1.88 TB
C Rafael Otalora 1.81 TB
3B Cristopher Bandini 1.6 SEA
P Mikko Mansikka 1.5 DET
P Rusty De La Torre 1.46 TOR
P Hermann Wacker 1.29 SEA
P Marcel Martin 1.08 TEX

National League:

position name war team
P Pedro Ramos 4.16 SF
LF Derek Allen 4.11 PHI
P Lucas Roe 4.01 SD
1B Leandro Quiroz 3.97 LAD
P Noah Luevanos 3.96 STL
P Steve Flores 3.88 NYM
P Bond Lott 3.84 PHI
CF Dale Estrada 3.47 MIL
P Tony Willson 3.42 SD
CF Julian Burke 3.25 STL
2B Anthony Taubman 3.24 ATL
2B Oliver Cutler 3.1 NYM
CF John Button 3.02 CHC
2B Mike Sullivan 2.94 STL
RF Ignacio Gonzalez 2.82 PIT
LF Gavin Coffey 2.52 MIL
RF Leo Mendoza 2.45 CHC
SS Elliot Raprap 2.21 MON
3B Gilbert Mosca 2.14 FLA
C Laverne Archambault 1.87 MON
C Jameson Cox 1.58 NYM
P David Hardin 1.56 ATL
P Clinton Ware 1.39 CHC
P Corbin Cuva 1.2 MIL
P Eddie Carlson 0.57 ARI
stealofhome is offline   Reply With Quote
Old 04-07-2019, 02:21 AM   #698
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
Achievements, June through October 1938

MLB Owner Changes:
Philadelphia Phillies sold from Yerik Gregory to Sam Spencer

MLB Career Milestones:

No-Hitters/Perfect Games:
Giraldo Garza, Kane County, A - 5K, 3BB
Jimmy Ulloa, San Antonio, AA - 7K, 5BB
Johnny Dougherty, Boise, A- - 9K, 1BB
Josiah Owens, Akron, AA - 3K, 2BB
Name:  ShawCalvani.PNG
Views: 77
Size:  38.9 KB
Shaw Calvani, Ogden, R - 9K, 0BB - PERFECT GAME

15+ Strikeout Games:
Millard Dougals, Peoria, A - 15K

Hitting Streaks Ended:
Yancey Middleton, Colorado Springs, AAA - 28G
Takashi Koganemaru, Southern Maryland, IND - 27G
Fred Westbrook, Tampa Bay Devil Rays, MLB - 33G
Fred Westbrook, Tampa Bay Devil Rays, MLB - 34G

Westbrook had three games of no hits scattered within 14 games between his 33 and 34 game streaks.
Dylan Reid, Charlotte, AAA - 31G
Will Doguape, Ogden, R - 27G
stealofhome is offline   Reply With Quote
Old 04-07-2019, 02:22 AM   #699
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 MLB Playoffs

The Detroit Tigers win their first World Series. That leaves 10 teams with no championship yet.
Attached Images
Image 
stealofhome is offline   Reply With Quote
Old 04-07-2019, 06:51 PM   #700
stealofhome
Hall Of Famer
 
stealofhome's Avatar
 
Join Date: Apr 2014
Posts: 2,282
Blog Entries: 1
1938 MLB Award Winners

Name:  CurtScott1938.PNG
Views: 49
Size:  50.6 KB
AL MVP: Curt Scott, RF, Detroit Tigers - 5.1 WAR, 147 wRC+, -3.0 ZR

Name:  LeandroQuiroz1938.PNG
Views: 51
Size:  57.4 KB
NL MVP: Leandro Quiroz, 1B, Los Angeles Dodgers - 6.7 WAR, 149 wRC+, 12.0 ZR

Name:  JamesClay1938.PNG
Views: 48
Size:  46.2 KB
AL Top Pitcher: James Clay, RHP, Boston Red Sox - 6.1 WAR, 81 FIP-, 1.7 K/BB

Name:  LucasRoe1938.PNG
Views: 94
Size:  44.8 KB
NL Top Pitcher: Lucas Roe, LHP, San Diego Padres - 7.0 WAR, 78 FIP-, 1.3 K/BB

AL Rookie of the Year: Simon Sheffield, LHP, Toronto Blue Jays - 3.7 WAR, 78 FIP-, 1.4 K/BB
NL Rookie of the Year: Anthony Taubman, 2B, Atlanta Braves - 5.3 WAR, 122 wRC+, 12.3 ZR
stealofhome is offline   Reply With Quote
Reply

Bookmarks

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -4. The time now is 10:36 AM.

 

Major League and Minor League Baseball trademarks and copyrights are used with permission of Major League Baseball. Visit MLB.com and MiLB.com.

Officially Licensed Product – MLB Players, Inc.

Out of the Park Baseball is a registered trademark of Out of the Park Developments GmbH & Co. KG

Google Play is a trademark of Google Inc.

Apple, iPhone, iPod touch and iPad are trademarks of Apple Inc., registered in the U.S. and other countries.

COPYRIGHT © 2023 OUT OF THE PARK DEVELOPMENTS. ALL RIGHTS RESERVED.

 

Powered by vBulletin® Version 3.8.10
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Copyright © 2020 Out of the Park Developments