Fix density plot

tesselle · Dec 18, 2024 · 69a66f4 · 69a66f4
1 parent 1cbb78c
commit 69a66f4
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 7 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -58,7 +58,7 @@ plot.LogRatio <- function(x, ...,
     border <- list(...)$border %||% graphics::par("col")
   } else {
     grp <- group_split(x)
-    border <- color(group_names(x))
+    border <- color(group_levels(x))
   }
   k <- length(grp)
 

diff --git a/inst/examples/ex-density.R b/inst/examples/ex-density.R
@@ -7,7 +7,4 @@ coda <- as_composition(kommos, groups = 1)
 clr <- transform_clr(coda)
 
 ## Density plot
-plot(clr, by = NULL, flip = TRUE)
-
-## Use ceramic types for grouping
 plot(clr, flip = TRUE)
diff --git a/man/plot.Rd b/man/plot.Rd