In andykrause/FBB30x30: 30x30 Fantasy Baseball Description and Analysis

knitr::opts_chunk$set(echo = FALSE)

  library(magrittr)
  load(file = file.path('C:/Code/sportsQuant/FBB30x30', 'output', 'fordraft.rdata'))

Team Tiers

| Tier 1 | Tier 2 | Tier 3 | Tier 4 | | :-----: | :-----: | :-----: | :------: | | BOS | STL | OAK... | SF... | | CLE | ATL | PIT... | CWS... | | NYY | MIL | TB | MIA | | PHI | CHC | TEX | BAL | | WSH | ...CIN | ARI | DET | | HOU | ...MIN | LAA | | | LAD | ...NYM |...KC | | | COL | ...TOR | ...SEA | | | | ...SD | |

Team Fill In

| Team | Player | | Team | Player | | Team | Player | | :-----: | :-------------------: | :-----: | :-------------------: | :-----: | :-------------------: | | | | | | | | | BAL | ___ | CWS | __ | HOU | ___ | | | | | | | | | BOS | ___ | MIN | __ | LAA | __ | | | | | | | | | NYY | ___ | KC | __| OAK | ___ | | | | | | | | | TB | ___ | CLE | __| SEA | __| | | | | | | | | TOR | ___ | DET | __| TEX | ___ | | | | | | | | | PHI | ___ | MIL | __| SF | __ | | | | | | | | | ATL | ___ | STL | __| LAD | ___ | | | | | | | | | NYM | ___ | CIN | __| SD | __ | | | | | | | | | WSH | ___ | PIT | __| COL | ___ | | | | | | | | | MIA | ___ | CHC | __| ARI | ___ | | | | | | | |

\pagebreak

Hold Targets

• ARI: Bradley/Hirano
• DET: Jimenez
• HOU: Pressly
• MIA: Romo/Steckenrider
• PIT: Kela
• SD: Stammen/Wintgenter
• SF: Watson/Dyson/Smith/Melancon
• TB: Roe/Castillo
• TEX: Chavez
• TOR: Tepera

Sleeper Targets

• F. Meija - C - SD
• V. Robles - OF - WSH
• W. Adames - 2B/SS - TOR
• L. Gurriel - 2B/SS - TOR
• B. Lowe - 2B - TB
• J. Candelario - 3B - DET
• C. Pinder - 1B/2B - OAK
• M. Pineda - SP - MIN
• C. Paddack - SP - SD
• M. Strahm - SP - SD
• F. Peralta - SP - MIL
• B. Woodruff - SP - MIL
• E. Lauer - SP - SD
• J. Luchesi - SP - SD
• T. Richards - SP - MIA
• B. Keller - SP - KC
• C. Smith - SP - MIA
• P. Lopez - SP - MIA

\pagebreak

Catchers

  knitr::kable(bpos[['C']] %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

\pagebreak

1B

  knitr::kable(bpos[['1B']] %>% dplyr::filter(rrv > -.82)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

2B

  knitr::kable(bpos[['2B']] %>% dplyr::filter(rrv > -1)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

\pagebreak

SS

  knitr::kable(bpos[['SS']] %>% dplyr::filter(rrv > -1) %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

3B

  knitr::kable(bpos[['3B']] %>% dplyr::filter(rrv > -.9)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

\pagebreak

LF

  knitr::kable(bpos[['LF']] %>% 
                 dplyr::filter(rrv > -.29) %>% 
                 dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

\pagebreak

CF

  knitr::kable(bpos[['CF']] %>% dplyr::filter(rrv > -.97) %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

\pagebreak

RF

  knitr::kable(bpos[['RF']] %>% dplyr::filter(rrv > -.33)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

DH

  knitr::kable(bpos[['DH']] %>% dplyr::filter(rrv > -1)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

SP

  knitr::kable(ppos[['SP']] %>% dplyr::filter(rrv > -1)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak

RP

  knitr::kable(ppos[['RP']] %>% dplyr::filter(rrv > -.74)  %>% dplyr::select(-c(adp, pos)) %>%
                 dplyr::mutate(player = substr(player, 1, 17)))

\pagebreak \pagebreak

  knitr::kable(full_df[1:350, ])

\pagebreak \pagebreak

i <- 1
knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

\pagebreak

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

knitr::kable(team_[[i]], format = 'latex')
i <- i + 1

andykrause/FBB30x30 documentation built on Dec. 29, 2021, 10:06 a.m.