##########################################################################################
# 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.