Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- > home_plate_y = tail(250 - sort(edited_atbat_table$hit_y[edited_atbat_table$park_id == 2756 & edited_atbat_table$battedball_cd == 'G' & edited_atbat_table$year == 2017]),10)[1] - 5
- > home_plate_x = 250 - mean(edited_atbat_table$hit_x[edited_atbat_table$park_id == 2756 & edited_atbat_table$year == 2017],na.rm=TRUE) - 3
- >
- > ggplot(data=edited_atbat_table[edited_atbat_table$park_id == 2756 & edited_atbat_table$year == 2017 & edited_atbat_table$event_cd == 23,], aes(x=250 - hit_x,y= 250 - hit_y))+
- + geom_point(aes(color=battedball_cd))+
- + xlim(0,250)+
- + ylim(0,250)+
- + geom_smooth(data=rbind(edited_atbat_table[edited_atbat_table$park_id == 2756 & edited_atbat_table$event_cd == 23 & !grepl('inside-the-park',edited_atbat_table$ab_des) & edited_atbat_table$year == 2017 & !(between(250 - edited_atbat_table$hit_x,50,200) & between(250-edited_atbat_table$hit_y,0,175)) & edited_atbat_table$hit_x != 1,c('hit_x','hit_y')],setNames(data.frame(matrix(c(0,250,150,125),nrow=2,ncol=2)), c("hit_x","hit_y"))), aes(x=250 - hit_x, y= 240 - hit_y), method = 'loess', se=FALSE, fullrange=TRUE, fill = NA, span=1, size=0.5, color='black')+
- + geom_segment(x=home_plate_x,y=home_plate_y,xend=home_plate_x+250,yend=home_plate_y+250)+
- + geom_segment(x=home_plate_x,y=home_plate_y,xend=home_plate_x-250,yend=home_plate_y+250)+
- + labs(title='Coca-Cola Field Batted Balls, 2017',subtitle='Source: MiLB Pitch Data')
- Warning messages:
- 1: Removed 1 rows containing non-finite values (stat_smooth).
- 2: Removed 1 rows containing missing values (geom_point).
Add Comment
Please, Sign In to add comment