Plot woes — gg_woes • risk3r

Plot woes

Usage

gg_woes(
  woes,
  variable = "posprob",
  color_bar = "gray75",
  color_line = "#e22d36",
  ...
)

Arguments

woes: woes
variable: variable
color_bar: color_bar
color_line: color_line
...: ...

Examples


data("woes")

pps <- gg_woes(woes)
#> id_client (IV = 0.42%)
#> sex (IV = 2.60%)
#> marital_status (IV = 9.60%)
#> age (IV = 19.40%)
#> flag_res_phone (IV = 7.54%)
#> area_code_res_phone (IV = 4.17%)
#> payment_day (IV = 2.18%)
#> residence_type (IV = 0.72%)
#> months_in_residence (IV = 1.72%)
#> months_in_the_job (IV = 8.96%)
#> profession_code (IV = 6.18%)
#> personal_net_income (IV = 4.10%)
#> quant_add_cards (IV = 1.84%)

if(require(patchwork)){

  purrr::reduce(pps, `+`)  &
     ggplot2::theme(
       axis.text.x = ggplot2::element_text(size = 7),
       axis.text.y = ggplot2::element_text(size = 7)
       )

}
#> Loading required package: patchwork


gg_woes(woes, variable = "woe")
#> id_client (IV = 0.42%)
#> sex (IV = 2.60%)
#> marital_status (IV = 9.60%)
#> age (IV = 19.40%)
#> flag_res_phone (IV = 7.54%)
#> area_code_res_phone (IV = 4.17%)
#> payment_day (IV = 2.18%)
#> residence_type (IV = 0.72%)
#> months_in_residence (IV = 1.72%)
#> months_in_the_job (IV = 8.96%)
#> profession_code (IV = 6.18%)
#> personal_net_income (IV = 4.10%)
#> quant_add_cards (IV = 1.84%)
#> $id_client

#> 
#> $sex

#> 
#> $marital_status

#> 
#> $age

#> 
#> $flag_res_phone

#> 
#> $area_code_res_phone

#> 
#> $payment_day

#> 
#> $residence_type

#> 
#> $months_in_residence

#> 
#> $months_in_the_job

#> 
#> $profession_code

#> 
#> $personal_net_income

#> 
#> $quant_add_cards

#> 
gg_woes(woes, variable = "bin_iv")
#> id_client (IV = 0.42%)
#> sex (IV = 2.60%)
#> marital_status (IV = 9.60%)
#> age (IV = 19.40%)
#> flag_res_phone (IV = 7.54%)
#> area_code_res_phone (IV = 4.17%)
#> payment_day (IV = 2.18%)
#> residence_type (IV = 0.72%)
#> months_in_residence (IV = 1.72%)
#> months_in_the_job (IV = 8.96%)
#> profession_code (IV = 6.18%)
#> personal_net_income (IV = 4.10%)
#> quant_add_cards (IV = 1.84%)
#> $id_client

#> 
#> $sex

#> 
#> $marital_status

#> 
#> $age

#> 
#> $flag_res_phone

#> 
#> $area_code_res_phone

#> 
#> $payment_day

#> 
#> $residence_type

#> 
#> $months_in_residence

#> 
#> $months_in_the_job

#> 
#> $profession_code

#> 
#> $personal_net_income

#> 
#> $quant_add_cards

#>