R/score_most.R

In engsoccerdata: English and European Soccer Results 1871-2016

#' Team who has been involved in the most games of each scoreline
#'
#' @param df Results dataframe
#' @param score score
#' @return a dataframe with frequency of matches and team.
#' @importFrom magrittr "%>%"
#' @examples
#' score_most(england, "6-6")
#' score_most(england, "8-0")
#' score_most(england, "9-1")
#' @export

score_most<-function (df, score){

  score1<-n<-.<-key<-Date<-tier<-home<-team<-visitor<-hgoal<-vgoal<-goaldif<-FT<-Season<-division<-result<-maxgoal<-mingoal<-absgoaldif<-NULL

  temp<-strsplit(score,split="-")
  temp<-as.vector(unlist(temp[[1]]))
  score1<-paste(temp[2],temp[1],sep="-")

  df %>%
    dplyr::filter(FT == score | FT == score1) %>%
    dplyr::select(Season, home, visitor) %>%
    tidyr::gather(key, team, home:visitor) %>%
    dplyr::group_by(team)  %>%
    dplyr::tally() %>%
    dplyr::arrange(-n) %>%
    dplyr::filter(n==max(n))
}