Projekt 3. dio
Tim 5: Jure Marinov, Marija Vugrinec, Lana Zebić, Dominik Žatečki
Podaci
data1 <- read_excel("Online_Retail_clean.xlsx") |> filter ( Quantity > 0 , UnitPrice > 0 ) |> mutate(InvoiceDate = as.Date(InvoiceDate), CustomerID=as.numeric(CustomerID)) |>
group_by( CustomerID , InvoiceNo ) |>
summarise (
Trosak = sum(Quantity*UnitPrice) ,BrojArtikala = n () , minPrice = min(UnitPrice) , maxPrice=max(UnitPrice), minQuantity=min(Quantity), maxQuantity=max(Quantity)) |>
group_by(CustomerID) |>
summarise (
meanBrojArtikala = mean(BrojArtikala), minBrojArtikala=min(BrojArtikala), maxBrojArtikala=max(BrojArtikala), minPrice = min(minPrice), sumTrosak = sum(Trosak), n = n (), maxPrice = max(maxPrice), minQuantity=min(minQuantity), maxQuantity=max(maxQuantity), meanTrosak = mean(Trosak))
data1 <- na.omit(data1) |> select(-CustomerID)
data1.s <- scale(data1)
pom <- read_excel("Online_Retail_clean.xlsx") |> filter(Description!="Manual")
pom <- pom |>
group_by(InvoiceNo) |>
summarise(kupnja = list(unique(Description)))
pom1 <- pom$kupnja
names(pom1) <- pom$InvoiceNo
data2 <- as(pom1, "transactions")
dim(data2)## [1] 19801 3809summary(data2)## transactions as itemMatrix in sparse format with
## 19801 rows (elements/itemsets/transactions) and
## 3809 columns (items) and a density of 0.0068659
##
## most frequent items:
## WHITE HANGING HEART T-LIGHT HOLDER JUMBO BAG RED RETROSPOT
## 2269 2092
## REGENCY CAKESTAND 3 TIER PARTY BUNTING
## 1989 1686
## LUNCH BAG RED RETROSPOT (Other)
## 1565 508239
##
## element (itemset/transaction) length distribution:
## sizes
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
## 1513 815 693 677 673 618 606 601 624 552 543 501 501 514 558 546
## 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
## 459 453 481 435 401 342 349 296 251 255 242 251 272 225 189 184
## 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
## 170 172 147 114 137 121 135 124 127 95 101 113 86 96 91 83
## 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
## 94 77 57 72 75 72 66 55 62 49 43 55 38 29 47 36
## 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
## 40 39 40 41 26 31 36 23 27 34 25 21 19 26 15 14
## 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
## 16 24 15 23 15 15 15 15 10 12 9 17 14 7 6 10
## 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112
## 11 11 4 10 13 1 8 7 2 5 5 5 4 5 6 4
## 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128
## 4 5 6 11 4 7 5 7 9 7 4 4 5 4 5 4
## 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
## 2 2 3 5 3 3 3 6 6 4 3 4 5 2 5 1
## 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160
## 5 3 3 7 2 6 4 4 3 2 2 3 6 1 1 4
## 161 162 163 164 165 167 168 169 170 171 172 173 174 175 176 177
## 3 2 3 4 5 5 3 2 1 5 4 4 1 4 7 2
## 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193
## 3 3 4 6 4 3 2 2 4 2 5 4 2 2 2 4
## 194 195 196 197 198 201 202 203 204 205 206 207 208 210 211 213
## 2 5 2 2 3 1 6 4 2 2 1 3 1 5 1 1
## 214 215 216 217 218 219 222 223 224 225 227 228 229 230 231 232
## 2 3 4 1 2 3 2 3 3 1 1 2 1 1 1 1
## 234 235 236 237 238 240 241 242 243 246 248 249 252 253 254 256
## 1 1 3 3 1 2 1 2 2 2 2 3 1 2 2 2
## 259 260 261 262 263 265 266 270 271 274 278 279 281 282 284 286
## 1 2 1 2 2 1 1 1 1 1 1 2 2 2 1 2
## 287 288 289 291 292 294 296 297 299 300 308 309 314 318 319 330
## 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1
## 331 332 333 334 339 340 343 345 346 349 351 352 354 357 359 362
## 2 1 2 1 1 1 1 1 2 1 2 1 1 1 1 1
## 370 374 377 378 383 385 387 401 403 405 409 410 414 415 417 418
## 1 1 1 1 1 1 1 2 1 1 1 1 1 2 1 1
## 419 428 433 437 438 442 448 454 459 462 470 481 485 486 487 493
## 1 1 3 1 2 1 1 2 2 1 1 1 1 1 1 1
## 501 502 508 514 515 516 517 519 522 524 525 526 528 530 535 538
## 1 2 1 1 1 1 1 1 1 2 1 1 1 1 1 1
## 540 542 551 560 567 571 577 584 585 588 589 592 594 598 600 606
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 621 628 634 644 647 649 660 673 675 686 703 720 730 748 1107
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.00 6.00 15.00 26.15 29.00 1107.00
##
## includes extended item information - examples:
## labels
## 1 *Boombox Ipod Classic
## 2 *USB Office Mirror Ball
## 3 10 COLOUR SPACEBOY PEN
##
## includes extended transaction information - examples:
## transactionID
## 1 536365
## 2 536366
## 3 536367Grupiranje podataka po k-sredini
Deskriptivna analiza
summary(data1)## meanBrojArtikala minBrojArtikala maxBrojArtikala minPrice
## Min. : 1.000 Min. : 1.00 Min. : 1.00 Min. : 0.001
## 1st Qu.: 9.333 1st Qu.: 3.00 1st Qu.: 13.00 1st Qu.: 0.210
## Median : 17.000 Median : 9.00 Median : 23.00 Median : 0.390
## Mean : 22.199 Mean : 14.66 Mean : 32.02 Mean : 1.448
## 3rd Qu.: 28.250 3rd Qu.: 19.00 3rd Qu.: 41.00 3rd Qu.: 0.650
## Max. :299.706 Max. :219.00 Max. :541.00 Max. :2033.100
## sumTrosak n maxPrice minQuantity
## Min. : 3.75 Min. : 1.00 Min. : 0.17 Min. : 1.00
## 1st Qu.: 306.21 1st Qu.: 1.00 1st Qu.: 7.95 1st Qu.: 1.00
## Median : 668.12 Median : 2.00 Median : 12.50 Median : 1.00
## Mean : 2033.59 Mean : 4.26 Mean : 22.40 Mean : 24.84
## 3rd Qu.: 1644.55 3rd Qu.: 5.00 3rd Qu.: 15.00 3rd Qu.: 2.00
## Max. :279138.02 Max. :209.00 Max. :4161.06 Max. :74215.00
## maxQuantity meanTrosak
## Min. : 1.0 Min. : 3.45
## 1st Qu.: 24.0 1st Qu.: 178.21
## Median : 36.0 Median : 290.96
## Mean : 118.5 Mean : 417.22
## 3rd Qu.: 72.0 3rd Qu.: 426.04
## Max. :80995.0 Max. :84236.25k <- kmeans(data1, centers=2, nstart=25)
str(k)## List of 9
## $ cluster : int [1:4338] 2 1 1 1 1 1 1 1 1 1 ...
## $ centers : num [1:2, 1:10] 22.2 18.4 14.7 1 31.9 ...
## ..- attr(*, "dimnames")=List of 2
## .. ..$ : chr [1:2] "1" "2"
## .. ..$ : chr [1:10] "meanBrojArtikala" "minBrojArtikala" "maxBrojArtikala" "minPrice" ...
## $ totss : num 3.79e+11
## $ withinss : num [1:2] 7.78e+10 6.36e+10
## $ tot.withinss: num 1.41e+11
## $ betweenss : num 2.37e+11
## $ size : int [1:2] 4329 9
## $ iter : int 1
## $ ifault : int 0
## - attr(*, "class")= chr "kmeans"k## K-means clustering with 2 clusters of sizes 4329, 9
##
## Cluster means:
## meanBrojArtikala minBrojArtikala maxBrojArtikala minPrice sumTrosak
## 1 22.20716 14.68907 31.93763 1.4496960 1701.516
## 2 18.44705 1.00000 73.55556 0.4855556 161759.312
## n maxPrice minQuantity maxQuantity meanTrosak
## 1 4.156156 21.9976 7.750289 80.81959 375.1492
## 2 54.222222 216.4378 8247.333333 18266.00000 20652.1332
##
## Clustering vector:
## [1] 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [38] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [75] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [112] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [149] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [186] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [223] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [260] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [297] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [334] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [371] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [408] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [445] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [482] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [519] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [556] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [593] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [630] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [667] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [704] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [741] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [778] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [815] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [852] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [889] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [926] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [963] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1000] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1037] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1074] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1111] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1148] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1185] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1222] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1259] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1296] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1333] 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1370] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1407] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1444] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1481] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1518] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1555] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1592] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1629] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1666] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1
## [1703] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1740] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1777] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1814] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1851] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1
## [1888] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1925] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1962] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1999] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2036] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2073] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2110] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2147] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2184] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2221] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2258] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2295] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2332] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2369] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2406] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2443] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2480] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2517] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2554] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2591] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2628] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2665] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2702] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2739] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2776] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2813] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2850] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2887] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2924] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2961] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [2998] 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3035] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3072] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3109] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3146] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3183] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3220] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3257] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3294] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3331] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3368] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3405] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3442] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3479] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3516] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3553] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3590] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3627] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3664] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3701] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1
## [3738] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1
## [3775] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3812] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3849] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3886] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3923] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3960] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [3997] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4034] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4071] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4108] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4145] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4182] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4219] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4256] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4293] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [4330] 1 1 1 1 1 1 1 1 1
##
## Within cluster sum of squares by cluster:
## [1] 77776116185 63604631951
## (between_SS / total_SS = 62.7 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"fviz_nbclust(data1, kmeans, method = "silhouette")
Podatke smo raspodijelili u dva klastera, i potrvdili koristeći Silhouette metodu. U prvom klasteru nalaze se kupci čije su navike uobičajene. U drugom klasteru nalaze se ekstremi, odnosno stršila. To su kupci koji ispodprosječno troše.
fviz_cluster(k, data=data1)
Hijerarhijsko grupiranje podataka
data.dist <- dist(data1.s, method="euclidean")
hc <- hclust(data.dist, method="ward.D2")
dend <- as.dendrogram(hc)
plot(dend)
gap_stat <- clusGap(data1.s, FUN = hcut, nstart = 25, K.max = 5, B = 50)
fviz_gap_stat(gap_stat)
Za grupiranje smo odabrali metodu complete. Za prikaz optimalnog broja klastera odabrali smo metodu clusGap. Metoda clusGap nam je prikazala da je optimalan broj klastera jedan. To znači da se svi kupci nalaze u jednom klasteru. (pitati za odabir metode) Metoda clusGap prikazuje da se podaci ne mogu podijeliti u klastere, dok metoda Silhouette iz prvog zadatka predlaže podjelu u dva klastera.
Pravila pridruživanja
rules <- apriori(data2, parameter = list(supp = 0.003, conf = 0.95, minlen = 2, maxlen = 5, target = "rules"))## Apriori
##
## Parameter specification:
## confidence minval smax arem aval originalSupport maxtime support minlen
## 0.95 0.1 1 none FALSE TRUE 5 0.003 2
## maxlen target ext
## 5 rules TRUE
##
## Algorithmic control:
## filter tree heap memopt load sort verbose
## 0.1 TRUE TRUE FALSE TRUE 2 TRUE
##
## Absolute minimum support count: 59
##
## set item appearances ...[0 item(s)] done [0.00s].
## set transactions ...[3809 item(s), 19801 transaction(s)] done [0.38s].
## sorting and recoding items ... [2022 item(s)] done [0.02s].
## creating transaction tree ... done [0.01s].
## checking subsets of size 1 2 3 4 5 done [1.56s].
## writing ... [17597 rule(s)] done [0.04s].
## creating S4 object ... done [0.02s].rules## set of 17597 rulesredRules <- which(colSums(is.subset(rules, rules)) > 1)
length(redRules) ## [1] 11321rules.red <- rules[-redRules]
inspect(head(rules.red))## lhs rhs support confidence coverage lift count
## [1] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## PINK POLKADOT PLATE} => {PINK 3 PIECE POLKADOT CUTLERY SET} 0.003333165 0.9705882 0.003434170 35.19893 66
## [2] {HERB MARKER CHIVES,
## HERB MARKER MINT} => {HERB MARKER PARSLEY} 0.009241957 0.9631579 0.009595475 80.13231 183
## [3] {HERB MARKER CHIVES,
## HERB MARKER THYME} => {HERB MARKER PARSLEY} 0.009241957 0.9682540 0.009544972 80.55629 183
## [4] {HERB MARKER BASIL,
## HERB MARKER CHIVES} => {HERB MARKER THYME} 0.008736932 0.9505495 0.009191455 79.41700 173
## [5] {HERB MARKER BASIL,
## HERB MARKER CHIVES} => {HERB MARKER PARSLEY} 0.008837937 0.9615385 0.009191455 79.99758 175
## [6] {HERB MARKER CHIVES,
## HERB MARKER ROSEMARY} => {HERB MARKER PARSLEY} 0.009241957 0.9682540 0.009544972 80.55629 183inspect(head(rules, n = 20, by ="lift"))## lhs rhs support confidence coverage lift count
## [1] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE STAR DECORATION,
## JUMBO BAG RED RETROSPOT} => {CHRISTMAS TREE HEART DECORATION} 0.003131155 0.9841270 0.003181657 108.25944 62
## [2] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE STAR DECORATION,
## VINTAGE PAISLEY STATIONERY SET} => {CHRISTMAS TREE HEART DECORATION} 0.003434170 0.9577465 0.003585677 105.35743 68
## [3] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE STAR DECORATION,
## SUKI SHOULDER BAG} => {CHRISTMAS TREE HEART DECORATION} 0.003333165 0.9565217 0.003484672 105.22271 66
## [4] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE STAR DECORATION,
## FLORAL FOLK STATIONERY SET} => {CHRISTMAS TREE HEART DECORATION} 0.003080652 0.9531250 0.003232160 104.84905 61
## [5] {CHARLIE+LOLA PINK HOT WATER BOTTLE,
## CHRISTMAS TREE DECORATION WITH BELL} => {CHRISTMAS TREE HEART DECORATION} 0.003030150 0.9523810 0.003181657 104.76720 60
## [6] {6 RIBBONS RUSTIC CHARM,
## CHRISTMAS TREE DECORATION WITH BELL} => {CHRISTMAS TREE HEART DECORATION} 0.003030150 0.9523810 0.003181657 104.76720 60
## [7] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE STAR DECORATION} => {CHRISTMAS TREE HEART DECORATION} 0.004999747 0.9519231 0.005252260 104.71683 99
## [8] {DOLLY GIRL CHILDRENS CUP,
## SPACE BOY CHILDRENS CUP,
## SPACEBOY CHILDRENS BOWL} => {DOLLY GIRL CHILDRENS BOWL} 0.005403767 0.9816514 0.005504772 101.76795 107
## [9] {DOLLY GIRL CHILDRENS CUP,
## SPACEBOY CHILDRENS BOWL} => {DOLLY GIRL CHILDRENS BOWL} 0.005908792 0.9590164 0.006161305 99.42138 117
## [10] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE HEART DECORATION,
## FLORAL FOLK STATIONERY SET} => {CHRISTMAS TREE STAR DECORATION} 0.003080652 0.9838710 0.003131155 98.39207 61
## [11] {CHRISTMAS GINGHAM STAR,
## JAM MAKING SET PRINTED,
## PAPER CHAIN KIT 50'S CHRISTMAS} => {CHRISTMAS GINGHAM TREE} 0.003080652 0.9682540 0.003181657 97.81835 61
## [12] {DOLLY GIRL CHILDRENS BOWL,
## SPACE BOY CHILDRENS CUP,
## SPACEBOY CHILDRENS BOWL} => {DOLLY GIRL CHILDRENS CUP} 0.005403767 0.9553571 0.005656280 97.01039 107
## [13] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE HEART DECORATION,
## JUMBO BAG RED RETROSPOT} => {CHRISTMAS TREE STAR DECORATION} 0.003131155 0.9687500 0.003232160 96.87989 62
## [14] {CHRISTMAS GINGHAM STAR,
## JAM MAKING SET PRINTED} => {CHRISTMAS GINGHAM TREE} 0.003484672 0.9583333 0.003636180 96.81611 69
## [15] {CHRISTMAS TREE DECORATION WITH BELL,
## CHRISTMAS TREE HEART DECORATION,
## SUKI SHOULDER BAG} => {CHRISTMAS TREE STAR DECORATION} 0.003333165 0.9565217 0.003484672 95.65700 66
## [16] {CHRISTMAS TREE HEART DECORATION,
## FLORAL FOLK STATIONERY SET,
## SUKI SHOULDER BAG} => {CHRISTMAS TREE STAR DECORATION} 0.003131155 0.9538462 0.003282662 95.38943 62
## [17] {CHARLIE+LOLA PINK HOT WATER BOTTLE,
## CHRISTMAS TREE DECORATION WITH BELL} => {CHRISTMAS TREE STAR DECORATION} 0.003030150 0.9523810 0.003181657 95.24291 60
## [18] {SET/20 RED RETROSPOT PAPER NAPKINS,
## SET/6 COLLAGE PAPER CUPS} => {SET/6 COLLAGE PAPER PLATES} 0.003030150 0.9677419 0.003131155 88.30534 60
## [19] {GREEN VINTAGE SPOT BEAKER,
## PINK VINTAGE SPOT BEAKER,
## RED VINTAGE SPOT BEAKER} => {BLUE VINTAGE SPOT BEAKER} 0.004949245 0.9607843 0.005151255 85.69590 98
## [20] {HERB MARKER BASIL,
## HERB MARKER CHIVES,
## HERB MARKER PARSLEY,
## HERB MARKER ROSEMARY} => {HERB MARKER THYME} 0.008332912 0.9880240 0.008433917 82.54794 165inspect(head(rules, n = 20, by ="confidence"))## lhs rhs support confidence coverage lift count
## [1] {BUTTON BOX,
## PINK CAT BOWL} => {SUKI SHOULDER BAG} 0.003737185 1 0.003737185 37.36038 74
## [2] {CHRISTMAS GINGHAM TREE,
## TOOTHPASTE TUBE PEN} => {JAM MAKING SET PRINTED} 0.003080652 1 0.003080652 17.04045 61
## [3] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## HOT BATHS METAL SIGN,
## RED RETROSPOT CHARLOTTE BAG} => {WOODLAND CHARLOTTE BAG} 0.003030150 1 0.003030150 23.71377 60
## [4] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## STRAWBERRY CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003030150 1 0.003030150 19.14990 60
## [5] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## CHARLOTTE BAG PINK POLKADOT,
## CHOCOLATE HOT WATER BOTTLE} => {STRAWBERRY CHARLOTTE BAG} 0.003030150 1 0.003030150 27.42521 60
## [6] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## CHOCOLATE HOT WATER BOTTLE,
## RED RETROSPOT CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003181657 1 0.003181657 27.42521 63
## [7] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## CHARLOTTE BAG PINK POLKADOT,
## CHOCOLATE HOT WATER BOTTLE} => {RED RETROSPOT CHARLOTTE BAG} 0.003030150 1 0.003030150 19.14990 60
## [8] {ALARM CLOCK BAKELIKE RED,
## BLUE 3 PIECE POLKADOT CUTLERY SET,
## STRAWBERRY CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003080652 1 0.003080652 19.14990 61
## [9] {BLUE 3 PIECE POLKADOT CUTLERY SET,
## CHARLOTTE BAG PINK POLKADOT,
## STRAWBERRY CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003585677 1 0.003585677 19.14990 71
## [10] {ALARM CLOCK BAKELIKE GREEN,
## BLUE 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT CHARLOTTE BAG} => {WOODLAND CHARLOTTE BAG} 0.003030150 1 0.003030150 23.71377 60
## [11] {BLUE POLKADOT CUP,
## PINK POLKADOT BOWL,
## STRAWBERRY CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003181657 1 0.003181657 19.14990 63
## [12] {BLUE POLKADOT CUP,
## CHARLOTTE BAG PINK POLKADOT,
## PINK POLKADOT BOWL} => {RED RETROSPOT CHARLOTTE BAG} 0.003030150 1 0.003030150 19.14990 60
## [13] {BLUE POLKADOT CUP,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## STRAWBERRY CHARLOTTE BAG} => {WOODLAND CHARLOTTE BAG} 0.003030150 1 0.003030150 23.71377 60
## [14] {BLUE POLKADOT CUP,
## CHARLOTTE BAG SUKI DESIGN,
## ROUND SNACK BOXES SET OF 4 SKULLS} => {WOODLAND CHARLOTTE BAG} 0.003030150 1 0.003030150 23.71377 60
## [15] {BLUE POLKADOT CUP,
## RED RETROSPOT CHARLOTTE BAG,
## ROUND SNACK BOXES SET OF 4 SKULLS} => {WOODLAND CHARLOTTE BAG} 0.003131155 1 0.003131155 23.71377 62
## [16] {BLUE POLKADOT CUP,
## CHARLOTTE BAG PINK POLKADOT,
## RED RETROSPOT PEG BAG} => {WOODLAND CHARLOTTE BAG} 0.003030150 1 0.003030150 23.71377 60
## [17] {BLUE POLKADOT CUP,
## CHARLOTTE BAG PINK POLKADOT,
## RED RETROSPOT PEG BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003030150 1 0.003030150 19.14990 60
## [18] {BLUE POLKADOT CUP,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003333165 1 0.003333165 19.14990 66
## [19] {BLUE POLKADOT CUP,
## CIRCUS PARADE LUNCH BOX,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003181657 1 0.003181657 27.42521 63
## [20] {BLUE POLKADOT CUP,
## CIRCUS PARADE LUNCH BOX,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003181657 1 0.003181657 19.14990 63plot(rules, method = "graph", engine = "htmlwidget", measure = "lift", shading = "confidence", limit = 20)Dobili smo ukupno 17597 pravila. Nakon uklanjanja redundantnih pravila ostalo ih je 6276. Kad sortiramo pravila po nosaču, uglavnom se prikazuju proizvodi koji impliciraju kupnju ukrasa za božićna drvca. Kad sortiramo pravila po pouzdanosti, prikazuju se proizvodi koji impliciraju kupnju torbi i posuđa. Zadali smo parametre support, confidence, minlen, maxlen i target. Redundatnih pravila bilo je 11321.
subrules <- subset(rules, subset = (lhs %in% c("LUNCH BAG CARS BLUE") & lhs %in% c("RED RETROSPOT OVEN GLOVE") & lhs %in% c("WOODLAND CHARLOTTE BAG")))
subrules## set of 50 rulesinspect(head(subrules, n = 20))## lhs rhs support confidence coverage lift count
## [1] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9838710 0.003131155 26.98287 61
## [2] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003080652 0.9838710 0.003131155 22.08801 61
## [3] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003030150 0.9677419 0.003131155 18.53216 60
## [4] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {PACK OF 72 RETROSPOT CAKE CASES} 0.003030150 0.9677419 0.003131155 14.51686 60
## [5] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9838710 0.003131155 26.98287 61
## [6] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG PINK POLKADOT} 0.003030150 0.9677419 0.003131155 25.79039 60
## [7] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003030150 0.9677419 0.003131155 21.72592 60
## [8] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003131155 1.0000000 0.003131155 19.14990 62
## [9] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003535175 0.9859155 0.003585677 27.03894 70
## [10] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003535175 0.9859155 0.003585677 22.13391 70
## [11] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003484672 0.9718310 0.003585677 18.61047 69
## [12] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003131155 0.9841270 0.003181657 26.98989 62
## [13] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG PINK POLKADOT} 0.003030150 0.9523810 0.003181657 25.38102 60
## [14] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003080652 0.9682540 0.003181657 21.73741 61
## [15] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003030150 0.9523810 0.003181657 18.23800 60
## [16] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {PACK OF 72 RETROSPOT CAKE CASES} 0.003030150 0.9523810 0.003181657 14.28644 60
## [17] {CHILLI LIGHTS,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [18] {HOT BATHS METAL SIGN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9682540 0.003181657 26.55457 61
## [19] {HOT BATHS METAL SIGN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003080652 0.9682540 0.003181657 21.73741 61
## [20] {HOT BATHS METAL SIGN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003080652 0.9682540 0.003181657 18.54197 61inspect(head(subrules, n = 20, by ="lift"))## lhs rhs support confidence coverage lift count
## [1] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003535175 0.9859155 0.003585677 27.03894 70
## [2] {LUNCH BAG CARS BLUE,
## PARTY BUNTING,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003535175 0.9859155 0.003585677 27.03894 70
## [3] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003131155 0.9841270 0.003181657 26.98989 62
## [4] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9838710 0.003131155 26.98287 61
## [5] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9838710 0.003131155 26.98287 61
## [6] {CHILLI LIGHTS,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [7] {BOX OF 24 COCKTAIL PARASOLS,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [8] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## REGENCY CAKESTAND 3 TIER,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [9] {LUNCH BAG CARS BLUE,
## PACK OF 72 SKULL CAKE CASES,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 26.59414 64
## [10] {CHOCOLATE HOT WATER BOTTLE,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 26.59414 64
## [11] {ALARM CLOCK BAKELIKE RED,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 26.59414 64
## [12] {HOT BATHS METAL SIGN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9682540 0.003181657 26.55457 61
## [13] {CHARLOTTE BAG SUKI DESIGN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003989697 0.9634146 0.004141205 26.42185 79
## [14] {CHARLOTTE BAG PINK POLKADOT,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003787687 0.9615385 0.003939195 26.37039 75
## [15] {ALARM CLOCK BAKELIKE GREEN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003131155 0.9538462 0.003282662 26.15943 62
## [16] {LUNCH BAG CARS BLUE,
## LUNCH BAG RED RETROSPOT,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003131155 0.9538462 0.003282662 26.15943 62
## [17] {LUNCH BAG CARS BLUE,
## LUNCH BAG SPACEBOY DESIGN,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003030150 0.9523810 0.003181657 26.11925 60
## [18] {LUNCH BAG CARS BLUE,
## RED RETROSPOT CHARLOTTE BAG,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003939195 0.9512195 0.004141205 26.08739 78
## [19] {ALARM CLOCK BAKELIKE GREEN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG PINK POLKADOT} 0.003181657 0.9692308 0.003282662 25.83007 63
## [20] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG PINK POLKADOT} 0.003030150 0.9677419 0.003131155 25.79039 60inspect(head(subrules, n = 20, by ="confidence"))## lhs rhs support confidence coverage lift count
## [1] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003131155 1.0000000 0.003131155 19.14990 62
## [2] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003535175 0.9859155 0.003585677 27.03894 70
## [3] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003535175 0.9859155 0.003585677 22.13391 70
## [4] {LUNCH BAG CARS BLUE,
## PARTY BUNTING,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003535175 0.9859155 0.003585677 27.03894 70
## [5] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## REGENCY CAKESTAND 3 TIER,
## WOODLAND CHARLOTTE BAG} => {PACK OF 72 RETROSPOT CAKE CASES} 0.003484672 0.9857143 0.003535175 14.78646 69
## [6] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003131155 0.9841270 0.003181657 26.98989 62
## [7] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9838710 0.003131155 26.98287 61
## [8] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## ROUND SNACK BOXES SET OF 4 SKULLS,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003080652 0.9838710 0.003131155 22.08801 61
## [9] {LUNCH BAG CARS BLUE,
## PINK 3 PIECE POLKADOT CUTLERY SET,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9838710 0.003131155 26.98287 61
## [10] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## RED RETROSPOT PEG BAG,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003484672 0.9718310 0.003585677 18.61047 69
## [11] {CHILLI LIGHTS,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [12] {BOX OF 24 COCKTAIL PARASOLS,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [13] {LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## REGENCY CAKESTAND 3 TIER,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003434170 0.9714286 0.003535175 26.64163 68
## [14] {LUNCH BAG CARS BLUE,
## PACK OF 72 SKULL CAKE CASES,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 26.59414 64
## [15] {LUNCH BAG CARS BLUE,
## PACK OF 72 SKULL CAKE CASES,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {RED RETROSPOT CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 18.56960 64
## [16] {CHOCOLATE HOT WATER BOTTLE,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 26.59414 64
## [17] {ALARM CLOCK BAKELIKE RED,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003232160 0.9696970 0.003333165 26.59414 64
## [18] {ALARM CLOCK BAKELIKE GREEN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG PINK POLKADOT} 0.003181657 0.9692308 0.003282662 25.83007 63
## [19] {CERAMIC HEART FAIRY CAKE MONEY BANK,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {CHARLOTTE BAG SUKI DESIGN} 0.003080652 0.9682540 0.003181657 21.73741 61
## [20] {HOT BATHS METAL SIGN,
## LUNCH BAG CARS BLUE,
## RED RETROSPOT OVEN GLOVE,
## WOODLAND CHARLOTTE BAG} => {STRAWBERRY CHARLOTTE BAG} 0.003080652 0.9682540 0.003181657 26.55457 61plot(subrules, method = "graph", engine = "htmlwidget", measure = "lift", shading = "confidence", limit = 20)