diff --git a/cute_little_R_functions.R b/cute_little_R_functions.R
index 388ad99767c13a9931fabc27c7491125a14fa095..69ee7f087c5f02032355ea60a8591e1b401bc3d5 100755
--- a/cute_little_R_functions.R
+++ b/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
diff --git a/fun_gg_boxplot.docx b/fun_gg_boxplot.docx
index f5cce728d0179fda733cd54adf8fc9f5a16ef09a..e2ece13f9d6a10dd18eb33fee73de2ac25a6237a 100755
Binary files a/fun_gg_boxplot.docx and b/fun_gg_boxplot.docx differ