utilizes the order of x whensorting = "none" #223

NEWS.md

@@ -26,7 +26,7 @@
 
 ## Minor changes
 
-- Sorting can be now disabled in `ggdotchart()` using the option `sorting = "none"` (#115).
+- Sorting can be now disabled in `ggdotchart()` using the option `sorting = "none"` (#115, #223).
 - New argument `weight` added in `gghistogram()` for creating a weighted histogram (#215)
 - Now `ggscaterhist()` takes into account the argument `position` in `margin.params` when marginal plot is a histogram (#286). 
 - `ggbarplot()` enhanced to better handle the creation of dodged bar plots combined with jitter points ([@aherholt, #176](https://github.com/kassambara/ggpubr/issues/282))

R/ggdotchart.R

@@ -162,7 +162,6 @@ ggdotchart_core <- function(data, x, y, group = NULL,
 
   if(rotate & sorting == "descending") sorting <- "ascending"
   else if(rotate & sorting == "ascending") sorting <- "descending"
-
   if(sorting != "none"){
     if(is.null(group)){
       if(sorting == "descending")
@@ -176,9 +175,10 @@ ggdotchart_core <- function(data, x, y, group = NULL,
       else if(sorting == "ascending")
         data <- arrange(data, !!!syms(c(group, y)))
     }
+    data[, x] <- factor(data[, x], levels = unique(as.vector(data[, x])))
   }
 
-  data[, x] <- factor(data[, x], levels = unique(as.vector(data[, x])))
+  if(!is.factor(data[, x])) data[, x] <- as.factor(data[, x])
 
   p <- ggplot(data, create_aes(list(x = x, y = y)))