add ggplot2 prefix (#860)

Fixes #859

Author: donyunardi

R/tm_a_pca.R

@@ -611,7 +611,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
               )
 
             cols <- c(getOption("ggplot2.discrete.colour"), c("lightblue", "darkred", "black"))[1:3]
-            elbow_plot <- ggplot2::ggplot(mapping = aes_string(x = "component", y = "value")) +
+            elbow_plot <- ggplot2::ggplot(mapping = ggplot2::aes_string(x = "component", y = "value")) +
               ggplot2::geom_bar(
                 ggplot2::aes(fill = "Single variance"),
                 data = dplyr::filter(elb_dat, metric == "Proportion of Variance"),

R/tm_g_bivariate.R

@@ -893,7 +893,7 @@ bivariate_ggplot_call <- function(x_class,
     } else {
       plot_call <- reduce_plot_call(
         plot_call,
-        quote(ggplot2::geom_histogram(bins = 30, aes(y = ggplot2::after_stat(density)))),
+        quote(ggplot2::geom_histogram(bins = 30, ggplot2::aes(y = ggplot2::after_stat(density)))),
         quote(ggplot2::geom_density(ggplot2::aes(y = ggplot2::after_stat(density)))),
         quote(ggplot2::ylab("Density"))
       )

R/tm_g_distribution.R

@@ -814,7 +814,7 @@ srv_distribution <- function(id,
           )
         } else if (length(s_var) != 0 && length(g_var) == 0) {
           substitute(
-            expr = ggplot2::ggplot(ANL, aes(dist_var_name, col = s_var_name)) +
+            expr = ggplot2::ggplot(ANL, ggplot2::aes(dist_var_name, col = s_var_name)) +
               ggplot2::geom_histogram(
                 position = "identity", ggplot2::aes(y = ggplot2::after_stat(m_type), fill = s_var),
                 bins = bins_var, alpha = 0.3

R/tm_variable_browser.R

@@ -715,7 +715,7 @@ plot_var_summary <- function(var,
       var <- if (isTRUE(remove_NA_hist)) as.vector(stats::na.omit(var)) else var
       ggplot2::ggplot(data.frame(var), ggplot2::aes(x = forcats::fct_infreq(as.factor(var)))) +
         ggplot2::geom_bar(
-          stat = "count", aes(fill = ifelse(is.na(var), "withcolor", "")), show.legend = FALSE
+          stat = "count", ggplot2::aes(fill = ifelse(is.na(var), "withcolor", "")), show.legend = FALSE
         ) +
         ggplot2::scale_fill_manual(values = c("gray50", "tan"))
     }