Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Association Rule Graphs - graph all rules
- #
- # Change directory in png and start/stop values for `i`
- # to values appropriate for number of rules generated.
- #
- # Interest measures stored in `log`.
- for (i in 1:100) {
- log <- head(sort(a2rules, by = c("support", "confidence", "lift")), i)
- png(filename = paste("~/GitHub/igraphs/",i,".png"),
- width = 1800, height = 1200, pointsize = 18, bg = "transparent")
- par(family = "GillSans")
- set.seed(144)
- plot(log, method = "graph",
- main = paste(i, "rules ~ support + confidence + lift (dh)"),
- edge.color = "#00000025",
- vertex.frame.color="#00000025",
- vertex.color = pdpal(100),
- vertex.label.color = "grey8",
- vertex.label.cex = 0.74, layout = layout_with_dh,
- vertex.label.dist = 0)
- dev.off()
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement