R/Nats/catchfield.R

In myeomans/discstats:

source('C:/Users/Mike/Google Drive/Frisbee/Nats/plotprep.R')
source('C:/Users/Mike/Google Drive/Frisbee/Nats/drawfield.R')

for (P in 1:length(PLAYERS)){
  for (V in 1:length(VIEWS)){
    png(paste("plots/", PLAYERS[[P]]@name, " CATCH ", VIEWS[[V]]@name, ".png", sep=""), width=800, height=1500)
    par(mfrow=c(1,1))
    #THIS IS AN INDEX OF WHICH ROWS CORRESPOND TO PLAYER P's THROWS
    CATCHES<-which((Play$recieverId==PLAYERS[[P]]@pID)&VIEWS[[V]]@cut)
    CCODE<-1+ #COLOR CODES: 1=COMPLETION, 2=TO, 3=GOAL
      1*(Play[CATCHES,]$drop)+
      2*(Play[CATCHES,]$score)
    ################################################
    drawfield("catch", PLAYERS[[P]]@name, VIEWS[[V]]@name) #BLANK BACKGROUND W/ TITLES
    points(EZdist2~LRdist2,     
           data=Play[CATCHES,],
           col=COLOURS[CCODE],
           cex=3, lwd=2, xpd=TRUE)
    points(EZdist~LRdist,   
           data=Play[CATCHES,],
           col=COLOURS[CCODE],
           cex=2, lwd=2, pch=20, xpd=TRUE)
    segments(x0=Play[CATCHES,]$LRdist,
             x1=Play[CATCHES,]$LRdist2,
             y0=Play[CATCHES,]$EZdist,
             y1=Play[CATCHES,]$EZdist2,
             col=COLOURS2[CCODE],
             lwd=1, lty=2, xpd=TRUE)
  dev.off()} 
print(P)}