R/rysuj_gestosc.R

In byrolew/SuperFarmerMAPA: Super Farmer

#' @title Rysowanie wykresu gestosci
#'
#' @description Funkcja rysuje wykres gestosci wynikow gry w Super Farmera
#'
#' @rdname rysyj_gestosc
#'
#' @author Hanna Kranas, Alicja Gosiewska, Agnieszka Ciepielewska
#'
#' @import ggplot2

rysuj_gestosc <- function(dane){
  dane <- data.frame(dane, SuperFarmerMAPA::najszybsza, SuperFarmerMAPA::najwolniejsza)
  p<-ggplot2::ggplot(dane) +
    ggplot2::geom_density(ggplot2::aes(SuperFarmerMAPA::najszybsza), colour = 'firebrick1', fill = "firebrick1", alpha=0.1, show.legend=TRUE)+
    ggplot2::geom_density(ggplot2::aes(SuperFarmerMAPA::najwolniejsza), colour = 'green3', fill = "green3", alpha=0.1,show.legend=TRUE)+
    ggplot2::geom_density(ggplot2::aes(dane), colour="gray7", alpha=0, size = 1.25,show.legend=TRUE)+
    ggplot2::theme_bw()+
    ggplot2::xlab("Czas trwania gry")+
    ggplot2::xlim(c(0,150))+
    ggplot2::ylab("Gestosc")+
    ggplot2::labs(title="Porownanie gestosci czasu gry")+
    guides(fill=FALSE,coulour = FALSE)+
    theme(panel.border = element_blank())
    #ggplot2::scale_colour_manual(name = 'Strategia', values =c('badana'='gray7','najszybsza'='firebrick1','najwolniejsza'='green3'))
  return(p)
}