bug removed in fun_gg_boxplot when having a single color in dot.plot argument

cute_little_R_functions.R

@@ -10240,7 +10240,7 @@ fun_gg_boxplot <- function(
                 data1$dot.color <- factor(data1$dot.color, labels = dot.color) # do not use labels = unique(dot.color). Otherwise, we can have green1 green2 when dot.color is c("green", "green")
             }else if(length(dot.color) > 1 & length(dot.color) == length(data1[, dot.categ])){
                 data1 <- data.frame(data1, dot.color = dot.color, stringsAsFactors = TRUE)
-            }else if(length(dot.color)== 1L & length(dot.categ.class.order) > 1){ # to deal with single color
+            }else if(length(dot.color)== 1L){ # to deal with single color. Warning: & length(dot.categ.class.order) > 1 removed because otherwise, the data1 is not with dot.color column when length(dot.categ.class.order) == 1
                 data1 <- data.frame(data1, dot.color = dot.color, stringsAsFactors = TRUE)
             }
             dot.color <- as.character(unique(data1$dot.color[order(data1[, dot.categ])])) # reorder the dot.color character vector
@@ -11372,7 +11372,6 @@ fun_gg_boxplot <- function(
-
 # add density
 # rasterise all kind: https://cran.r-project.org/web/packages/ggrastr/vignettes/Raster_geoms.html
 # log not good: do not convert as in boxplot