R/plot_spider_indicStats.R

In MelodyPremaillon/valwoe: Statistical validation of susceptibility maps builted with woe method

#' @title Spiderplot of statistical descriptors
#'
#' @description Plot statistical descriptors
#'
#' @param df_trainvalid dataframe of postprob frequency
#' @param df_compl (optional)
#'
#' @return ggplot object
#' @import fmsb
#' @export


plot_spider_indicStats <- function(df_trainvalid, df_compl=data.frame(POST_PROB=0)){

  df_indic_stat<- create_df_indic_stat(df_trainvalid, df_compl)

  df_indic_stat <- rbind(rep(1,5), rep(0,5), df_indic_stat)

  radarchart(df_indic_stat,
             vlabels = c("AUC \n(set entrainement)", "AUC \n(set validation)",
                         "Taux de reconnaissance \n(set entrainement)", "Taux de reconnaissance \n(set validation)",
                         "confiance \nstatistique"),
             vlcex = 0.8,
             axislabcol = "grey20")

}