The dot-dot notation (..density..) was deprecated in ggplot2 3.4.0.

[malucalle]

We are using function ggpubr::ggarrange() in our package coda4microbiome.
Today we received the following warning.
Could you please give us some advice?

Thank you in advance,

Warning message:
The dot-dot notation (..density..) was deprecated in ggplot2 3.4.0.
i Please use after_stat(density) instead.
i The deprecated feature was likely used in the ggpubr package.
Please report the issue at https://github.com/kassambara/ggpubr/issues.
This warning is displayed once every 8 hours.
Call lifecycle::last_lifecycle_warnings() to see where this warning was generated.

Backtrace:
x

1. -coda4microbiome::coda_glmnet(x = x, y = y, nfolds = 4)
2. -coda4microbiome::plot_prediction(predictions, y, showPlots = showPlots)

3. \-ggpubr::ggarrange(...)
   

4.   \-purrr::map(...)
   

5.     \-purrr:::map_("list", .x, .f, ..., .progress = .progress)
   

6.       +-purrr:::with_indexed_errors(...)
   

7.       | \-base::withCallingHandlers(...)
   

8.       +-purrr:::call_with_cleanup(...)
   

9.       \-ggpubr (local) .f(.x[[i]], ...)
   

10.         \-cowplot::plot_grid(plotlist = plotlist, ...)
    

11.           \-cowplot::align_plots(...)
    

12.             \-base::lapply(...)
    

13.               \-cowplot (local) FUN(X[[i]], ...)
    

14.                 +-cowplot::as_gtable(x)
    

15.                 \-cowplot:::as_gtable.default(x)
    

16.                   +-cowplot::as_grob(plot)
    

17.                   \-cowplot:::as_grob.ggplot(plot)
    

18.                     \-ggplot2::ggplotGrob(plot)
    

19.                       +-ggplot2::ggplot_gtable(ggplot_build(x))
    

20.                       | \-ggplot2:::attach_plot_env(data$plot$plot_env)
    

21.                       |   \-base::options(ggplot2_plot_env = env)
    

22.                       +-ggplot2::ggplot_build(x)
    

23.                       \-ggplot2:::ggplot_build.ggplot(x)
    

24.                         \-ggplot2:::by_layer(...)
    

25.                           +-rlang::try_fetch(...)
    

26.                           | +-base::tryCatch(...)
    

27.                           | | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
    

28.                           | |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    

29.                           | |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
    

30.                           | \-base::withCallingHandlers(...)
    

31.                           \-ggplot2 (local) f(l = layers[[i]], d = data[[i]])
    

32.                             \-l$compute_aesthetics(d, plot)
    

33.                               \-ggplot2 (local) compute_aesthetics(..., self = self)
    

34.                                 \-ggplot2:::is_calculated_aes(aesthetics, warn = TRUE)
    

35.                                   \-base::vapply(...)
    

36.                                     \-ggplot2 (local) FUN(X[[i]], ...)
    

37.                                       \-ggplot2:::is_calculated(quo_get_expr(x), warn = warn)
    

38.                                         \-ggplot2:::deprecate_warn0("3.4.0", what, with, id = "ggplot-warn-aes-dot-dot")