In ds4ci/rfmr: Recency, Frequency, and Monetary tools in R

RFM is...

library(rfmr)
library(dplyr)
library(ggplot2)
library(tidyr)

Exmple Data Set

event_orders is ...

data(event_orders)
head(event_orders)

Converting raw order lines to RFM

RFM <- rfm(event_orders, "uid", "order_on", "value")
head(RFM)

Basic RFM Histogram

nbins <- 50
RFM_tidy <- RFM %>% 
  select(uid, Recency, Frequency, Monetary) %>% 
  gather(RFM, Value, -uid) %>% 
  arrange(uid)

ggplot(RFM_tidy, aes(Value)) +
  geom_histogram(bins = nbins) + 
  scale_x_log10() +
  # geom_freqpoly() +
  ggtitle("RFM Histograms for Event Orders data.", subtitle = "Note Log10 scale on X-axes") +
  facet_grid(. ~ RFM, scales = "free")

RFM_tidy %>% 
  filter(RFM == "Monetary", Value <= 18) %>% 
  group_by(Value) %>% 
  summarize(N = n()) %>% 
  ggplot(aes(Value)) +
  xlim(1, 10) +
  geom_histogram()