pitches_scatterplot <- function(pitch_table,batter_id,year){
  require(ggplot2)
  edited_pitch_table = pitch_table
  edited_pitch_table = edited_pitch_table[edited_pitch_table$pitch_des != 'Automatic Ball',]
  adj_sz_bot = sort(edited_pitch_table$y[edited_pitch_table$bat_id ==batter_id & edited_pitch_table$year == year & edited_pitch_table$pitch_res=='C'])[3]
  adj_sz_top = tail(sort(edited_pitch_table$y[edited_pitch_table$bat_id ==batter_id & edited_pitch_table$year == year & edited_pitch_table$pitch_res=='C']),3)[1]
  adj_sz_left = sort(edited_pitch_table$x[edited_pitch_table$bat_id ==batter_id & edited_pitch_table$year == year & edited_pitch_table$pitch_res=='C'])[3]
  adj_sz_right = tail(sort(edited_pitch_table$x[edited_pitch_table$bat_id ==batter_id & edited_pitch_table$year == year & edited_pitch_table$pitch_res=='C']),3)[1]

  ggplot(edited_pitch_table[edited_pitch_table$bat_id ==batter_id & edited_pitch_table$year == year,], aes(x, y))+
  geom_point(aes(color=pitch_res))+
  geom_rect(aes(xmin = adj_sz_left, xmax = adj_sz_right, ymin = adj_sz_bot, ymax = adj_sz_top), color='grey20', fill=NA)+
  xlim(0,250)+
  ylim(0,250)
}