library(arules)
## Loading required package: Matrix
##
## Attaching package: 'arules'
## The following objects are masked from 'package:base':
##
## abbreviate, write
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:arules':
##
## intersect, recode, setdiff, setequal, union
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
data(Boston, package="MASS")
b <-Boston
b$chas <- factor(b$chas, labels=c("river", "noriver"))
b$rad <- factor(b$rad)
b$black <- cut(b$black, breaks=4, labels=c(">31.5%", "18.5-31.5%", "8-18.5%", "<8%"))
discr <- function(x) cut(x, breaks=4, labels=c("low", "medLow", "medHigh", "high"))
b <- select(b, -one_of(c("chas", "rad", "black"))) %>%
mutate_each(funs(discr)) %>%
bind_cols(select(b, one_of(c("chas", "rad", "black"))))
## Warning: `funs()` was deprecated in dplyr 0.8.0.
## Please use a list of either functions or lambdas:
##
## # Simple named list:
## list(mean = mean, median = median)
##
## # Auto named with `tibble::lst()`:
## tibble::lst(mean, median)
##
## # Using lambdas
## list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
## Warning: `mutate_each_()` was deprecated in dplyr 0.7.0.
## Please use `across()` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
b <- as(b, "transactions")
b
## transactions in sparse format with
## 506 transactions (rows) and
## 59 items (columns)
summary(b)
## transactions as itemMatrix in sparse format with
## 506 rows (elements/itemsets/transactions) and
## 59 columns (items) and a density of 0.2372881
##
## most frequent items:
## crim=low chas=river black=<8% zn=low dis=low (Other)
## 491 471 452 429 305 4936
##
## element (itemset/transaction) length distribution:
## sizes
## 14
## 506
##
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 14 14 14 14 14 14
##
## includes extended item information - examples:
## labels variables levels
## 1 crim=low crim low
## 2 crim=medLow crim medLow
## 3 crim=medHigh crim medHigh
##
## includes extended transaction information - examples:
## transactionID
## 1 1
## 2 2
## 3 3
itemFrequencyPlot(b, support=0.3, cex.names=0.8)
ars <- apriori(b, parameter=list(support=0.025, confidence=0.75))
## Apriori
##
## Parameter specification:
## confidence minval smax arem aval originalSupport maxtime support minlen
## 0.75 0.1 1 none FALSE TRUE 5 0.025 1
## maxlen target ext
## 10 rules TRUE
##
## Algorithmic control:
## filter tree heap memopt load sort verbose
## 0.1 TRUE TRUE FALSE TRUE 2 TRUE
##
## Absolute minimum support count: 12
##
## set item appearances ...[0 item(s)] done [0.00s].
## set transactions ...[59 item(s), 506 transaction(s)] done [0.00s].
## sorting and recoding items ... [52 item(s)] done [0.00s].
## creating transaction tree ... done [0.00s].
## checking subsets of size 1 2 3 4 5 6 7 8 9 10
## Warning in apriori(b, parameter = list(support = 0.025, confidence = 0.75)):
## Mining stopped (maxlen reached). Only patterns up to a length of 10 returned!
## done [0.04s].
## writing ... [408638 rule(s)] done [0.06s].
## creating S4 object ... done [0.14s].
ars
## set of 408638 rules
table(discr(Boston$medv))
##
## low medLow medHigh high
## 116 284 74 32
inspect(head(subset(ars, subsets=rhs %in% "medv=high"),5, by="confidence"))
## lhs rhs support confidence coverage lift
## [1] {black=8-18.5%} => {zn=low} 0.02964427 1 0.02964427 1.179487
## [2] {black=8-18.5%} => {chas=river} 0.02964427 1 0.02964427 1.074310
## [3] {zn=medHigh} => {nox=low} 0.03162055 1 0.03162055 2.530000
## [4] {zn=medHigh} => {indus=low} 0.03162055 1 0.03162055 2.504950
## [5] {zn=medHigh} => {black=<8%} 0.03162055 1 0.03162055 1.119469
## count
## [1] 15
## [2] 15
## [3] 16
## [4] 16
## [5] 16
inspect(head(subset(ars, subset=rhs %in% "medv=low"),5, by="confidence"))
## lhs rhs support confidence coverage lift count
## [1] {nox=medHigh,
## lstat=medHigh} => {medv=low} 0.05928854 1 0.05928854 4.362069 30
## [2] {nox=medHigh,
## lstat=medHigh,
## rad=24} => {medv=low} 0.05928854 1 0.05928854 4.362069 30
## [3] {nox=medHigh,
## tax=high,
## lstat=medHigh} => {medv=low} 0.05928854 1 0.05928854 4.362069 30
## [4] {indus=medHigh,
## nox=medHigh,
## lstat=medHigh} => {medv=low} 0.05928854 1 0.05928854 4.362069 30
## [5] {nox=medHigh,
## ptratio=high,
## lstat=medHigh} => {medv=low} 0.05928854 1 0.05928854 4.362069 30
inspect(head(subset(ars, subset=lhs %in% "nox=high" | rhs %in% "nox=high"),5, by="confidence"))
## lhs rhs support confidence coverage lift
## [1] {nox=high} => {indus=medHigh} 0.04743083 1 0.04743083 3.066667
## [2] {nox=high} => {age=high} 0.04743083 1 0.04743083 1.931298
## [3] {nox=high} => {dis=low} 0.04743083 1 0.04743083 1.659016
## [4] {nox=high} => {zn=low} 0.04743083 1 0.04743083 1.179487
## [5] {nox=high} => {crim=low} 0.04743083 1 0.04743083 1.030550
## count
## [1] 24
## [2] 24
## [3] 24
## [4] 24
## [5] 24
library(arulesViz)
plot(ars)
## To reduce overplotting, jitter is added! Use jitter = 0 to prevent jitter.
somerules <- subset(ars, subset=rhs %in% c("medv=high", "medv=medHigh") & confidence>0.75)
plot(somerules, method="matrix", measure="lift")
## Itemsets in Antecedent (LHS)
## [1] "{rm=high,ptratio=low}"
## [2] "{rm=high,ptratio=low,lstat=low}"
## [3] "{rm=high,ptratio=low,black=<8%}"
## [4] "{crim=low,rm=high,ptratio=low}"
## [5] "{rm=high,ptratio=low,lstat=low,black=<8%}"
## [6] "{crim=low,rm=high,ptratio=low,lstat=low}"
## [7] "{crim=low,rm=high,ptratio=low,black=<8%}"
## [8] "{crim=low,rm=high,ptratio=low,lstat=low,black=<8%}"
## [9] "{rm=high,chas=river}"
## [10] "{rm=high,lstat=low,chas=river}"
## [11] "{rm=high,chas=river,black=<8%}"
## [12] "{crim=low,rm=high,chas=river}"
## [13] "{rm=high,lstat=low,chas=river,black=<8%}"
## [14] "{crim=low,rm=high,lstat=low,chas=river}"
## [15] "{crim=low,rm=high,chas=river,black=<8%}"
## [16] "{crim=low,rm=high,lstat=low,chas=river,black=<8%}"
## [17] "{indus=low,rm=high,chas=river}"
## [18] "{indus=low,rm=high,lstat=low,chas=river}"
## [19] "{indus=low,rm=high,chas=river,black=<8%}"
## [20] "{crim=low,indus=low,rm=high,chas=river}"
## [21] "{indus=low,rm=high,lstat=low,chas=river,black=<8%}"
## [22] "{crim=low,indus=low,rm=high,lstat=low,chas=river}"
## [23] "{crim=low,indus=low,rm=high,chas=river,black=<8%}"
## [24] "{crim=low,indus=low,rm=high,lstat=low,chas=river,black=<8%}"
## [25] "{rm=high,tax=low,chas=river}"
## [26] "{zn=low,rm=high,chas=river}"
## [27] "{indus=low,rm=high,tax=low,chas=river}"
## [28] "{rm=high,tax=low,lstat=low,chas=river}"
## [29] "{rm=high,tax=low,chas=river,black=<8%}"
## [30] "{crim=low,rm=high,tax=low,chas=river}"
## [31] "{zn=low,rm=high,lstat=low,chas=river}"
## [32] "{zn=low,rm=high,chas=river,black=<8%}"
## [33] "{crim=low,zn=low,rm=high,chas=river}"
## [34] "{indus=low,rm=high,tax=low,lstat=low,chas=river}"
## [35] "{indus=low,rm=high,tax=low,chas=river,black=<8%}"
## [36] "{crim=low,indus=low,rm=high,tax=low,chas=river}"
## [37] "{rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [38] "{crim=low,rm=high,tax=low,lstat=low,chas=river}"
## [39] "{crim=low,rm=high,tax=low,chas=river,black=<8%}"
## [40] "{zn=low,rm=high,lstat=low,chas=river,black=<8%}"
## [41] "{crim=low,zn=low,rm=high,lstat=low,chas=river}"
## [42] "{crim=low,zn=low,rm=high,chas=river,black=<8%}"
## [43] "{indus=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [44] "{crim=low,indus=low,rm=high,tax=low,lstat=low,chas=river}"
## [45] "{crim=low,indus=low,rm=high,tax=low,chas=river,black=<8%}"
## [46] "{crim=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [47] "{crim=low,zn=low,rm=high,lstat=low,chas=river,black=<8%}"
## [48] "{crim=low,indus=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [49] "{rm=high,dis=low,chas=river}"
## [50] "{zn=low,indus=low,rm=high,chas=river}"
## [51] "{rm=high,dis=low,lstat=low,chas=river}"
## [52] "{zn=low,rm=high,dis=low,chas=river}"
## [53] "{rm=high,dis=low,chas=river,black=<8%}"
## [54] "{crim=low,rm=high,dis=low,chas=river}"
## [55] "{zn=low,indus=low,rm=high,lstat=low,chas=river}"
## [56] "{zn=low,indus=low,rm=high,chas=river,black=<8%}"
## [57] "{crim=low,zn=low,indus=low,rm=high,chas=river}"
## [58] "{zn=low,rm=high,dis=low,lstat=low,chas=river}"
## [59] "{rm=high,dis=low,lstat=low,chas=river,black=<8%}"
## [60] "{crim=low,rm=high,dis=low,lstat=low,chas=river}"
## [61] "{zn=low,rm=high,dis=low,chas=river,black=<8%}"
## [62] "{crim=low,zn=low,rm=high,dis=low,chas=river}"
## [63] "{crim=low,rm=high,dis=low,chas=river,black=<8%}"
## [64] "{zn=low,indus=low,rm=high,lstat=low,chas=river,black=<8%}"
## [65] "{crim=low,zn=low,indus=low,rm=high,lstat=low,chas=river}"
## [66] "{crim=low,zn=low,indus=low,rm=high,chas=river,black=<8%}"
## [67] "{zn=low,rm=high,dis=low,lstat=low,chas=river,black=<8%}"
## [68] "{crim=low,zn=low,rm=high,dis=low,lstat=low,chas=river}"
## [69] "{crim=low,rm=high,dis=low,lstat=low,chas=river,black=<8%}"
## [70] "{crim=low,zn=low,rm=high,dis=low,chas=river,black=<8%}"
## [71] "{crim=low,zn=low,indus=low,rm=high,lstat=low,chas=river,black=<8%}"
## [72] "{crim=low,zn=low,rm=high,dis=low,lstat=low,chas=river,black=<8%}"
## [73] "{indus=low,rm=high}"
## [74] "{indus=low,rm=high,lstat=low}"
## [75] "{indus=low,rm=high,black=<8%}"
## [76] "{crim=low,indus=low,rm=high}"
## [77] "{indus=low,rm=high,lstat=low,black=<8%}"
## [78] "{crim=low,indus=low,rm=high,lstat=low}"
## [79] "{crim=low,indus=low,rm=high,black=<8%}"
## [80] "{crim=low,indus=low,rm=high,lstat=low,black=<8%}"
## [81] "{zn=low,rm=high,tax=low,chas=river}"
## [82] "{zn=low,indus=low,rm=high,tax=low,chas=river}"
## [83] "{zn=low,rm=high,tax=low,lstat=low,chas=river}"
## [84] "{zn=low,rm=high,tax=low,chas=river,black=<8%}"
## [85] "{crim=low,zn=low,rm=high,tax=low,chas=river}"
## [86] "{zn=low,indus=low,rm=high,tax=low,lstat=low,chas=river}"
## [87] "{zn=low,indus=low,rm=high,tax=low,chas=river,black=<8%}"
## [88] "{crim=low,zn=low,indus=low,rm=high,tax=low,chas=river}"
## [89] "{zn=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [90] "{crim=low,zn=low,rm=high,tax=low,lstat=low,chas=river}"
## [91] "{crim=low,zn=low,rm=high,tax=low,chas=river,black=<8%}"
## [92] "{zn=low,indus=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [93] "{crim=low,zn=low,indus=low,rm=high,tax=low,lstat=low,chas=river}"
## [94] "{crim=low,zn=low,indus=low,rm=high,tax=low,chas=river,black=<8%}"
## [95] "{crim=low,zn=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [96] "{crim=low,zn=low,indus=low,rm=high,tax=low,lstat=low,chas=river,black=<8%}"
## [97] "{rm=high}"
## [98] "{rm=high,tax=low}"
## [99] "{rm=high,lstat=low}"
## [100] "{rm=high,black=<8%}"
## [101] "{crim=low,rm=high}"
## [102] "{indus=low,rm=high,tax=low}"
## [103] "{rm=high,tax=low,lstat=low}"
## [104] "{rm=high,tax=low,black=<8%}"
## [105] "{crim=low,rm=high,tax=low}"
## [106] "{rm=high,lstat=low,black=<8%}"
## [107] "{crim=low,rm=high,lstat=low}"
## [108] "{crim=low,rm=high,black=<8%}"
## [109] "{indus=low,rm=high,tax=low,lstat=low}"
## [110] "{indus=low,rm=high,tax=low,black=<8%}"
## [111] "{crim=low,indus=low,rm=high,tax=low}"
## [112] "{rm=high,tax=low,lstat=low,black=<8%}"
## [113] "{crim=low,rm=high,tax=low,lstat=low}"
## [114] "{crim=low,rm=high,tax=low,black=<8%}"
## [115] "{crim=low,rm=high,lstat=low,black=<8%}"
## [116] "{indus=low,rm=high,tax=low,lstat=low,black=<8%}"
## [117] "{crim=low,indus=low,rm=high,tax=low,lstat=low}"
## [118] "{crim=low,indus=low,rm=high,tax=low,black=<8%}"
## [119] "{crim=low,rm=high,tax=low,lstat=low,black=<8%}"
## [120] "{crim=low,indus=low,rm=high,tax=low,lstat=low,black=<8%}"
## [121] "{rm=high,dis=low}"
## [122] "{rm=high,dis=low,lstat=low}"
## [123] "{zn=low,rm=high,dis=low}"
## [124] "{rm=high,dis=low,black=<8%}"
## [125] "{crim=low,rm=high,dis=low}"
## [126] "{zn=low,rm=high,dis=low,lstat=low}"
## [127] "{rm=high,dis=low,lstat=low,black=<8%}"
## [128] "{crim=low,rm=high,dis=low,lstat=low}"
## [129] "{zn=low,rm=high,dis=low,black=<8%}"
## [130] "{crim=low,zn=low,rm=high,dis=low}"
## [131] "{crim=low,rm=high,dis=low,black=<8%}"
## [132] "{zn=low,rm=high,dis=low,lstat=low,black=<8%}"
## [133] "{crim=low,zn=low,rm=high,dis=low,lstat=low}"
## [134] "{crim=low,rm=high,dis=low,lstat=low,black=<8%}"
## [135] "{crim=low,zn=low,rm=high,dis=low,black=<8%}"
## [136] "{crim=low,zn=low,rm=high,dis=low,lstat=low,black=<8%}"
## [137] "{zn=low,indus=low,rm=high}"
## [138] "{zn=low,indus=low,rm=high,lstat=low}"
## [139] "{zn=low,indus=low,rm=high,black=<8%}"
## [140] "{crim=low,zn=low,indus=low,rm=high}"
## [141] "{zn=low,indus=low,rm=high,lstat=low,black=<8%}"
## [142] "{crim=low,zn=low,indus=low,rm=high,lstat=low}"
## [143] "{crim=low,zn=low,indus=low,rm=high,black=<8%}"
## [144] "{crim=low,zn=low,indus=low,rm=high,lstat=low,black=<8%}"
## [145] "{zn=low,rm=high}"
## [146] "{zn=low,rm=high,lstat=low}"
## [147] "{zn=low,rm=high,black=<8%}"
## [148] "{crim=low,zn=low,rm=high}"
## [149] "{zn=low,rm=high,lstat=low,black=<8%}"
## [150] "{crim=low,zn=low,rm=high,lstat=low}"
## [151] "{crim=low,zn=low,rm=high,black=<8%}"
## [152] "{crim=low,zn=low,rm=high,lstat=low,black=<8%}"
## [153] "{nox=low,rm=high}"
## [154] "{indus=low,nox=low,rm=high}"
## [155] "{nox=low,rm=high,lstat=low}"
## [156] "{nox=low,rm=high,black=<8%}"
## [157] "{crim=low,nox=low,rm=high}"
## [158] "{zn=low,rm=high,tax=low}"
## [159] "{indus=low,nox=low,rm=high,lstat=low}"
## [160] "{indus=low,nox=low,rm=high,black=<8%}"
## [161] "{crim=low,indus=low,nox=low,rm=high}"
## [162] "{nox=low,rm=high,lstat=low,black=<8%}"
## [163] "{crim=low,nox=low,rm=high,lstat=low}"
## [164] "{crim=low,nox=low,rm=high,black=<8%}"
## [165] "{zn=low,indus=low,rm=high,tax=low}"
## [166] "{zn=low,rm=high,tax=low,lstat=low}"
## [167] "{zn=low,rm=high,tax=low,black=<8%}"
## [168] "{crim=low,zn=low,rm=high,tax=low}"
## [169] "{indus=low,nox=low,rm=high,lstat=low,black=<8%}"
## [170] "{crim=low,indus=low,nox=low,rm=high,lstat=low}"
## [171] "{crim=low,indus=low,nox=low,rm=high,black=<8%}"
## [172] "{crim=low,nox=low,rm=high,lstat=low,black=<8%}"
## [173] "{zn=low,indus=low,rm=high,tax=low,lstat=low}"
## [174] "{zn=low,indus=low,rm=high,tax=low,black=<8%}"
## [175] "{crim=low,zn=low,indus=low,rm=high,tax=low}"
## [176] "{zn=low,rm=high,tax=low,lstat=low,black=<8%}"
## [177] "{crim=low,zn=low,rm=high,tax=low,lstat=low}"
## [178] "{crim=low,zn=low,rm=high,tax=low,black=<8%}"
## [179] "{crim=low,indus=low,nox=low,rm=high,lstat=low,black=<8%}"
## [180] "{zn=low,indus=low,rm=high,tax=low,lstat=low,black=<8%}"
## [181] "{crim=low,zn=low,indus=low,rm=high,tax=low,lstat=low}"
## [182] "{crim=low,zn=low,indus=low,rm=high,tax=low,black=<8%}"
## [183] "{crim=low,zn=low,rm=high,tax=low,lstat=low,black=<8%}"
## [184] "{crim=low,zn=low,indus=low,rm=high,tax=low,lstat=low,black=<8%}"
## [185] "{indus=low,nox=low,rm=medHigh,rad=5}"
## [186] "{indus=low,nox=low,rm=medHigh,dis=low}"
## [187] "{indus=low,nox=low,rm=medHigh,lstat=low,rad=5}"
## [188] "{indus=low,nox=low,rm=medHigh,rad=5,black=<8%}"
## [189] "{indus=low,nox=low,rm=medHigh,chas=river,rad=5}"
## [190] "{crim=low,indus=low,nox=low,rm=medHigh,rad=5}"
## [191] "{indus=low,rm=medHigh,dis=low,ptratio=medHigh,chas=river}"
## [192] "{indus=low,nox=low,rm=medHigh,dis=low,lstat=low}"
## [193] "{indus=low,nox=low,rm=medHigh,dis=low,black=<8%}"
## [194] "{indus=low,nox=low,rm=medHigh,dis=low,chas=river}"
## [195] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low}"
## [196] "{indus=low,nox=low,rm=medHigh,lstat=low,rad=5,black=<8%}"
## [197] "{indus=low,nox=low,rm=medHigh,lstat=low,chas=river,rad=5}"
## [198] "{crim=low,indus=low,nox=low,rm=medHigh,lstat=low,rad=5}"
## [199] "{indus=low,nox=low,rm=medHigh,chas=river,rad=5,black=<8%}"
## [200] "{crim=low,indus=low,nox=low,rm=medHigh,rad=5,black=<8%}"
## [201] "{crim=low,indus=low,nox=low,rm=medHigh,chas=river,rad=5}"
## [202] "{indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,chas=river}"
## [203] "{indus=low,rm=medHigh,dis=low,ptratio=medHigh,lstat=low,chas=river}"
## [204] "{indus=low,rm=medHigh,dis=low,ptratio=medHigh,chas=river,black=<8%}"
## [205] "{crim=low,indus=low,rm=medHigh,dis=low,ptratio=medHigh,chas=river}"
## [206] "{indus=low,nox=low,rm=medHigh,dis=low,lstat=low,black=<8%}"
## [207] "{indus=low,nox=low,rm=medHigh,dis=low,lstat=low,chas=river}"
## [208] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,lstat=low}"
## [209] "{indus=low,nox=low,rm=medHigh,dis=low,chas=river,black=<8%}"
## [210] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,black=<8%}"
## [211] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,chas=river}"
## [212] "{indus=low,nox=low,rm=medHigh,lstat=low,chas=river,rad=5,black=<8%}"
## [213] "{crim=low,indus=low,nox=low,rm=medHigh,lstat=low,rad=5,black=<8%}"
## [214] "{crim=low,indus=low,nox=low,rm=medHigh,lstat=low,chas=river,rad=5}"
## [215] "{crim=low,indus=low,nox=low,rm=medHigh,chas=river,rad=5,black=<8%}"
## [216] "{indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,lstat=low,chas=river}"
## [217] "{indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,chas=river,black=<8%}"
## [218] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,chas=river}"
## [219] "{indus=low,rm=medHigh,dis=low,ptratio=medHigh,lstat=low,chas=river,black=<8%}"
## [220] "{crim=low,indus=low,rm=medHigh,dis=low,ptratio=medHigh,lstat=low,chas=river}"
## [221] "{crim=low,indus=low,rm=medHigh,dis=low,ptratio=medHigh,chas=river,black=<8%}"
## [222] "{indus=low,nox=low,rm=medHigh,dis=low,lstat=low,chas=river,black=<8%}"
## [223] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,lstat=low,black=<8%}"
## [224] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,lstat=low,chas=river}"
## [225] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,chas=river,black=<8%}"
## [226] "{crim=low,indus=low,nox=low,rm=medHigh,lstat=low,chas=river,rad=5,black=<8%}"
## [227] "{indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,lstat=low,chas=river,black=<8%}"
## [228] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,lstat=low,chas=river}"
## [229] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,chas=river,black=<8%}"
## [230] "{crim=low,indus=low,rm=medHigh,dis=low,ptratio=medHigh,lstat=low,chas=river,black=<8%}"
## [231] "{crim=low,indus=low,nox=low,rm=medHigh,dis=low,lstat=low,chas=river,black=<8%}"
## [232] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,ptratio=medHigh,lstat=low,chas=river,black=<8%}"
## [233] "{indus=low,rm=medHigh,dis=low,chas=river}"
## [234] "{indus=low,rm=medHigh,dis=low,chas=river,black=<8%}"
## [235] "{crim=low,indus=low,rm=medHigh,dis=low,chas=river}"
## [236] "{crim=low,indus=low,rm=medHigh,dis=low,chas=river,black=<8%}"
## [237] "{indus=low,rm=medHigh,dis=low,tax=low,chas=river}"
## [238] "{indus=low,rm=medHigh,dis=low,tax=low,chas=river,black=<8%}"
## [239] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,chas=river}"
## [240] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,chas=river,black=<8%}"
## [241] "{indus=low,rm=medHigh,dis=low,lstat=low,chas=river}"
## [242] "{indus=low,rm=medHigh,dis=low,lstat=low,chas=river,black=<8%}"
## [243] "{crim=low,indus=low,rm=medHigh,dis=low,lstat=low,chas=river}"
## [244] "{crim=low,indus=low,rm=medHigh,dis=low,lstat=low,chas=river,black=<8%}"
## [245] "{indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow}"
## [246] "{indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow,lstat=low}"
## [247] "{indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow,black=<8%}"
## [248] "{crim=low,indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow}"
## [249] "{indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow,lstat=low,black=<8%}"
## [250] "{crim=low,indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow,lstat=low}"
## [251] "{crim=low,indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow,black=<8%}"
## [252] "{crim=low,indus=low,nox=low,rm=medHigh,age=medLow,dis=medLow,lstat=low,black=<8%}"
## [253] "{indus=low,rm=medHigh,dis=low,tax=low,lstat=low,chas=river}"
## [254] "{indus=low,rm=medHigh,dis=low,tax=low,lstat=low,chas=river,black=<8%}"
## [255] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,lstat=low,chas=river}"
## [256] "{crim=low,indus=low,rm=medHigh,dis=low,tax=low,lstat=low,chas=river,black=<8%}"
## Itemsets in Consequent (RHS)
## [1] "{medv=medHigh}" "{medv=high}"
somerules <- subset(ars, subset=rhs %in% "medv=high" & confidence > 0.95)
plot(somerules, method="graph", control=list(type="itemsets"))
## Warning: Unknown control parameters: type
## Available control parameters (with default values):
## layout = stress
## circular = FALSE
## ggraphdots = NULL
## edges = <environment>
## nodes = <environment>
## nodetext = <environment>
## colors = c("#EE0000FF", "#EEEEEEFF")
## engine = ggplot2
## max = 100
## verbose = FALSE
