fix: adstock plot warning on changing geom_text() to annotate()

R/DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Robyn
 Type: Package
 Title: Semi-Automated Marketing Mix Modeling (MMM) from Meta Marketing Science 
-Version: 3.12.0.9000
+Version: 3.12.0.9001
 Authors@R: c(
     person("Gufeng", "Zhou", , "[email protected]", c("cre", "aut")),
     person("Igor", "Skokan", , "[email protected]", c("aut")),

R/R/plots.R

@@ -473,7 +473,7 @@ robyn_onepagers <- function(
           geom_line(aes(color = .data$channel)) +
           facet_wrap(~ .data$channel) +
           geom_hline(yintercept = 0.5, linetype = "dashed", color = "gray") +
-          geom_text(aes(x = max(.data$x), y = 0.5, vjust = -0.5, hjust = 1, label = "Halflife"), colour = "gray") +
+          annotate("text", x = max(weibullCollect$x), y = 0.5, vjust = -0.5, hjust = 1, label = "Halflife", colour = "gray") +
           theme_lares(background = "white", legend = "none", grid = "Xx") +
           labs(
             title = paste("Weibull", wb_type, "Adstock: Flexible Rate Over Time"),

R/R/transformation.R

@@ -249,7 +249,7 @@ plot_adstock <- function(plot = TRUE) {
     p1 <- ggplot(geomCollect, aes(x = .data$x, y = .data$decay_accumulated)) +
       geom_line(aes(color = .data$theta_halflife)) +
       geom_hline(yintercept = 0.5, linetype = "dashed", color = "gray") +
-      geom_text(aes(x = max(.data$x), y = 0.5, vjust = -0.5, hjust = 1, label = "Halflife"), colour = "gray") +
+      annotate("text", x = max(geomCollect$x), y = 0.5, vjust = -0.5, hjust = 1, label = "Halflife", colour = "gray") +
       labs(
         title = "Geometric Adstock\n(Fixed decay rate)",
         subtitle = "Halflife = time until effect reduces to 50%",
@@ -290,9 +290,7 @@ plot_adstock <- function(plot = TRUE) {
       geom_line(aes(color = .data$scale)) +
       facet_grid(.data$shape ~ .data$type) +
       geom_hline(yintercept = 0.5, linetype = "dashed", color = "gray") +
-      geom_text(aes(x = max(.data$x), y = 0.5, vjust = -0.5, hjust = 1, label = "Halflife"),
-        colour = "gray"
-      ) +
+      annotate("text", x = max(weibullCollect$x), y = 0.5, vjust = -0.5, hjust = 1, label = "Halflife", colour = "gray") +
       labs(
         title = "Weibull Adstock CDF vs PDF\n(Flexible decay rate)",
         subtitle = "Halflife = time until effect reduces to 50%",