Market Basket Analysis

#Market Basket Analysis

Instalar paquetes y llamar librerías

install.packages(“plyr”) library(plyr) install.packages(“Matrix”) library(Matrix) install.packages(“arulesViz”) library(arulesViz) install.packages(“arules”) library(arules) install.packages(“datasets”) library(datasets)

importar base de datos

file.choose() bd_limpia <- read.csv(“C:\Users\lffr1\OneDrive\Documents\Abarrotes_Limpio.csv”)

Ordenar de menor a mayor los tickets

bd_limpia <- bd_limpia[order(bd_limpia$F.Ticket),] head(bd_limpia) tail(bd_limpia)

Extraer productos por ticket

basket <- ddply(bd_limpia, c(“F.Ticket”), function(bd_limpia)paste(bd_limpia, collapse = “,”))

Eliminar número de tikets

basket$F.Ticket <- NULL

Renombrar el nombre de la columna marca

colnames(basket) <- c(“Marca”)

Exportar basket

write.csv(basket,“basket.scv” ,quote =False, rownames =FALSE)

Importar transacciones

File.choose() tr <- read.transactions()

Generar reglas de asociación

reglas_asociación <- aprior(tr,parameter=list(supp=0.001,conf=0.2, maxlen=10)) summary(reglas_asociación) inspect(reglas_asociación)

reglas_asociación <- aprior(tr,parameter=list(by=“confidence”,decreasing=TRUE) summary(reglas_asociación) inspect(reglas_asociación)

top10reglas <- head(reglas_asociación, n=10, by=“Confidence”, decreasing=TRUE) plot(top10reglasn, method=“graph”, engine=“htmlwidget”)

Estrategia de Negocio -Asignar marcas cercanas en el anaquel:Salvo y Fabuloso -Promocion en Reym, Pinol, Queso/Jamón/Mayonesa, Zero,light,Fanta -Realizar Bussiness Case para caso de venta de sandwiches preparados