R/Tore_Spielverlauf_Mannschaft.R

In maxxthur/handball.analytica:

#' Title
#'
#' @param Mannschaft
#' @param Data
#'
#' @return
#' @export
#'
#' @examples
Tore_Spielminute_Mannschaft <- function(Team, Data) {

  Tore_Mannschaft <- Data[[3]] %>%
    dplyr::filter(Verein==Team) %>%
    dplyr::group_by(Datum) %>%
    dplyr::mutate(Spielabschnitt=as.numeric(substr(Spielminute, 1,1))+1) %>%
    dplyr::count(Spielabschnitt)

  Mean_Tore_Mannschaft <- mean(Data[[1]] %>%
                                   dplyr::filter(Mannschaft==Team) %>%
                                   dplyr::group_by(Datum) %>%
                                   dplyr::summarise(Tore=sum(Tore)) %>% .$Tore)

  VC_Tore_Mannschaft <- sd(Data[[1]] %>%
                               dplyr::filter(Mannschaft==Team) %>%
                               dplyr::group_by(Datum) %>%
                               dplyr::summarise(Tore=sum(Tore)) %>% .$Tore)/mean(Data[[1]] %>%
                                                                                   dplyr::filter(Mannschaft==Team) %>%
                                                                                   dplyr::group_by(Datum) %>%
                                                                                   dplyr::summarise(Tore=sum(Tore)) %>% .$Tore)

  Enddaten <- data.table::data.table("1"=0, "2"=0, "3"=0, "4"=0, "5"=0, "6"=0)

  for(i in (1:length(unique(Tore_Mannschaft$Datum)))) {
    Gegn <- as.character(unique(Data[[1]] %>%
                                  dplyr::filter(Datum==unique(Tore_Mannschaft$Datum)[i] & Mannschaft==Team) %>%
                                  .$Gegner))

    Mean_Gegentore_Gegner <- mean(Data[[1]] %>%
                                    dplyr::filter(Gegner==Gegn) %>%
                                    dplyr::group_by(Datum)  %>%
                                    dplyr::summarise(Gegentore=sum(Tore)) %>%
                                    .$Gegentore)

    VC_Gegentore_Gegner <- sd(Data[[1]] %>%
                                dplyr::filter(Gegner==Gegn) %>%
                                dplyr::group_by(Datum)  %>%
                                dplyr::summarise(Gegentore=sum(Tore)) %>%
                                .$Gegentore)/Mean_Gegentore_Gegner


    Tore_erzielt_Mannschaft <- Tore_Mannschaft %>% dplyr::filter(Datum==unique(Tore_Mannschaft$Datum)[i])
    Tore_erzielt_Mannschaft$n <- (Tore_erzielt_Mannschaft$n/sum(Tore_erzielt_Mannschaft$n))*(((Mean_Tore_Mannschaft+Mean_Gegentore_Gegner)*(VC_Gegentore_Gegner/VC_Tore_Mannschaft))/2)

    for(j in (1:nrow(Tore_erzielt_Mannschaft))) {
      if(Tore_erzielt_Mannschaft$Spielabschnitt[j]==1) {
        Enddaten$`1` <- Enddaten$`1`+Tore_erzielt_Mannschaft[j,]$n
      } else if(Tore_erzielt_Mannschaft$Spielabschnitt[j]==2) {
        Enddaten$`2` <- Enddaten$`2`+Tore_erzielt_Mannschaft[j,]$n
      } else if(Tore_erzielt_Mannschaft$Spielabschnitt[j]==3) {
        Enddaten$`3` <- Enddaten$`3`+Tore_erzielt_Mannschaft[j,]$n
      } else if(Tore_erzielt_Mannschaft$Spielabschnitt[j]==4) {
        Enddaten$`4` <- Enddaten$`4`+Tore_erzielt_Mannschaft[j,]$n
      } else if(Tore_erzielt_Mannschaft$Spielabschnitt[j]==5) {
        Enddaten$`5` <- Enddaten$`5`+Tore_erzielt_Mannschaft[j,]$n
      } else {
        Enddaten$`6` <- Enddaten$`6`+Tore_erzielt_Mannschaft[j,]$n
      }
    }
  }
  Enddaten <- as.data.frame(t(Enddaten))
  ggplot2::ggplot(Enddaten, ggplot2::aes(x=rownames(Enddaten), y=Enddaten$V1)) +
    ggplot2::geom_col(fill="dark green") +
    ggplot2::theme(panel.grid.major = ggplot2::element_blank(), panel.grid.minor = ggplot2::element_blank(), panel.background = ggplot2::element_blank(), axis.line = ggplot2::element_line(colour = "black"))+
    ggplot2::xlab("Spielabschnitt") +
    ggplot2::ylab("Torgefährlichkeit") +
    ggplot2::ggtitle(label=paste("Torgefährlichkeit ", Team))
    }