Update legend labels in plot_intro and plot_missing

Author: boxuancui

R/plot_intro.R

@@ -44,9 +44,11 @@ plot_intro <- function(data, geom_label_args = list(), title = NULL, ggtheme = t
     scale_y_continuous(labels = percent) +
     scale_fill_discrete("Dimension") +
     coord_flip() +
-    labs(x = "Metrics", y = "Value") +
-    guides(fill = guide_legend(override.aes = aes(label = "")))
-  geom_label_args_list <- list("mapping" = aes(label = percent(value)))
+    labs(x = "Metrics", y = "Value")
+  geom_label_args_list <- list(
+    "mapping" = aes(label = percent(value)),
+    "show.legend" = FALSE
+  )
   output <- output +
     do.call("geom_label", c(geom_label_args_list, geom_label_args))
   ## Plot object

R/plot_missing.R

@@ -72,9 +72,11 @@ plot_missing <- function(data,
     geom_bar(stat = "identity") +
     bar_fill +
     coord_flip() +
-    xlab("Features") + ylab("Missing Rows") +
-    guides(fill = guide_legend(override.aes = aes(label = "")))
-  geom_label_args_list <- list("mapping" = aes(label = paste0(round(100 * pct_missing, 2), "%")))
+    xlab("Features") + ylab("Missing Rows")
+  geom_label_args_list <- list(
+    "mapping" = aes(label = paste0(round(100 * pct_missing, 2), "%")),
+    "show.legend" = FALSE
+  )
   output <- output +
     do.call("geom_label", c(geom_label_args_list, geom_label_args))
   ## Plot object