R/futbin_plot.R

In danielredondo/rfutbin: Searchs FIFA Ultimate Team players to get stats and prices in Futbin

#' futbin_plot makes an interactive radar plot of the stats of the players.
#'
#' @export futbin_plot
#' @importFrom magrittr %>%
#' @param df dataframe generated with columns `pace`, `sho`, `pas`, `dri`, `def`, `phy`,
#' `name`, `rating` and `version`.
#' This dataframe can be obtained from function \code{\link{futbin_search}}.
#' @param gk Optional. If `TRUE`, the labels of the plot are the main stats
#' for goalkeepers: diving, handling, kicking, reflexes, speed and position.
#' @return An interactive radar plot of the stats.
#' @examples
#'
#' \dontrun{
#' # Plot comparing Van Dijk and Messi
#' players <- futbin_search(name = c("Van Dijk", "Lionel Messi"), version = "Rare")
#' futbin_plot(players)
#'
#' # Plot comparing goalkeepers
#' some_goalkeepers <- futbin_search(name = c("De Gea", "Kepa", "Hugo Lloris"), version = "Rare")
#' futbin_plot(some_goalkeepers, gk = TRUE)
#' }

futbin_plot <- function(df, gk = FALSE){
  df_radar <- data.frame(
    stats = c("Pace", "Shooting", "Passing", "Dribbling", "Defending", "Physical"),
    t(cbind(df$pac, df$sho, df$pas, df$dri, df$def, df$phy))
  )

  if(gk == TRUE) df_radar$stats <- c("Diving", "Handling", "Kicking", "Reflexes", "Speed", "Positioning")

  colnames(df_radar) <- c("stats", paste0(df$name, " (", df$rating, ", ", df$version, ")"))

    radarchart::chartJSRadar(
      scores = df_radar,
      polyAlpha = 0,
      maxScale = 99,
      scaleLineWidth = 20
    )
}