In rsquaredacademy/report: Generate Reports from Rsquared Academy Packages

knitr::opts_chunk$set(echo = FALSE)
suppressWarnings(suppressMessages(library(dplyr, quietly = TRUE)))

RFM Analysis

rfm_result

Heat Map

rfm_heatmap(rfm_result)

Bar Chart

rfm_bar_chart(rfm_result)

Histogram

rfm_histograms(rfm_result)

Customers by Orders

rfm_order_dist(rfm_result)

Scatter Plots

Recency vs Monetary Value

rfm_rm_plot(rfm_result)

Frequency vs Monetary Value

rfm_fm_plot(rfm_result)

Recency vs Frequency

rfm_rf_plot(rfm_result)

Segmentation

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)
segments

Median Recency

rfm_plot_median_recency(segments)

Median Frequency

rfm_plot_median_frequency(segments)

Median Monetary Value

rfm_plot_median_monetary(segments)

rsquaredacademy/report documentation built on Sept. 29, 2019, 12:14 a.m.