R/relativeRunsFreqPerf.R

In tvganesh/pkg: The cricketr package can be used to analyze crickers based on ESPN Cricinfo Statsguru

##########################################################################################
# Designed and developed by Tinniam V Ganesh
# Date : 30 Jun 2015
# Function: relativeRunsFreqPerf
# This function computes and plots the run frequencies of a list of batsman
#
###########################################################################################

# Overall performance used for comparing relative performance of batsman
relativeRunsFreqPerf <- function(frames, names) {

    col1 <- rainbow(length(frames))
    for (i in 1:length(frames)) {
        
        # Create run ranges of 10s
        g <- seq(from=5,to=395,by=10)
        
        # Compute the percent in each run bucket
        batsman <- clean(frames[[i]])
        
        # Divide batting into groups of 20 runs
        f <- cut(batsman$Runs, breaks=seq(from=0,to=400,by=10))
        
        # Create a table
        m <- table(f)
        
        # Compute percentage
        percentRuns <- (m/sum(m))*100
       
        
        pR <- as.data.frame(percentRuns)
        
        #Plot for the entire list
        if(i==1) {
            plot(g,pR$Freq, cex=0.8, xlab="Runs", ylab = "Run frequency Percentages (%)", type="l",
                 lty=1, main = "Relative runs freq (%) vs Runs", ylim=c(0,50),lwd=2)
        }
        lines(g,pR$Freq,col=col1[i], lwd=2.5,lty=1,type="l")
    }
    
    type = rep(1,length(frames))
    width = rep(2.5,length(frames))
    legend(x="right",legend=names, lty=type,   
           lwd=width,col=col1,bty="n")
    mtext("Data source-Courtesy:ESPN Cricinfo", side=1, line=4, adj=1.0, cex=0.8, col="blue")
}