fixed issue that if categories where factors, the dots would not show…

fixed issue that if categories where factors, the dots would not show…

Author: sepro

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: loreplotr
 Type: Package
 Title: Draw logistic regression plots in R (Title Case)
-Version: 0.2.0
+Version: 0.2.1
 Author: Sebastian Proost
 Maintainer: Sebastian Proost <sebastian.proost@gmail.com>
 Description: More about what it does (maybe more than one line)

NAMESPACE

@@ -8,6 +8,7 @@ import(effects)
 import(ggplot2)
 import(nnet)
 import(tidyr)
+importFrom(dplyr,mutate)
 importFrom(magrittr,"%>%")
 importFrom(stats,anova)
 importFrom(stats,predict)

R/loreplotr.R

@@ -133,6 +133,7 @@ plot_area <- function(df, x, y, draw_dots=TRUE, dots_shape=21, dots_fill="white"
 #' @return ggplot2 plot
 #' @importFrom magrittr %>%
 #' @import ggplot2
+#' @importFrom dplyr mutate
 #' @examples
 #' library(dplyr)
 #' library(loreplotr)
@@ -146,6 +147,7 @@ loreplotr <- function(df, x, y, draw_dots=TRUE, dots_shape=21, dots_fill="white"
   validate_input(df, x, y)
 
   g = df %>%
+    mutate(across(c(y), ~as.character(.))) %>% # Force the categories to be characters (required for adding dots)
     plot_area(x, y, draw_dots = draw_dots, dots_shape=dots_shape, dots_fill=dots_fill, dots_colour=dots_colour, dots_size=dots_size, dots_alpha=dots_alpha)
 
   return(g)