Update R/visualization_functions.R

R/visualization_functions.R

@@ -36,7 +36,7 @@ hitter_percentiles <- function(df, batter, season = NULL) {
 
   season_summary_df <- hitter_stats %>%
     { if (!is.null(season)) dplyr::filter(., Season == season) else . } %>%
-    dplyr::filter(PA >= 50) %>%
+    dplyr::filter(PA >= 5) %>%
     dplyr::transmute(
       xwOBA = xwOBA,
       xBA = xBA,
@@ -331,7 +331,7 @@ value_percentiles <- function(hit_war, batter, season) {
     return(blank_percentile_plot("Value"))
   }
 
-  hit_comp_idx <- season_hit_war$PA >= 100
+  hit_comp_idx <- season_hit_war$PA >= 5
   if (!any(hit_comp_idx, na.rm = TRUE)) hit_comp_idx <- season_hit_war$PA >= 50
   if (!any(hit_comp_idx, na.rm = TRUE)) hit_comp_idx <- season_hit_war$PA >= 25
   if (!any(hit_comp_idx, na.rm = TRUE)) hit_comp_idx <- !is.na(season_hit_war$PA)
@@ -1646,13 +1646,13 @@ value_percentiles_pitcher <- function(pitcher, pit_war, df, season) {
   pitcher_split <- cbind(pitcher_split, pitch_split_pitches)
 
   season_pitcher_stuff <- pitcher_stats %>%
-    dplyr::filter(Season == season, BF >= 50)
+    dplyr::filter(Season == season)
 
   if (nrow(season_pitcher_stuff) == 0) {
     return(blank_percentile_plot("Value"))
   }
 
-  pit_comp_idx <- season_pit_war$IP >= 20
+  pit_comp_idx <- season_pit_war$IP >= 3
   if (!any(pit_comp_idx, na.rm = TRUE)) pit_comp_idx <- season_pit_war$IP >= 10
   if (!any(pit_comp_idx, na.rm = TRUE)) pit_comp_idx <- season_pit_war$IP >= 5
   if (!any(pit_comp_idx, na.rm = TRUE)) pit_comp_idx <- !is.na(season_pit_war$IP)