Análise FRV - Frequência, Recência e Valor

Exemplo de análise FRV com 10 clientes

clientes <- data.frame(
  Cliente = paste("Cliente", 1:10),
  Frequencia = c(5, 12, 3, 8, 4, 7, 1, 10, 6, 9),
  Recencia = c(2, 5, 10, 3, 7, 4, 9, 2, 8, 1),
  Valor = c(500, 1200, 300, 800, 400, 700, 100, 1000, 600, 900)
)

Pontuação FRV

clientes$F_Pontuacao <- rank(-clientes$Frequencia)
clientes$R_Pontuacao <- rank(clientes$Recencia)
clientes$V_Pontuacao <- rank(-clientes$Valor)

Pontuação Total

clientes$FRV_Score <- clientes$F_Pontuacao + clientes$R_Pontuacao + clientes$V_Pontuacao

Exibindo o resultado

print(clientes[order(clientes$FRV_Score), ])

##       Cliente Frequencia Recencia Valor F_Pontuacao R_Pontuacao V_Pontuacao
## 8   Cliente 8         10        2  1000           2         2.5           2
## 10 Cliente 10          9        1   900           3         1.0           3
## 2   Cliente 2         12        5  1200           1         6.0           1
## 4   Cliente 4          8        3   800           4         4.0           4
## 6   Cliente 6          7        4   700           5         5.0           5
## 1   Cliente 1          5        2   500           7         2.5           7
## 9   Cliente 9          6        8   600           6         8.0           6
## 5   Cliente 5          4        7   400           8         7.0           8
## 3   Cliente 3          3       10   300           9        10.0           9
## 7   Cliente 7          1        9   100          10         9.0          10
##    FRV_Score
## 8        6.5
## 10       7.0
## 2        8.0
## 4       12.0
## 6       15.0
## 1       16.5
## 9       20.0
## 5       23.0
## 3       28.0
## 7       29.0

Criar as faixas de segmentação

faixas <- cut(clientes$FRV_Score, breaks = c(5, 10,15,20,25, 30), 
              include.lowest = TRUE)

Contar quantas notas há em cada faixa

contagem_faixas <- table(faixas)

Criar o gráfico de barras

barplot(contagem_faixas,
        col = c("lightblue", "lightgreen", "lightpink"),
        main = "Score FRV",
        xlab = "Faixas de Score",
        ylab = "Frequência")

Adicionar as quantidades nas barras

text(x = barplot(contagem_faixas), 
     y = contagem_faixas, 
     label = contagem_faixas, 
     pos = 3, cex = 0.8, col = "red")