Change the number of bins in dot plot for the FeatureStatPlot function

R/SCP-plot.R

@@ -4183,7 +4183,7 @@ ExpressionStatPlot <- function(exp.data, meta.data, stat.by, group.by = NULL, sp
       y_min_use <- layer_scales(p)$y$range$range[1]
     }
     if (plot_type == "dot") {
-      bins <- cut(dat$value, breaks = seq(y_min_use, y_max_use, length.out = 15), include.lowest = TRUE)
+      bins <- cut(dat$value, breaks = seq(y_min_use, y_max_use, length.out = 8), include.lowest = TRUE)
       bins_median <- sapply(strsplit(levels(bins), ","), function(x) median(as.numeric(gsub("\\(|\\)|\\[|\\]", "", x)), na.rm = TRUE))
       names(bins_median) <- levels(bins)
       dat[["bins"]] <- bins_median[bins]