fixed bug in parameter use and doc in label_outlier

abusjahn · Nov 24, 2023 · 98c94f0 · 98c94f0
1 parent bfc18c1
commit 98c94f0
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/plots.R b/R/plots.R
@@ -238,8 +238,9 @@ ggcormat <- function(cor_mat, p_mat = NULL,
 #' @return A ggplot object, allowing further styling.
 #'
 # ' @examples
+# todo: group by facet variables
 #' @export
-label_outliers <- function(plotbase, xvar, #yvar, labelvar,
+label_outliers <- function(plotbase, labelvar, #xvar, #yvar,
                            coef=1.5, nudge_x=0, nudge_y=0,
                            color="darkred", size=3, hjust=0) {
   if(!requireNamespace("ggrepel", quietly = TRUE)) {
@@ -253,6 +254,7 @@ label_outliers <- function(plotbase, xvar, #yvar, labelvar,
     str_replace('^.+\\"(.+)\\".*',"\\1")
   plotbase + 
     ggrepel::geom_text_repel(data=. %>% 
+                               # todo: group by facet variables
                                group_by(!!sym(xvar)) %>%  
                                filter(!!sym(yvar) %in% 
                                         boxplot.stats(!!sym(yvar), 

diff --git a/man/label_outliers.Rd b/man/label_outliers.Rd