diff --git a/R/DESCRIPTION b/R/DESCRIPTION index 0b4bf0263..d76c06bba 100644 --- a/R/DESCRIPTION +++ b/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", , "gufeng@meta.com", c("cre", "aut")), person("Igor", "Skokan", , "igorskokan@meta.com", c("aut")), diff --git a/R/R/plots.R b/R/R/plots.R index d043f6ffe..8f94e6e05 100644 --- a/R/R/plots.R +++ b/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"), diff --git a/R/R/transformation.R b/R/R/transformation.R index 5bb4d98f0..d7ffbf3f3 100644 --- a/R/R/transformation.R +++ b/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%", diff --git a/R/man/Robyn.Rd b/R/man/Robyn.Rd index e2712bd9c..d0d9f095d 100644 --- a/R/man/Robyn.Rd +++ b/R/man/Robyn.Rd @@ -2,8 +2,8 @@ % Please edit documentation in R/imports.R \docType{package} \name{Robyn} -\alias{Robyn} \alias{Robyn-package} +\alias{Robyn} \title{Robyn MMM Project from Meta Marketing Science} \description{ Robyn is an automated Marketing Mix Modeling (MMM) code. It aims to reduce human