library(arules)
groceries <- read.transactions("groceries.csv", sep=",")
summary(groceries)
itemFrequencyPlot(groceries, topN=20)

#sample for randomly extracting samples, image function for visualing sparse matrix
image(sample(groceries,100))
groceries_rule <- apriori(data=groceries, parameter=list(support=0.006, confidence=0.25, minlen=2))
plotly_arules(groceries_rule)
summary(groceries_rule)