R/Zeitrafen_Spielverlauf_Spieler.R

In maxxthur/handball.analytica:

#' Title
#'
#' @param Name
#' @param Data
#'
#' @return
#' @export
#'
#' @examples
Zeitstrafen_Spielverlauf_Spieler <- function(Name, Data) {
  Spieler_Zeitstrafen <- Data[[4]] %>%
    dplyr::filter(Spieler==Name) %>%
    dplyr::mutate(Spielabschnitt=as.numeric(substr(Spielminute, 1, 1))+1)

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

  for(i in (1:nrow(Spieler_Zeitstrafen))) {
    if(Spieler_Zeitstrafen$Spielabschnitt[i]==1) {
      Enddaten$`1` <- Enddaten$`1`+1
    } else if (Spieler_Zeitstrafen$Spielabschnitt[i]==2) {
      Enddaten$`2` <- Enddaten$`2`+1
    } else if (Spieler_Zeitstrafen$Spielabschnitt[i]==3) {
      Enddaten$`3` <- Enddaten$`3`+1
    } else if (Spieler_Zeitstrafen$Spielabschnitt[i]==4) {
      Enddaten$`4` <- Enddaten$`4`+1
    } else if (Spieler_Zeitstrafen$Spielabschnitt[i]==5) {
      Enddaten$`5` <- Enddaten$`5`+1
    } else {
      Enddaten$`6` <- Enddaten$`6`+1
    }
  }

  Enddaten <- as.data.frame(t(Enddaten))
  Enddaten$V1 <- Enddaten$V1/sum(Enddaten$V1)
  ggplot2::ggplot(Enddaten, ggplot2::aes(x=rownames(Enddaten), y=Enddaten$V1)) +
    ggplot2::geom_col(fill="dark red") +
    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("Zeitstrafen") +
    ggplot2::ggtitle(label=paste("2 Minuten ", Name))
}