Kleines Upsi mit aes und ggplot2

R/engine_breg.R

@@ -640,8 +640,8 @@ engine_breg <- function(x,
               # Make a plot
               g <- ggplot2::ggplot(data = o, ggplot2::aes(x = partial_effect)) +
                 ggplot2::theme_classic(base_size = 18) +
-                ggplot2::geom_ribbon(aes(ymin = q05, ymax = q95), fill = "grey90") +
-                ggplot2::geom_line(aes(y = mean)) +
+                ggplot2::geom_ribbon(ggplot2::aes(ymin = q05, ymax = q95), fill = "grey90") +
+                ggplot2::geom_line(ggplot2::aes(y = mean)) +
                 ggplot2::facet_wrap(. ~ variable, scales = "free") +
                 ggplot2::labs(x = "", y = "Partial effect")
               print(g)

R/engine_gdb.R

@@ -661,7 +661,7 @@ engine_gdb <- function(x,
             if(plot){
               g <- ggplot2::ggplot(data = out, ggplot2::aes(x = partial_effect)) +
                 ggplot2::theme_classic() +
-                ggplot2::geom_line(aes(y = mean)) +
+                ggplot2::geom_line(ggplot2::aes(y = mean)) +
                 ggplot2::facet_wrap(. ~ variable, scales = "free") +
                 ggplot2::labs(x = "", y = "Partial effect")
               print(g)

R/engine_glm.R

@@ -522,7 +522,7 @@ engine_glm <- function(x,
               # Make a plot
               g <- ggplot2::ggplot(data = pp, ggplot2::aes(x = partial_effect)) +
                 ggplot2::theme_classic() +
-                ggplot2::geom_line(aes(y = mean)) +
+                ggplot2::geom_line(ggplot2::aes(y = mean)) +
                 ggplot2::facet_wrap(. ~ variable, scales = "free") +
                 ggplot2::labs(x = "", y = "Partial effect")
               print(g)

R/engine_glmnet.R

@@ -644,7 +644,7 @@ engine_glmnet <- function(x,
               # Make a plot
               g <- ggplot2::ggplot(data = pp, ggplot2::aes(x = partial_effect)) +
                 ggplot2::theme_classic() +
-                ggplot2::geom_line(aes(y = mean)) +
+                ggplot2::geom_line(ggplot2::aes(y = mean)) +
                 ggplot2::facet_wrap(. ~ variable, scales = "free") +
                 ggplot2::labs(x = "", y = "Partial effect")
               print(g)

R/engine_inlabru.R

@@ -1153,8 +1153,8 @@ engine_inlabru <- function(x,
             if(plot){
               g <- ggplot2::ggplot(data = o, ggplot2::aes(x = partial_effect)) +
                 ggplot2::theme_classic() +
-                ggplot2::geom_ribbon(aes(ymin = lower, ymax = upper), fill = "grey90") +
-                ggplot2::geom_line(aes(y = mean)) +
+                ggplot2::geom_ribbon(ggplot2::aes(ymin = lower, ymax = upper), fill = "grey90") +
+                ggplot2::geom_line(ggplot2::aes(y = mean)) +
                 ggplot2::facet_wrap(. ~ variable, scales = "free") +
                 ggplot2::labs(x = "", y = "Partial effect")
               print(g)

R/engine_xgboost.R

@@ -762,7 +762,7 @@ engine_xgboost <- function(x,
               # Make a plot
               g <- ggplot2::ggplot(data = pp, ggplot2::aes(x = partial_effect)) +
                 ggplot2::theme_classic() +
-                ggplot2::geom_line(aes(y = mean)) +
+                ggplot2::geom_line(ggplot2::aes(y = mean)) +
                 ggplot2::facet_wrap(. ~ variable, scales = "free") +
                 ggplot2::labs(x = "", y = "Partial effect")
               print(g)

R/utils-bart.R

@@ -196,8 +196,8 @@ bart_partial_effect <- function (model, x.var = NULL, equal = FALSE,
     # Construct overall plot.
     g <- ggplot2::ggplot(data = out, ggplot2::aes(x = partial_effect)) +
       ggplot2::theme_classic() +
-      ggplot2::geom_ribbon(aes(ymin = q05, ymax = q95), fill = "grey90") +
-      ggplot2::geom_line(aes(y = mean)) +
+      ggplot2::geom_ribbon(ggplot2::aes(ymin = q05, ymax = q95), fill = "grey90") +
+      ggplot2::geom_line(ggplot2::aes(y = mean)) +
       ggplot2::facet_wrap(. ~ variable, scales = "free") +
       ggplot2::labs(x = "", y = "Partial effect")
     print(g)