Stealofhome's Fictional Feeder Leagues and MLB Extravaganza

[stealofhome]

Graham Griffith turned that POY into a 4 yr deal with the Brewers.


Johan Velez stayed in California and signed for 5 with the Giants.

[stealofhome]

The top 100 prospect list is the same at the top this year with Turk Robbins the top pitcher


and Vernon Conner the top batter.

[stealofhome]

Team 1:

SP Jeremy Brook (FOR) - 3-2, 2.20 ERA, 45.0 IP, 1.04 WHIP, 4.8 K/9, 1.7 WAR
SP Dave Cyr (STAN) - 3-1, 3.29 ERA, 41.0 IP, 0.90 WHIP, 6.1 K/9, 1.3 WAR
SP Damian Freiburger (VIL) - 2-2, 1.55 ERA, 40.2 IP, 1.03 WHIP, 3.3 K/9, 1.4 WAR
SP Justin Hooper (BC) - 4-0, 1.89 ERA, 38.0 IP, 0.97 WHIP, 6.6 K/9, 1.5 WAR
SP Jimmy Martin (SCG) - 3-0, 1.38 ERA, 39.0 IP, 1.31 WHIP, 3.9 K/9, 1.4 WAR
SP Georgi Rakov (FLA) - 4-0, 1.59 ERA, 34.0 IP, 0.82 WHIP, 5.8 K/9, 1.5 WAR
CL Blake Baylor (GAT) - 1-0, 5 SV, 0.00 ERA, 14.0 IP, 0.57 WHIP, 3.9 K/9, 0.3 WAR
CL Isidoro Muñoz (CSF) - 4-0, 2 SV, 1.26 ERA, 14.1 IP, 1.26 WHIP, 7.5 K/9, 0.6 WAR
C Colt Stewart (TAMU) - .384/.458/.616, 73 AB, 4 HR, 201 wRC+, 1.3 WAR
C Whitby Taylor (UNC) - .356/.466/.562, 73 AB, 1 HR, 179 wRC+, 1.0 WAR
1B Dylan Connor (TTU) - .333/.385/.583, 96 AB, 3 HR, 167 wRC+, 1.1 WAR
1B Travis Jensen (PENN) - .440/.495/.738, 84 AB, 6 HR, 237 wRC+, 1.8 WAR
2B George Gurevich (TEX) - .386/.411/.602, 88 AB, 2 HR, 2 SB, 177 wRC+, 1.3 WAR
2B Aarão Sousa (SJSU) - .321/.404/.506, 81 AB, 2 HR, 2 SB, 131 wRC+, 1.0 WAR
3B Noah Hamilton (MIA) - .414/.474/.598, 87 AB, 1 HR, 203 wRC+, 1.5 WAR (Injured)
SS K.J. Wright (BC) - .365/.408/.563, 96 AB, 169 wRC+, 1.7 WAR
LF Domenico De Los Santos (WV) - .402/.451/.576, 92 AB, 1 HR, 1 SB, 176 wRC+, 1.1 WAR
CF Mario Graham (FSU) - .337/.444/.554, 83 AB, 3 HR, 3 SB, 172 wRC+, 1.5 WAR
CF Alfred Bell (OK) - .300/.373/.489, 90 AB, 2 HR, 1 SB, 137 wRC+, 1.0 WAR
RF Ron Brown (TAMU) - .375/.486/.477, 88 AB, 1 HR, 1 SB, 180 wRC+, 1.2 WAR

Team 2:

SP Bryant Epps (MIS) - 3-0, 0.61 ERA, 44.1 IP, 0.74 WHIP, 4.1 K/9, 1.5 WAR
SP Damon Frio (ND) - 2-1, 3.27 ERA, 44.0 IP, 1.20 WHIP, 5.9 K/9, 1.4 WAR
SP Charlie Morris (NMSU) - 3-1, 3.29 ERA, 41.0 IP, 1.32 WHIP, 5.5 K/9, 1.5 WAR
SP Facundo Ross (MD) - 3-1, 1.93 ERA, 42.0 IP, 1.05 WHIP, 4.3 K/9, 1.5 WAR
SP Phil Trott (UA) - 3-1, 2.81 ERA, 32.0 IP, 1.19 WHIP, 5.3 K/9, 1.3 WAR
SP Skyler Wilkerson (MIS) - 2-2, 2.57 ERA, 35.0 IP, 1.00 WHIP, 5.7 K/9, 1.6 WAR
RP Augie Herrera (TUL) - 1-0, 1.20 ERA, 15.0 IP, 1.00 WHIP, 2.4 K/9, 0.3 WAR
CL Ash Jonak (MIN) - 1-0, 3 SV, 0.00 ERA, 13.1 IP, 1.05 WHIP, 2.7 K/9, 0.4 WAR
C Porfirio Felix (ILL) - .403/.500/.545, 77 AB, 1 HR, 179 wRC+, 1.1 WAR
C Michael Peters (FLA) - .351/.395/.481, 77 AB, 1 HR, 145 wRC+, 0.9 WAR
1B Jimeno Tompkins (MIS) - .411/.485/.600, 90 AB, 3 HR, 1 SB, 198 wRC+, 1.7 WAR
2B Riley Fritts (ARK) - .397/.450/.685, 73 AB, 4 HR, 5 SB, 215 wRC+, 1.3 WAR
2B Jared Sandlin (WSS) - .412/.490/.553, 85 AB, 2 HR, 1 SB, 188 wRC+, 1.1 WAR
3B Tom Green (MD) - .379/.450/.529, 87 AB, 169 wRC+, 1.3 WAR
SS Hudson Eppers (CLE) - .364/.431/.477, 88 AB, 1 HR, 1 SB, 157 wRC+, 1.1 WAR
SS Griffin Guay (DUK) - .379/.438/.474, 95 AB, 5 SB, 151 wRC+, 1.3 WAR
LF Enzo Jiles (FLA) - .355/.450/.473, 93 AB, 1 HR, 157 wRC+, 1.0 WAR
CF Peter Flower (BAY) - .346/.454/.531, 81 AB, 1 HR, 7 SB, 163 wRC+, 1.6 WAR
CF Rhys Sparrow (UCSB) - .306/.355/.565, 85 AB, 3 HR, 150 wRC+, 1.1 WAR
RF Anthony Walker (MIS) - .352/.448/.602, 88 AB, 2 HR, 168 wRC+, 1.0 WAR

[stealofhome]

Washington wins their first championship.

[stealofhome]

MLB Owner Changes:

MLB Career Milestones:
Matthew Jiles, Los Angeles Dodgers - 2500 H

No-Hitters/Perfect Games:
Naldo Morales, Nazareth Academy, IHSA - 7K, 2BB
Jacob Carling, Arkansas, NCAA - 3K, 6BB

15+ Strikeout Games:

Hitting Streaks Ended:
Domenico De Los Santos, West Virginia, NCAA - 26G
Jule Owens, West Michigan, A - 27G
Dylan Connor, Texas Tech, NCAA - 25G
Griffin Guay, Duke, NCAA - 33G
Bennett Powers, New Britain, IND - 25G

[stealofhome]

Noah Garcia, a high school bat, was taken first by the Rockies this year.


The top pitcher and college player was Carroll Watson.

Round 1, Pick 1 - Colorado Rockies: SS Noah Garcia, age 18
Round 1, Pick 2 - Baltimore Orioles: SP Carroll Watson, age 21
Round 1, Pick 3 - Chicago White Sox: SP Jim Chapman, age 18
Round 1, Pick 4 - Toronto Blue Jays: SP Simon Sheffield, age 21
Round 1, Pick 5 - San Francisco Giants: SP Chitleen Biswas, age 18
Round 1, Pick 6 - Atlanta Braves: 3B Noah Hamilton, age 21
Round 1, Pick 7 - Boston Red Sox: SP Damian Freiburger, age 21
Round 1, Pick 8 - Los Angeles Angels: SP James Petrillo, age 21
Round 1, Pick 9 - Los Angeles Dodgers: SP Emanuel Franceschini, age 21
Round 1, Pick 10 - Detroit Tigers: SS K.J. Wright, age 21
Round 1, Pick 11 - Minnesota Twins: CF Mario Graham, age 21
Round 1, Pick 12 - Pittsburgh Pirates: CF Jordan Rawl, age 18
Round 1, Pick 13 - Cincinnati Reds: RF Paul Harmon, age 21
Round 1, Pick 14 - Cleveland Indians: CF Nathanial Turkowski, age 18
Round 1, Pick 15 - Boston Red Sox: SP Terrence Mahan, age 18
Round 1, Pick 16 - Houston Astros: 3B Nick Shelton, age 18
Round 1, Pick 17 - Montreal Expos: RF Vince Dunlap, age 21
Round 1, Pick 18 - Seattle Mariners: RF Sam Unzueta, age 21
Round 1, Pick 19 - Philadelphia Phillies: LF Enzo Jiles, age 21
Round 1, Pick 20 - Montreal Expos: 3B Crew Hammonds, age 21
Round 1, Pick 21 - Florida Marlins: SP Timoteo Bosquet, age 21
Round 1, Pick 22 - Chicago Cubs: SP Georgi Rakov, age 21
Round 1, Pick 23 - New York Yankees: C Whitby Taylor, age 21
Round 1, Pick 24 - Kansas City Royals: C Rylan Page, age 21
Round 1, Pick 25 - New York Mets: SP Bill Collins, age 18
Round 1, Pick 26 - Texas Rangers: 3B Nick Hirschi, age 21
Round 1, Pick 27 - Tampa Bay Devil Rays: SS Josué Gonzalez, age 22
Round 1, Pick 28 - Arizona Diamondbacks: SP Flaminio Sanabria, age 21
Round 1, Pick 29 - Oakland Athletics: 3B Neil Sims, age 21
Round 1, Pick 30 - St. Louis Cardinals: CF Reading Watson, age 18

[stealofhome]

American League:

SP George Lincoln (TB) - 7-5, 2.84 ERA, 139.1 IP, 1.36 WHIP, 3.0 K/9, 3.4 WAR
SP Gabe Morton (SEA) - 8-6, 2.90 ERA, 152.0 IP, 1.24 WHIP, 5.0 K/9, 4.2 WAR
SP Matt Rex (CLE) - 10-2, 2.87 ERA, 141.0 IP, 1.16 WHIP, 4.2 K/9, 3.8 WAR
SP C.C. Roberts (LAA) - 7-10, 2.63 ERA, 164.0 IP, 1.28 WHIP, 4.9 K/9, 3.4 WAR
SP Danny Roy (OAK) - 10-5, 3.11 ERA, 141.2 IP, 1.28 WHIP, 2.9 K/9, 3.0 WAR
SP Victor Wade (DET) - 9-8, 3.54 ERA, 183.0 IP, 1.24 WHIP, 3.1 K/9, 2.9 WAR
RP Ezra Esposito (CHA) - 4-0, 3.03 ERA, 32.2 IP, 1.29 WHIP, 5.2 K/9, 0.6 WAR
RP Ira Woodward (TB) - 2-2, 19 SV, 2.43 ERA, 40.2 IP, 1.33 WHIP, 4.9 K/9, 0.9 WAR
CL Lincoln Kabler (NYY) - 0-1, 17 SV, 1.76 ERA, 41.0 IP, 1.27 WHIP, 4.0 K/9, 0.9 WAR
CL Joe Robinson (TOR) - 1-1, 8 SV, 1.48 ERA, 24.1 IP, 1.19 WHIP, 4.4 K/9, 0.8 WAR
C Eddie Lopp (CHA) - .294/.382/.411, 265 AB, 7 HR, 118 wRC+, 2.3 WAR
C Ethan Richards (TB) - .303/.383/.376, 218 AB, 2 HR, 105 wRC+, 1.4 WAR
1B Tebaldo Espinoza (DET) - .324/.417/.429, 340 AB, 6 HR, 131 wRC+, 1.9 WAR
1B Milan van Deuen (BOS) - .375/.444/.560, 293 AB, 8 HR, 167 wRC+, 3.1 WAR
2B Dylan Hale (TEX) - .329/.429/.458, 216 AB, 2 HR, 6 SB, 146 wRC+, 2.3 WAR (Injured)
2B Donaldo McClintock (TOR) - .289/.334/.409, 367 AB, 6 HR, 16 SB, 101 wRC+, 2.1 WAR
2B Esteban Moreno (CLE) - .321/.359/.418, 368 AB, 2 HR, 7 SB, 113 wRC+, 2.6 WAR (Injured)
3B Kai Meyerson (KC) - .313/.381/.498, 275 AB, 10 HR, 130 wRC+, 1.9 WAR
SS Jester Cole (TEX) - .320/.386/.418, 337 AB, 1 HR, 4 SB, 121 wRC+, 1.9 WAR
CF Cristian Bell (CLE) - .373/.400/.498, 410 AB, 2 HR, 21 SB, 138 wRC+, 4.3 WAR
CF Michal Delaney (CHA) - .322/.378/.428, 395 AB, 3 HR, 20 SB, 113 wRC+, 3.0 WAR
CF Christopher Judd (OAK) - .323/.412/.469, 350 AB, 9 HR, 19 SB, 149 wRC+, 3.8 WAR
CF Norm Priest (MIN) - .330/.371/.443, 415 AB, 19 SB, 119 wRC+, 2.4 WAR
CF Jax Slaughter (TB) - .252/.336/.409, 401 AB, 13 HR, 12 SB, 107 wRC+, 3.2 WAR
RF Don Sablan (NYY) - .314/.340/.481, 376 AB, 5 HR, 11 SB, 121 wRC+, 1.9 WAR

National League:

SP Alphonse Delaney (LAD) - 10-6, 2.95 ERA, 168.0 IP, 1.34 WHIP, 2.8 K/9, 2.9 WAR
SP Steve Flores (NYM) - 11-5, 3.05 ERA, 177.1 IP, 1.27 WHIP, 3.6 K/9, 3.1 WAR
SP Cristopher Guzman (MON) - 10-5, 2.14 ERA, 164.0 IP, 1.16 WHIP, 3.4 K/9, 3.4 WAR
SP John Kalinoski (ATL) - 11-8, 2.45 ERA, 183.2 IP, 1.27 WHIP, 3.8 K/9, 4.3 WAR
SP Kazuhiro Okabayashi (NYM) - 11-6, 2.90 ERA, 164.1 IP, 1.22 WHIP, 3.0 K/9, 3.5 WAR
SP Tony Willson (SD) - 8-9, 3.74 ERA, 175.2 IP, 1.47 WHIP, 3.7 K/9, 4.1 WAR
CL Romain Lelièvre (CIN) - 4-3, 25 SV, 2.00 ERA, 45.0 IP, 1.36 WHIP, 5.6 K/9, 1.3 WAR
CL Henri Marín (NYM) - 2-2, 25 SV, 1.13 ERA, 47.2 IP, 1.13 WHIP, 5.7 K/9, 0.9 WAR
CL C.J. Steiner (SF) - 2-4, 21 SV, 1.88 ERA, 43.0 IP, 1.37 WHIP, 6.5 K/9, 1.3 WAR
CL Preston Terrell (PHI) - 1-1, 14 SV, 1.26 ERA, 28.2 IP, 1.29 WHIP, 6.0 K/9, 0.7 WAR
C Ronnie Mellinger (ARI) - .310/.388/.415, 200 AB, 3 HR, 125 wRC+, 2.0 WAR
C Americo Sanz (ARI) - .331/.385/.446, 148 AB, 1 HR, 126 wRC+, 1.4 WAR
1B Atlas Darrow (STL) - .344/.411/.458, 378 AB, 6 HR, 140 wRC+, 2.5 WAR
1B Leandro Quiroz (LAD) - .302/.422/.560, 232 AB, 16 HR, 162 wRC+, 2.8 WAR (Injured)
2B Ezequias Flores (LAD) - .307/.344/.548, 345 AB, 12 HR, 4 SB, 140 wRC+, 2.7 WAR
3B Aidan Arrington (ARI) - .343/.390/.464, 321 AB, 4 HR, 139 wRC+, 2.5 WAR
3B Gilbert Mosca (FLA) - .315/.392/.433, 365 AB, 7 HR, 127 wRC+, 2.9 WAR
SS Shannon Gunn (MON) - .347/.401/.504, 363 AB, 4 HR, 2 SB, 153 wRC+, 3.8 WAR
SS Lester Taylor (FLA) - .315/.366/.522, 381 AB, 12 HR, 6 SB, 131 wRC+, 3.6 WAR
LF Art Bard (PIT) - .316/.369/.455, 389 AB, 9 HR, 11 SB, 125 wRC+, 3.6 WAR
CF Gunnar Nastasi (COL) - .336/.377/.469, 360 AB, 6 HR, 3 SB, 130 wRC+, 2.4 WAR (Injured)
CF Yuusuke Yasuda (CIN) - .270/.343/.361, 352 AB, 2 HR, 9 SB, 96 wRC+, 2.6 WAR
RF Harold Bach (COL) - .314/.411/.526, 325 AB, 14 HR, 155 wRC+, 2.9 WAR
RF Rick Dinh (MIL) - .406/.436/.553, 244 AB, 8 HR, 170 wRC+, 2.4 WAR (Injured)
RF Erik Hutchins (SD) - .321/.369/.511, 393 AB, 9 HR, 18 SB, 138 wRC+, 2.3 WAR

[stealofhome]

MLB Owner Changes:
New York Yankees were sold from Sam Hanzel Jr. to Larry McLendon

MLB Career Milestones:
R.J. Walsh, San Diego Padres - 2000 H
Reggie Veras, San Francisco Giants - 2000 H
Harold Bach, Colorado Rockies - 2000 H

No-Hitters/Perfect Games:
Vincent Gallimore, Jupiter, R- 5K, 1BB
Isaac Holloway, Biloxi, AA - 12K, 2BB
Bryan Blanton, Helena, R - 7K - PERFECT GAME
Vince Powers, York, IND - 2K, 1BB
Josiah Brooks, Carolina, A+ - 11K, 1BB

15+ Strikeout Games:
Connor Lewis, Down East, A+ - 15K

7 Hits:
Jaime Cruz, Erie, AA
Pete Lee, Danville, R

Hitting Streaks Ended:

Arnold White, Cincinnati Reds, MLB - 37G
White breaks Neal Worthington's record of 35 games that he had held for 24 years.
Zane Rivera, Colorado Rockies, MLB - 33G
Arlo Dickson, Hartford, AA - 29G
Anthony Walker, Surprise, R - 29G

[stealofhome]

The DRays go back to back

[stealofhome]

AL MVP: Gabe Morton, LHP, Seattle Mariners (2) - 7.4 WAR, 74 FIP-, 2.3 K/BB


NL MVP: John Kalinoski, RHP, Atlanta Braves - 7.1 WAR, 82 FIP-, 1.1 K/BB

AL Top Pitcher: Gabe Morton, LHP, Seattle Mariners (3) - 7.4 WAR, 74 FIP-, 2.3 K/BB

NL Top Pitcher: John Kalinoski, RHP, Atlanta Braves - 7.1 WAR, 82 FIP-, 1.1 K/BB

AL Rookie of the Year: Blake Gribler, LF, Texas Rangers - 3.7 WAR, 124 wRC+, 0.6 ZR
NL Rookie of the Year: J.R. Rood, SS, Chicago Cubs - 3.7 WAR, 81 wRC+, 23.0 ZR

[stealofhome]

Quite a few pitchers available, led by Jon McElroy.

[stealofhome]

Hasan Bustamante, LHP

Bustamante very nearly became a Chicago Cub as he was drafted by the team out of San Diego State, where he attended college. However, he failed to sign and returned in 1920 to be drafted by the Mariners. He went to 6 all-star games, won a gold glove, and was AL Division Series MVP. Most of Bustamante's career was spent with the Mariners but he did have a few good years with the Orioles and Athletics.

Career Stats: 3515.3 IP, 1015 BB, 1190 K, 3.66 FIP, 94 FIP-, 58.3 WAR, 65.9 JAWS


Marc Antony Torres, CF

Torres spent all but 13 games of his career with the Cardinals, hanging up the cleats at age 35. He won an MVP and four gold gloves and went to four all-star games. He was drafted 10th overall out of Tennessee in 1921 by the Mariners but failed to sign. Then in 1922 he was drafted 13th overall by the Cardinals and signed the very next day.

Career Stats: 7129 PA, 1843 H, 295 SB, .346 wOBA, 106 wRC+, 185.4 ZR, 42 WAR, 38.6 JAWS

[stealofhome]

Jon McElroy's new team is the San Diego Padres for 6 years.

[stealofhome]

Robbins and Conner are out, while


Ryder Fulmer (1935 2nd Round Pick), followed by three more pitchers, and


Noah Garcia - both of the Rockies - are the new top prospects.

[stealofhome]

Team 1:

position name war school
2B Marcus Carlin 2.1 SHP
SS Harrison Grant 1.93 SCB
P Wyatt Gregory 1.86 OK
CF Brandt Rountree 1.71 SJSU
P Nicky Waitman 1.64 UNC
P Spencer Johnson 1.57 ILL
P Chong-Il Sim 1.53 NMSU
CF Pablo Lopez 1.53 PENN
1B Dylan Connor 1.51 TTU
RF Hy Shumate 1.42 KEN
P R.J. Hawkins 1.38 UNM
CF Rhys Sparrow 1.35 UCSB
CF Louis Hayes 1.23 GH
LF Dave Killen 1.19 GH
3B Paxton Roe 1.16 DUK
C Luis Bello 1.16 WF
C Porfirio Felix 1.15 ILL
P Jeremiah Schwartz 1.14 TCU
P Connor Morris 0.91 WASH
P Evan Gardner 0.57 SJRS

Team 2:

position name war school
P Josh Brennan 1.51 WSS
P Acanda Subramanien 1.44 OSU
P Lauro Maisonet 1.41 VAN
P Facundo Ross 1.4 MD
P Vincentio Grdzelian 1.35 WF
CF J.R. Medina 1.32 MIA
CF Alfred Bell 1.29 OK
P Kamau Amos 1.26 OK
2B Anthony Taubman 1.26 WSU
3B Earnest Salas 1.25 PIT
SS Tyler Gerald 1.14 SMG
2B Derek Alfrego 1.11 SMG
2B Aarao Sousa 1.1 SJSU
C Michael Peters 1.05 FLA
1B Kyle Delano 1.02 FLA
C Kevin Tay 1 UCLA
LF Sam Kalashyan 0.93 VAN
RF Austin Magee 0.88 FLA
P Deshane Rogers 0.52 STAN
P Dell Weber 0.42 SFD

[stealofhome]

I've been thinking about how to automatically complete the all-star voting with the way I would prefer to do it instead of the way the game does it. This is what I have for the NCAA. It takes into account the WAR, WPA, and POT of each player (since feeder players don't have any national popularity):

#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 NCAA in current year
pas <- players_career_pitching_stats %>% 
  select(player_id, year, league_id,split_id, bf, ip, 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")

#Compute avg/sd of WPA, WAR, and POT weighted by batters faced
pwpaavg <- weighted.mean(pas$wpa, pas$bf)
pwaravg <- weighted.mean(pas$war, pas$bf)
ppotavg <- weighted.mean(pas$pot, pas$bf)
pwpasd <- sqrt(wtd.var(pas$wpa, weights = pas$bf))
pwarsd <- sqrt(wtd.var(pas$war, weights = pas$bf))
ppotsd <- sqrt(wtd.var(pas$pot, weights = pas$bf))

#z-scores for sp and rp
pas <- pas %>% 
  mutate(sprank = (wpa-pwpaavg)/pwpasd+2*((war-pwaravg)/pwarsd)+(pot-ppotavg)/ppotsd,
         rprank = 2*((wpa-pwpaavg)/pwpasd)+(war-pwaravg)/pwarsd+2*((pot-ppotavg)/ppotsd))

#select top 12 SP and top 4 RP
AS <- pas %>% 
  filter(gs!='0') %>% 
  select(player_id, name, sprank, war) %>% 
  arrange(desc(sprank)) %>% 
  top_n(12,sprank) %>% 
  mutate(pos="SP", team=c(1,2,1,2,1,2,1,2,1,2,1,2)) %>% 
  rename(rank = sprank)

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

#Filter batter data
bas <- 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", "position")], by = "player_id") %>% 
  merge(players_value[ , c("player_id", "pot")], by = "player_id")

#Compute avg/sd of WPA, WAR, and POT weighted by plate appearances
bwpaavg <- weighted.mean(bas$wpa, bas$pa)
bwaravg <- weighted.mean(bas$war, bas$pa)
bpotavg <- weighted.mean(bas$pot, bas$pa)
bwpasd <- sqrt(wtd.var(bas$wpa, weights = bas$pa))
bwarsd <- sqrt(wtd.var(bas$war, weights = bas$pa))
bpotsd <- sqrt(wtd.var(bas$pot, weights = bas$pa))

#z-scores for hitters
bas <- bas %>% 
  mutate(brank = (wpa-bwpaavg)/bwpasd+3*((war-bwaravg)/bwarsd)+(pot-bpotavg)/bpotsd)

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

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

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

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

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

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

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

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

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

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

#create team 1 table for export to forum
AS1 <- AS %>% 
  filter(team=='1') %>%
  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, school = abbr) %>% 
  arrange(desc(war))

#create team 2 table for export to forum
AS2 <- AS %>% 
  filter(team=='2') %>%
  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, school = abbr) %>% 
  arrange(desc(war))

#Create tables to use for in-game voting
bas <- AS %>% 
  filter(pos != 'SP' , pos != 'RP') %>% 
  merge(bas[ , c("player_id", "pa")], by = "player_id") %>%
  separate(name, c("first","last"), sep = " ") %>% 
  arrange(last) %>% 
  unite("name", c("first", "last"), sep = " ") %>% 
  select(name, team, pa)

pas <- AS %>% 
  filter(pos == 'SP' | pos == 'RP') %>% 
  merge(pas[ , c("player_id", "ip")], by = "player_id") %>%
  separate(name, c("first","last"), sep = " ") %>% 
  arrange(last) %>% 
  unite("name", c("first", "last"), sep = " ") %>% 
  select(name, team, ip)

View(bas)
View(pas)

#send team 1 and 2 tables to clipboard
#write_clip(AS1)
#write_clip(AS2)

[stealofhome]

Here's the code for selecting the MVP and POY for the high school leagues.

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 HS in current year and find rank
phs <- players_career_pitching_stats %>% 
  select(player_id, year, level_id, league_id, split_id, bf, gs, wpa, war) %>% 
  filter(level_id=='11' & 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 HS in current year and find rank
bhs <- players_career_batting_stats %>% 
  select(player_id, year, level_id, league_id, split_id, pa, wpa, war) %>% 
  filter(level_id=='11' & 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
hsmvp <- phs %>% 
  bind_rows(bhs) %>% 
  merge(leagues[ , c("league_id", "abbr")], by = "league_id") %>%
  arrange(abbr, desc(rank)) %>% 
  group_by(abbr) %>% 
  top_n(3, rank) %>% 
  select(name,position,abbr)

#POY award
hspoy <- phs %>% 
  merge(leagues[ , c("league_id", "abbr")], by = "league_id") %>%
  arrange(abbr, desc(rank)) %>% 
  group_by(abbr) %>% 
  top_n(3, rank) %>% 
  select(name,abbr)

[stealofhome]

Very similar to the way it is done for the high school leagues.

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)

[stealofhome]

Washington last year, Washington State this year.

[stealofhome]

MLB Owner Changes:

MLB Career Milestones:
Arnold White, Pittsburgh Pirates, MLB - 3000 H
John Button, Chicago Cubs, MLB - 2000 H

No-Hitters/Perfect Games:
Andy Shortridge, Carbondale, IHSA - 4K, 0 BB, 1ERR
Abdisalam Khalil, Temecula Valley, CIF - 2K, 2BB
Tom Swimmer, South Bend, A - 13K, 2BB

15+ Strikeout Games:

Hitting Streaks Ended:
Aaron Willis, Fond du Lac, WIAA - 32G
Dean Cusumano, Rose, NCHSAA - 27G
Rory Villarreal, Buffalo, AAA - 25G
Ben Vellines, Rochester, AAA - 25G
Cesar Luis Carlos, Tampa Bay Devil Rays, MLB - 28G
Rudolph Doherty, Santa Clara, NCAA - 30G
Garrett Camillo, Peshtigo, WIAA - 27G
Alfred Bell, Oklahoma, NCAA - 25G
Anthony Walker, Frisco, AA - 25G