fix: default plot color

R/rfm-ggplot.R

@@ -20,9 +20,9 @@ rfm_gg_heatmap <- function(mapdata, plot_title, xaxis_label, yaxis_label,
                         colours = brewer.pal(n = brewer_n, name = brewer_name),
                         name = legend_title)
 
-  
+
   return(p)
-  
+
 }
 
 #' @importFrom ggplot2 geom_bar ylim coord_flip geom_text position_dodge
@@ -165,8 +165,8 @@ rfm_gg_revenue_dist <- function(data, colors, legend_labels, flip,
 
   p <-
     ggplot(data, aes(fill = category, y = share, x = segment)) +
-    geom_bar(position = "dodge", stat = "identity") 
-    
+    geom_bar(position = "dodge", stat = "identity")
+
 
   p <-
     p +
@@ -179,7 +179,7 @@ rfm_gg_revenue_dist <- function(data, colors, legend_labels, flip,
     theme(legend.title = element_blank(),
           legend.position = "bottom",
           panel.background = element_rect(fill = NA),
-          axis.ticks = element_line(color = NA)) 
+          axis.ticks = element_line(color = NA))
 
 
   if (flip) {
@@ -248,7 +248,7 @@ rfm_gg_median <- function(data, bar_color, sort, ascending, flip, plot_title,
   }
 
   if (is.null(bar_color)) {
-    bar_color <- "blue"
+    bar_color <- "#0f1a34"
   }
 
   if (sort) {
@@ -336,7 +336,7 @@ rfm_gg_segment <- function(table, metric, print_plot) {
     theme(legend.position = "none")
 
   return(plot)
-  
+
 }
 
 rfm_gg_segment_scatter <- function(segments, x_data, y_data, plot_title,

R/rfm-plotly.R

@@ -327,18 +327,18 @@ rfm_plotly_median <- function(data, bar_color = NULL, sort = FALSE,
 
   if (is.null(yaxis_label)) {
     yaxis_label <- ycol
-  } 
+  }
 
   if (is.null(plot_title)) {
     plot_title <- paste(yaxis_label, " by Segment")
-  } 
+  }
 
   if (is.null(xaxis_label)) {
     xaxis_label <- "Segment"
-  } 
+  }
 
   if (is.null(bar_color)) {
-    bar_color <- "blue"
+    bar_color <- "#0f1a34"
   }
 
   if (flip) {