R/batsmanPerfHomeAway.R

In cricketr: Analyze Cricketers and Cricket Teams Based on ESPN Cricinfo Statsguru

##########################################################################################
# Designed and developed by Tinniam V Ganesh
# Date : 29 Jun 2015
# Function: batsmanPerfHomeAway
# This plots the batsman's performance in home versus abroad
#
###########################################################################################
batsmanPerfHomeAway <- function(file,name="A Hitter") {
    
    
    ha <- NULL
    playersp <- clean(file)
    home <- filter(playersp,ha==1)
    away <- filter(playersp,ha==2)
    
    
    home$venue="Home"
    away$venue="Overseas"
    homeAway <- rbind(home,away)
    atitle <- paste(name,"- Runs-Home & overseas")
    
    # Create boxplots
    boxplot(Runs~venue,data=homeAway,col=c("blue","green"),xlab="Match venue",
            ylab="Runs scored", main=atitle)
    
    
    a <- dim(home)
    b <- dim(away)
    
    
    par(mar=c(9,7,2,2))
    val1 <- paste(a[1],"Home venue")
    val2 <- paste(b[1], "Overseas")
    vals <- list(val1,val2)
    legend(x="top", legend=vals, lty=c(1,1),   
           lwd=c(7,7),col=c("blue","green"),bty="n")
    
    mtext("Data source-Courtesy:ESPN Cricinfo", side=1, line=4, adj=1.0, cex=1, col="blue")  
    
}