#Instalar paquetes y llamar librerías
install.packages(“plyr”) library(plyr) install.packages(“Matrix”) library(Matrix) install.packages(“arules”) library(arules) install.packages(“arulesViz”) library(arulesViz) install.packages(“datasets”) library(datasets)
file.choose() bd_limpia = read.csv(“/Users/gabrielmedina/Downloads/abarrotes.csv”)
#Ordenar de menor a mayor los tickets
bd_limpia = bd_limpia[order(bd_limpia$F.Ticket),] head(bd_limpia)
#Extraer productos por ticket
basket = ddply(bd_limpia, c(“F.Ticket”),function(bd_limpia)paste(bd_limpia$Marca,collapse=“,”))
#Eliminar número de tickets
basket$F.Ticket = NULL
#Reemplazar el nombre de la columna colnames(basket) = c(“Marca”)
#Exportar basket write.csv(basket,“basket.csv”,quote = FALSE,row.names= FALSE)
#Importar transacciones file.choose() tr=read.transactions(“/Users/gabrielmedina/basket.csv”, format=“basket”, sep=“,”)
#Generar reglas de asociación reglas_asociacion = apriori(tr, parameter=list(supp=0.001,conf=0.2,maxlen=10)) summary(reglas_asociacion) inspect(reglas_asociacion)
reglas_asociacion = sort(reglas_asociacion, by=“confidence”, decreasing=TRUE) summary(reglas_asociacion) inspect(reglas_asociacion)
top10reglas = head(reglas_asociacion, n=10, by=“confidence”) plot(top10reglas, method=“graph”, engine = “htmlwidget”)
#Estrategias de negocio #1. Asignar marcas cercanas en el anaquel: Salvo y Fabuloso #2 Promocion en Reyma, Pinol, queso/jamon/mayonesa #3 Realizar Business Case para venta de sandwiches preparados