Generates plots for customers, orders, revenue and average order value for each segment.

rfm_plot_segment_summary(
  x,
  metric = NULL,
  sort = FALSE,
  ascending = FALSE,
  flip = FALSE,
  print_plot = TRUE
)

Arguments

x

An object of class rfm_segment_summary.

metric

Metrics to be visualized.

sort

logical; if TRUE, sort metrics.

ascending

logical; if TRUE, sort metrics in ascending order.

flip

logical; if TRUE, creates horizontal bar plot.

print_plot

logical; if TRUE, prints the plot else returns a plot object.

Examples

analysis_date <- as.Date('2006-12-31')
rfm_result <- rfm_table_order(rfm_data_orders, customer_id, order_date,
revenue, analysis_date)

segment_names <- c("Champions", "Loyal Customers", "Potential Loyalist",
  "New Customers", "Promising", "Need Attention", "About To Sleep",
  "At Risk", "Can't Lose Them", "Lost")

recency_lower <- c(4, 2, 3, 4, 3, 2, 2, 1, 1, 1)
recency_upper <- c(5, 5, 5, 5, 4, 3, 3, 2, 1, 2)
frequency_lower <- c(4, 3, 1, 1, 1, 2, 1, 2, 4, 1)
frequency_upper <- c(5, 5, 3, 1, 1, 3, 2, 5, 5, 2)
monetary_lower <- c(4, 3, 1, 1, 1, 2, 1, 2, 4, 1)
monetary_upper <- c(5, 5, 3, 1, 1, 3, 2, 5, 5, 2)

segments <- rfm_segment(rfm_result, segment_names, recency_lower,
recency_upper, frequency_lower, frequency_upper, monetary_lower,
monetary_upper)

segment_overview <- rfm_segment_summary(segments)
rfm_plot_segment_summary(segment_overview)

rfm_plot_segment_summary(segment_overview, sort = TRUE, ascending = TRUE)

rfm_plot_segment_summary(segment_overview, sort = TRUE)

rfm_plot_segment_summary(segment_overview, flip = TRUE)