From rules to graph based visualizations

Market Basket Analysis in R

Christopher Bruffaerts

Statistician

Visualizing rules

Interactive rules

rules_html = plot(rules, method = "graph",
                  engine = "htmlwidget")
rules_html

Save the HTML widget

library(htmlwidgets)
saveWidget(rules_html, file = "rules_grocery.html")

graph_rules

Selecting items and rules from the graph

Select the item Bread

graph_rule_bread

Select Rule 3

graph_rule3

Graphs and subgraphs (1)

Sort rules by confidence

top4subRules = 
    head(sort(rules, by = "confidence"), 4)
inspect(top4subRules)

    lhs         rhs      support   confidence lift      count
[1] {Bread}  => {Butter} 0.4285714 1.00       1.1666667 3    
[2] {Wine}   => {Butter} 0.5714286 0.80       0.9333333 4    
[3] {Cheese} => {Wine}   0.4285714 0.75       1.0500000 3    
[4] {Cheese} => {Butter} 0.4285714 0.75       0.8750000 3

Plot high-confidence rules

plot(top4subRules, method = "graph",  engine = "htmlwidget")

graph_rules_confidence

Graphs and subgraphs (2)

Inspect cheesy rules

C_rules = 
    apriori(data = data_trx, 
            parameter = list(supp = 3/7,
                             conf = 0.2,
                             minlen = 2),
            appearance = list(rhs = "Cheese"))
inspect(C_rules)

    lhs         rhs      support   confidence lift  count
[1] {Wine}   => {Cheese} 0.4285714 0.6        1.050 3    
[2] {Butter} => {Cheese} 0.4285714 0.5        0.875 3

Plot cheesy rules

plot(C_rules, method = "graph",  engine = "htmlwidget")

graph_rules_cheese

Save as Graph

Saving your graph

saveAsGraph(rules, file = "rules.graphml")

Let's rule!

Market Basket Analysis in R