🐛 Correct bug beta div if two sp same place

CmlMagneville · Oct 16, 2023 · 09a4e96 · 09a4e96
1 parent fe522ed
commit 09a4e96
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,7 @@
 # mFD (development version)
 * Fix bug:
   * Correct the sp.plot() fct when plotting one asb (pb with vertices aes)
+  * Correct the sp.plot() fct when several sp same place but only one as vert
 
 # mFD 1.0.5
 * Fix bug:

diff --git a/R/plot_multidim_layers.R b/R/plot_multidim_layers.R
@@ -452,6 +452,15 @@ sp.plot <- function(ggplot_bg,
     ggplot2::scale_size(limits = limits_relatw, range = range_size_relatw)
 
 
+  # Reorder the column with vertices information:
+  # To first plot sp and then vertices (if 2 species same place but one vert
+  # and the other not vert):
+  order_vert_levels <- c("no", "vert")
+  asb_sp_xywv$vert <- factor(as.character(asb_sp_xywv$vert), 
+                             levels = order_vert_levels)
+  asb_sp_xywv <- asb_sp_xywv[order(asb_sp_xywv$vert), ]
+
+
   # plot species as points with chosen shape, size and colors:
   ggplot_sp <- ggplot_sp +
     ggplot2::geom_point(data = asb_sp_xywv,