R/bowlDismissal.R

In statsguRu: Extract, Visualize and Analyze Cricket Statistics from ESPNCricinfo's Statsguru

###################################################################################################################################
#' Gets a Players's Wickets Summary (whilst Bowling)
#'
#' This function scraps exclusive dismissal summary (as a bowler) info from Statsguru and returns a dataframe
#' @param PlayerID ESPNCricinfo Player ID.
#' @param MatchType Type of Match Played (1 for Test; 2 for ODI; 3 for T20I ; 11 for All)
#' @return Returns DataFrame containing complete Wickets Summary of a Bowler
#' @export
#' @examples
#' sachin = getWicketsSummary(35320,11)

getWicketsSummary = function(PlayerID,MatchType){
  url = paste("http://stats.espncricinfo.com/ci/engine/player/",PlayerID,".html?class=",MatchType,";template=results;type=bowling;;view=dismissal_summary",sep="");
  htmltab::htmltab(url,which = 4,rm_nodata_rows = FALSE)
}

###################################################################################################################################

###################################################################################################################################
#' Splits Wickets Summary data into different categories
#'
#' This function takes in "Wickets Summary" dataframe  and returns a list comprising data segregated into different categories that can inferred from a Players's Bowling Summary.
#' @param data Output of getWicketsSummary().
#' @param MatchType Type of Match Played (1 for Test; 2 for ODI; 3 for T20I ; 11 for All)
#' @return Returns a list comprising data segregated into different categories of Wickets Summary statistics
#' @export
#' @examples
#' sachin = getWicketsSummary(35320,1)
#' sachin1 = splitWicketsSummary(sachin,1)
#' dhoni = getWicketsSummary(28081,2)
#' dhoni1 = splitWicketsSummary(dhoni,2)
#' kohli = getWicketsSummary(253802,3)
#' kohli1 = splitWicketsSummary(kohli,3)

splitWicketsSummary = function(data,MatchType){

  a=c();
  for (i in 1:nrow(data)) {
    if(is.na(data[i,1]))
    {
      a=append(a,i)
    }
  }
  if((MatchType==1) || (MatchType==2) || (MatchType==3))
  {

    batsmanType=data[1:a[1]-1,]
    batsmanPos=data[(a[1]+1):(a[2]-1),]
    batsmanRunsInt = data[(a[2]+1):(a[3]-1),]
    batsmanDisType = data[(a[3]+1):nrow(data),]

  }

  temp = list("batsmanType"=batsmanType,"batsmanPos"=batsmanPos,"batsmanRunsInt"=batsmanRunsInt,"batsmanDisType"=batsmanDisType)
  return(temp)


}

###################################################################################################################################

#' Plots a pie chart of Dismissal Type Summary of a Bowler.
#'
#' This function takes in output of splitDismissalSummary and plots the Dismissal Type Summary of a Bowler as a pie chart.
#' @param data Output of splitWicketsSummary().
#' @return Plots a pie chart of Dismissal Type Summary of a Bowler.
#' @export
#' @examples
#' sachin = getWicketsSummary(35320,1)
#' sachin1 = splitWicketsSummary(sachin,1)
#' dispBowlerDismissals(sachin1)

dispBowlerDismissals =function(data)
{
  x = as.numeric(data$batsmanDisType$Dis)
  l = round(100*x/sum(x), 1)
  l = paste(l,"%",sep = "")
  pie3D(x,labels = l,radius = 1,main="Distribution of Dismissals",mar = c(1,4,4,10));
  legend("topright", as.vector(data$batsmanDisType$Grouping), cex = 1,fill = rainbow(length(data$batsmanDisType$Dis)),xpd = TRUE,inset=c(-0.55,-0.05));

}