New plots sometimes wrong way around, fixed

pegasystems · Sep 27, 2023 · ab02b16 · ab02b16
1 parent f648ce6
commit ab02b16
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/r/R/plots.R b/r/R/plots.R
@@ -798,7 +798,7 @@ plotBinningLift <- function(binning, useSmartLabels = T) # TODO consider adding
   setorder(binning, -BinIndex)
 
   if (useSmartLabels) {
-    plt <- ggplot(binning, aes(Lift-1, factor(BinIndex)))
+    plt <- ggplot(binning, aes(Lift-1, factor(BinIndex, levels = binning$BinIndex)))
   } else {
     plt <- ggplot(binning, aes(Lift-1, BinSymbol))
   }