> ggplot(data=edited_atbat_table[edited_atbat_table$park_id == 2756 & edited_atbat_table$year == 2017,], aes(x=250 - hit_x,y= 250 - hit_y))+
+     geom_point(aes(color=battedball_cd))+
+     xlim(0,250)+
+     ylim(0,250)+
+     labs(title='Coca-Cola Field Batted Balls, 2017',subtitle='Source: MiLB Pitch Data')
Warning message:
Removed 1476 rows containing missing values (geom_point).