SUPER MERCADO MARKET BASKET ANALISIS

Market Basket Analysis de Supermercado

Instalar paquetes y llamar librerías

#install.packages("plyr")
library(plyr)

## Warning: package 'plyr' was built under R version 4.2.3

#install.packages("Matrix")
library(Matrix)

## Warning: package 'Matrix' was built under R version 4.2.3

#install.packages("arules")
library(arules)

## Warning: package 'arules' was built under R version 4.2.3

## 
## Attaching package: 'arules'

## The following objects are masked from 'package:base':
## 
##     abbreviate, write

#install.packages("arulesViz")
library(arulesViz)

## Warning: package 'arulesViz' was built under R version 4.2.3

#install.packages("datasets")
library(datasets)

Importar la base de datos

#file.choose()
#bd_limpia <- read.csv("C:\\Users\\lesda\\OneDrive\\Documentos\\Manipulación de datos\\LESsupermercado_limpia.csv")

Ordenar de menor a mayor los tickets

#bd_limpia <- bd_limpia[order(bd_limpia$BillNo),]
#head(bd_limpia)
#tail(bd_limpia)

Extraer productos por ticket

#basket <- ddply(bd_limpia, c("BillNo"), function(bd_limpia)paste(bd_limpia$Itemname,collapse = ","))

Eliminar número de ticket

#basket$BillNo <- NULL

Renombrar el nombre de la columna marca

#colnames(basket) <- c("Itemname")

Exportar basket

#write.csv(basket,"basketSUPERMERCADO.csv", quote = FALSE, row.names = FALSE)

Importar transacciones

#file.choose()
#tr <- read.transactions("C:\\Users\\lesda\\OneDrive\\Documentos\\basketSUPERMERCADO.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")