Cesta de Votos

Vamos pensar sobre a questão do voto, sinalizando através de uma cesta factível de representantes. Além disso, como impor restrições factíveis e ativas para que se obtenha um resultado global maior.

retail <- read_excel('Online Retail.xlsx')
retail <- retail[complete.cases(retail), ]
retail<- retail %>% mutate(Description = as.factor(Description))
retai<- retail %>% mutate(Country = as.factor(Country))
retail$Date <- as.Date(retail$InvoiceDate)
retail$Time <- format(retail$InvoiceDate,"%H:%M:%S")
retail$InvoiceNo <- as.numeric(as.character(retail$InvoiceNo))
glimpse(retail)
## Rows: 406,829
## Columns: 10
## $ InvoiceNo   <dbl> 536365, 536365, 536365, 536365, 536365, 536365, 53...
## $ StockCode   <chr> "85123A", "71053", "84406B", "84029G", "84029E", "...
## $ Description <fct> WHITE HANGING HEART T-LIGHT HOLDER, WHITE METAL LA...
## $ Quantity    <dbl> 6, 6, 8, 6, 6, 2, 6, 6, 6, 32, 6, 6, 8, 6, 6, 3, 2...
## $ InvoiceDate <dttm> 2010-12-01 08:26:00, 2010-12-01 08:26:00, 2010-12...
## $ UnitPrice   <dbl> 2.55, 3.39, 2.75, 3.39, 3.39, 7.65, 4.25, 1.85, 1....
## $ CustomerID  <dbl> 17850, 17850, 17850, 17850, 17850, 17850, 17850, 1...
## $ Country     <chr> "United Kingdom", "United Kingdom", "United Kingdo...
## $ Date        <date> 2010-12-01, 2010-12-01, 2010-12-01, 2010-12-01, 2...
## $ Time        <chr> "08:26:00", "08:26:00", "08:26:00", "08:26:00", "0...

Fazendo uma breve análise gráfica

## # A tibble: 10 x 3
##    StockCode Description                         freq
##    <chr>     <fct>                              <int>
##  1 20725     LUNCH BAG RED RETROSPOT             1358
##  2 20727     LUNCH BAG  BLACK SKULL.             1126
##  3 21212     PACK OF 72 RETROSPOT CAKE CASES     1080
##  4 22423     REGENCY CAKESTAND 3 TIER            1905
##  5 22720     SET OF 3 CAKE TINS PANTRY DESIGN    1232
##  6 47566     PARTY BUNTING                       1416
##  7 84879     ASSORTED COLOUR BIRD ORNAMENT       1418
##  8 85099B    JUMBO BAG RED RETROSPOT             1662
##  9 85123A    WHITE HANGING HEART T-LIGHT HOLDER  2070
## 10 POST      POSTAGE                             1196

Agora minerando os dados

retail_sorted <- retail[order(retail$CustomerID),]
library(plyr)
## -------------------------------------------------------------------------
## You have loaded plyr after dplyr - this is likely to cause problems.
## If you need functions from both plyr and dplyr, please load plyr first, then dplyr:
## library(plyr); library(dplyr)
## -------------------------------------------------------------------------
## 
## Attaching package: 'plyr'
## The following objects are masked from 'package:dplyr':
## 
##     arrange, count, desc, failwith, id, mutate, rename, summarise,
##     summarize
## The following object is masked from 'package:purrr':
## 
##     compact
itemList <- ddply(retail,c("CustomerID","Date"), 
                       function(df1)paste(df1$Description, 
                       collapse = ","))

Precisamos agora apenas da coluna dos itens

retail <- read_excel('Online Retail.xlsx')
retail <- retail[complete.cases(retail), ]
retail$Description <-factor(retail$Description)
retail$Country <- as.factor(retail$Country)
retail$Date <- as.Date(retail$InvoiceDate)
retail$Time <- format(retail$InvoiceDate,"%H:%M:%S")
retail$InvoiceNo <- as.numeric(as.character(retail$InvoiceNo))
glimpse(retail)
## Rows: 406,829
## Columns: 10
## $ InvoiceNo   <dbl> 536365, 536365, 536365, 536365, 536365, 536365, 53...
## $ StockCode   <chr> "85123A", "71053", "84406B", "84029G", "84029E", "...
## $ Description <fct> WHITE HANGING HEART T-LIGHT HOLDER, WHITE METAL LA...
## $ Quantity    <dbl> 6, 6, 8, 6, 6, 2, 6, 6, 6, 32, 6, 6, 8, 6, 6, 3, 2...
## $ InvoiceDate <dttm> 2010-12-01 08:26:00, 2010-12-01 08:26:00, 2010-12...
## $ UnitPrice   <dbl> 2.55, 3.39, 2.75, 3.39, 3.39, 7.65, 4.25, 1.85, 1....
## $ CustomerID  <dbl> 17850, 17850, 17850, 17850, 17850, 17850, 17850, 1...
## $ Country     <fct> United Kingdom, United Kingdom, United Kingdom, Un...
## $ Date        <date> 2010-12-01, 2010-12-01, 2010-12-01, 2010-12-01, 2...
## $ Time        <chr> "08:26:00", "08:26:00", "08:26:00", "08:26:00", "0...
retail_sorted <- retail[order(retail$CustomerID),]
itemList <- ddply(retail,c("CustomerID","Date"), 
                       function(df1)paste(df1$Description, 
                       collapse = ","))
itemList$CustomerID <- NULL
itemList$Date <- NULL
colnames(itemList) <- c("items")
write.csv(itemList,"market_basket.csv", quote = FALSE, row.names = TRUE)
#tr<-as(itemList,"transactions")
tr <- read.transactions('market_basket.csv', format = 'basket', sep=',')
library(plyr)
itemFrequencyPlot(tr, topN=20, type='absolute')

Criando algumas regras

rules <- apriori(tr, parameter = list(supp=0.001, conf=0.8))
## Apriori
## 
## Parameter specification:
##  confidence minval smax arem  aval originalSupport maxtime support minlen
##         0.8    0.1    1 none FALSE            TRUE       5   0.001      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: 19 
## 
## set item appearances ...[0 item(s)] done [0.00s].
## set transactions ...[27165 item(s), 19297 transaction(s)] done [0.58s].
## sorting and recoding items ... [2407 item(s)] done [0.01s].
## creating transaction tree ... done [0.02s].
## checking subsets of size 1 2 3 4 5 6 7 8 9 10 done [1.14s].
## writing ... [87110 rule(s)] done [0.11s].
## creating S4 object  ... done [0.14s].
rules <- sort(rules, by='confidence', decreasing = TRUE)
summary(rules)
## set of 87110 rules
## 
## rule length distribution (lhs + rhs):sizes
##     2     3     4     5     6     7     8     9    10 
##   105  3133  9732 26228 29873 14020  3218   680   121 
## 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   2.000   5.000   6.000   5.627   6.000  10.000 
## 
## summary of quality measures:
##     support           confidence        coverage             lift        
##  Min.   :0.001036   Min.   :0.8000   Min.   :0.001036   Min.   :  8.781  
##  1st Qu.:0.001088   1st Qu.:0.8333   1st Qu.:0.001244   1st Qu.: 19.305  
##  Median :0.001192   Median :0.8750   Median :0.001399   Median : 24.786  
##  Mean   :0.001383   Mean   :0.8834   Mean   :0.001572   Mean   : 50.921  
##  3rd Qu.:0.001503   3rd Qu.:0.9231   3rd Qu.:0.001658   3rd Qu.: 43.662  
##  Max.   :0.018086   Max.   :1.0000   Max.   :0.021765   Max.   :622.484  
##      count       
##  Min.   : 20.00  
##  1st Qu.: 21.00  
##  Median : 23.00  
##  Mean   : 26.69  
##  3rd Qu.: 29.00  
##  Max.   :349.00  
## 
## mining info:
##  data ntransactions support confidence
##    tr         19297   0.001        0.8
topRules <- rules[1:10]
plot(topRules)
## To reduce overplotting, jitter is added! Use jitter = 0 to prevent jitter.

plot(topRules, method="graph")

plot(topRules, method = "grouped")

Simulando agora uma votação

Suponha que os eleitores sejam independentes.

rm(list = ls())
id<-rep(seq(1,1000),3)
hist(id)

ale<-rnorm(3000)
vot<-ifelse(ale<0.5,"bols",ifelse(ale<0.8,"haddad","meire"))
dt<-as.data.frame(cbind(id,vot))
dt <- split(dt$vot, dt$id)


library(arules)
dt2 = as(dt,"transactions")
## Warning in asMethod(object): removing duplicated items in transactions
# Convert data to transaction level
dt2 = as(dt,"transactions")
## Warning in asMethod(object): removing duplicated items in transactions
summary(dt2)
## transactions as itemMatrix in sparse format with
##  1000 rows (elements/itemsets/transactions) and
##  3 columns (items) and a density of 0.5866667 
## 
## most frequent items:
##    bols   meire  haddad (Other) 
##     975     515     270       0 
## 
## element (itemset/transaction) length distribution:
## sizes
##   1   2   3 
## 332 576  92 
## 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00    1.00    2.00    1.76    2.00    3.00 
## 
## includes extended item information - examples:
##   labels
## 1   bols
## 2 haddad
## 3  meire
## 
## includes extended transaction information - examples:
##   transactionID
## 1             1
## 2            10
## 3           100
inspect(dt2)
##        items               transactionID
## [1]    {bols,meire}        1            
## [2]    {bols,haddad}       10           
## [3]    {bols}              100          
## [4]    {bols,haddad,meire} 1000         
## [5]    {bols}              101          
## [6]    {bols}              102          
## [7]    {bols,meire}        103          
## [8]    {bols,haddad}       104          
## [9]    {haddad,meire}      105          
## [10]   {bols}              106          
## [11]   {bols,haddad}       107          
## [12]   {bols,haddad}       108          
## [13]   {bols,meire}        109          
## [14]   {bols,haddad}       11           
## [15]   {bols,meire}        110          
## [16]   {bols}              111          
## [17]   {bols}              112          
## [18]   {bols}              113          
## [19]   {bols}              114          
## [20]   {bols,meire}        115          
## [21]   {bols,meire}        116          
## [22]   {bols,meire}        117          
## [23]   {bols}              118          
## [24]   {bols,meire}        119          
## [25]   {bols,meire}        12           
## [26]   {bols,meire}        120          
## [27]   {bols,haddad}       121          
## [28]   {bols}              122          
## [29]   {bols,meire}        123          
## [30]   {bols,haddad,meire} 124          
## [31]   {bols}              125          
## [32]   {bols,haddad,meire} 126          
## [33]   {bols}              127          
## [34]   {bols}              128          
## [35]   {bols,haddad}       129          
## [36]   {bols,haddad,meire} 13           
## [37]   {bols}              130          
## [38]   {bols,haddad,meire} 131          
## [39]   {bols,haddad}       132          
## [40]   {bols,meire}        133          
## [41]   {bols,haddad,meire} 134          
## [42]   {bols}              135          
## [43]   {bols,meire}        136          
## [44]   {bols,haddad}       137          
## [45]   {bols,meire}        138          
## [46]   {bols,meire}        139          
## [47]   {bols,meire}        14           
## [48]   {bols,haddad}       140          
## [49]   {bols,meire}        141          
## [50]   {bols,meire}        142          
## [51]   {bols,haddad,meire} 143          
## [52]   {bols,meire}        144          
## [53]   {bols,meire}        145          
## [54]   {bols}              146          
## [55]   {bols}              147          
## [56]   {bols,meire}        148          
## [57]   {bols,meire}        149          
## [58]   {bols}              15           
## [59]   {bols,meire}        150          
## [60]   {bols,meire}        151          
## [61]   {bols,haddad,meire} 152          
## [62]   {bols,meire}        153          
## [63]   {bols,meire}        154          
## [64]   {bols,haddad,meire} 155          
## [65]   {bols,haddad}       156          
## [66]   {bols,meire}        157          
## [67]   {bols,haddad,meire} 158          
## [68]   {bols,meire}        159          
## [69]   {bols}              16           
## [70]   {bols}              160          
## [71]   {bols}              161          
## [72]   {bols,haddad}       162          
## [73]   {bols}              163          
## [74]   {bols,haddad,meire} 164          
## [75]   {bols,haddad}       165          
## [76]   {bols}              166          
## [77]   {bols,meire}        167          
## [78]   {bols,meire}        168          
## [79]   {bols,haddad}       169          
## [80]   {bols,haddad}       17           
## [81]   {bols,haddad,meire} 170          
## [82]   {bols,meire}        171          
## [83]   {bols}              172          
## [84]   {bols}              173          
## [85]   {bols,haddad}       174          
## [86]   {bols,haddad,meire} 175          
## [87]   {bols,haddad,meire} 176          
## [88]   {bols}              177          
## [89]   {bols,meire}        178          
## [90]   {bols,meire}        179          
## [91]   {bols}              18           
## [92]   {bols}              180          
## [93]   {bols}              181          
## [94]   {bols}              182          
## [95]   {bols,meire}        183          
## [96]   {bols,haddad,meire} 184          
## [97]   {bols,meire}        185          
## [98]   {bols}              186          
## [99]   {bols}              187          
## [100]  {bols,meire}        188          
## [101]  {bols,meire}        189          
## [102]  {bols,meire}        19           
## [103]  {bols,meire}        190          
## [104]  {bols,haddad}       191          
## [105]  {bols,haddad}       192          
## [106]  {bols,haddad}       193          
## [107]  {bols,meire}        194          
## [108]  {bols,haddad,meire} 195          
## [109]  {bols,haddad,meire} 196          
## [110]  {bols,meire}        197          
## [111]  {bols}              198          
## [112]  {bols,meire}        199          
## [113]  {bols,meire}        2            
## [114]  {bols,meire}        20           
## [115]  {bols}              200          
## [116]  {bols,meire}        201          
## [117]  {bols,meire}        202          
## [118]  {bols,meire}        203          
## [119]  {bols,meire}        204          
## [120]  {bols}              205          
## [121]  {bols,meire}        206          
## [122]  {bols,meire}        207          
## [123]  {bols,haddad}       208          
## [124]  {bols,meire}        209          
## [125]  {bols}              21           
## [126]  {bols}              210          
## [127]  {bols,meire}        211          
## [128]  {bols,meire}        212          
## [129]  {bols,haddad,meire} 213          
## [130]  {bols,meire}        214          
## [131]  {bols,meire}        215          
## [132]  {bols}              216          
## [133]  {bols,meire}        217          
## [134]  {bols,haddad}       218          
## [135]  {bols,haddad}       219          
## [136]  {bols}              22           
## [137]  {bols,haddad,meire} 220          
## [138]  {bols}              221          
## [139]  {bols,meire}        222          
## [140]  {bols,haddad}       223          
## [141]  {bols,haddad,meire} 224          
## [142]  {bols,meire}        225          
## [143]  {bols,meire}        226          
## [144]  {bols,meire}        227          
## [145]  {bols}              228          
## [146]  {bols}              229          
## [147]  {bols,haddad,meire} 23           
## [148]  {bols,haddad,meire} 230          
## [149]  {bols,meire}        231          
## [150]  {bols,meire}        232          
## [151]  {bols,meire}        233          
## [152]  {bols,haddad}       234          
## [153]  {bols,meire}        235          
## [154]  {bols}              236          
## [155]  {bols}              237          
## [156]  {bols,haddad}       238          
## [157]  {bols,haddad,meire} 239          
## [158]  {bols}              24           
## [159]  {bols}              240          
## [160]  {bols,haddad,meire} 241          
## [161]  {bols,haddad}       242          
## [162]  {bols}              243          
## [163]  {bols}              244          
## [164]  {bols,haddad}       245          
## [165]  {bols,meire}        246          
## [166]  {bols,meire}        247          
## [167]  {bols,haddad}       248          
## [168]  {meire}             249          
## [169]  {bols,meire}        25           
## [170]  {bols}              250          
## [171]  {bols,haddad,meire} 251          
## [172]  {bols,meire}        252          
## [173]  {bols}              253          
## [174]  {bols,haddad}       254          
## [175]  {bols}              255          
## [176]  {bols,meire}        256          
## [177]  {bols}              257          
## [178]  {bols,haddad}       258          
## [179]  {bols}              259          
## [180]  {bols}              26           
## [181]  {bols,haddad}       260          
## [182]  {bols,meire}        261          
## [183]  {bols,haddad}       262          
## [184]  {bols,meire}        263          
## [185]  {bols,meire}        264          
## [186]  {bols,haddad}       265          
## [187]  {bols,haddad}       266          
## [188]  {bols}              267          
## [189]  {bols,haddad}       268          
## [190]  {bols,haddad,meire} 269          
## [191]  {bols,haddad,meire} 27           
## [192]  {bols,meire}        270          
## [193]  {bols,meire}        271          
## [194]  {bols,meire}        272          
## [195]  {bols,meire}        273          
## [196]  {bols}              274          
## [197]  {haddad,meire}      275          
## [198]  {bols}              276          
## [199]  {bols,meire}        277          
## [200]  {bols,meire}        278          
## [201]  {meire}             279          
## [202]  {bols,meire}        28           
## [203]  {bols,meire}        280          
## [204]  {haddad,meire}      281          
## [205]  {bols}              282          
## [206]  {bols,meire}        283          
## [207]  {bols}              284          
## [208]  {bols}              285          
## [209]  {bols,haddad}       286          
## [210]  {bols,haddad}       287          
## [211]  {haddad,meire}      288          
## [212]  {bols,meire}        289          
## [213]  {bols,meire}        29           
## [214]  {bols}              290          
## [215]  {bols}              291          
## [216]  {bols,meire}        292          
## [217]  {bols,meire}        293          
## [218]  {bols,meire}        294          
## [219]  {bols,meire}        295          
## [220]  {bols,haddad}       296          
## [221]  {bols,meire}        297          
## [222]  {bols}              298          
## [223]  {bols,meire}        299          
## [224]  {bols,meire}        3            
## [225]  {bols}              30           
## [226]  {bols}              300          
## [227]  {bols}              301          
## [228]  {bols,meire}        302          
## [229]  {bols}              303          
## [230]  {bols,meire}        304          
## [231]  {bols}              305          
## [232]  {bols,haddad}       306          
## [233]  {bols,meire}        307          
## [234]  {bols,meire}        308          
## [235]  {bols,haddad}       309          
## [236]  {bols,meire}        31           
## [237]  {bols,meire}        310          
## [238]  {bols}              311          
## [239]  {bols,haddad,meire} 312          
## [240]  {bols}              313          
## [241]  {bols,meire}        314          
## [242]  {bols,haddad}       315          
## [243]  {bols}              316          
## [244]  {bols,meire}        317          
## [245]  {bols,meire}        318          
## [246]  {bols,meire}        319          
## [247]  {bols,meire}        32           
## [248]  {bols,meire}        320          
## [249]  {bols}              321          
## [250]  {bols}              322          
## [251]  {bols,haddad}       323          
## [252]  {bols,meire}        324          
## [253]  {bols,meire}        325          
## [254]  {bols,haddad}       326          
## [255]  {bols,haddad}       327          
## [256]  {bols,meire}        328          
## [257]  {bols}              329          
## [258]  {bols,haddad,meire} 33           
## [259]  {bols,haddad}       330          
## [260]  {bols,haddad,meire} 331          
## [261]  {bols}              332          
## [262]  {bols,meire}        333          
## [263]  {bols,meire}        334          
## [264]  {bols,haddad}       335          
## [265]  {bols,meire}        336          
## [266]  {meire}             337          
## [267]  {bols,haddad}       338          
## [268]  {bols,haddad}       339          
## [269]  {bols,haddad,meire} 34           
## [270]  {bols,meire}        340          
## [271]  {bols,haddad}       341          
## [272]  {bols}              342          
## [273]  {bols,meire}        343          
## [274]  {bols,meire}        344          
## [275]  {bols,meire}        345          
## [276]  {bols,meire}        346          
## [277]  {bols,meire}        347          
## [278]  {bols}              348          
## [279]  {bols,meire}        349          
## [280]  {bols,meire}        35           
## [281]  {bols,haddad}       350          
## [282]  {bols}              351          
## [283]  {meire}             352          
## [284]  {bols,meire}        353          
## [285]  {bols}              354          
## [286]  {bols,meire}        355          
## [287]  {bols}              356          
## [288]  {bols,meire}        357          
## [289]  {bols,haddad,meire} 358          
## [290]  {bols,meire}        359          
## [291]  {bols,meire}        36           
## [292]  {bols}              360          
## [293]  {bols,haddad}       361          
## [294]  {bols,meire}        362          
## [295]  {bols,haddad}       363          
## [296]  {bols}              364          
## [297]  {bols}              365          
## [298]  {bols,haddad}       366          
## [299]  {bols,haddad}       367          
## [300]  {bols}              368          
## [301]  {bols}              369          
## [302]  {bols,meire}        37           
## [303]  {bols,haddad,meire} 370          
## [304]  {bols}              371          
## [305]  {bols,haddad}       372          
## [306]  {bols,haddad,meire} 373          
## [307]  {bols,meire}        374          
## [308]  {bols,meire}        375          
## [309]  {bols,meire}        376          
## [310]  {bols,meire}        377          
## [311]  {bols,meire}        378          
## [312]  {bols}              379          
## [313]  {bols,meire}        38           
## [314]  {bols,meire}        380          
## [315]  {bols,haddad,meire} 381          
## [316]  {bols,meire}        382          
## [317]  {bols}              383          
## [318]  {bols}              384          
## [319]  {bols}              385          
## [320]  {bols,meire}        386          
## [321]  {bols,haddad}       387          
## [322]  {bols,haddad}       388          
## [323]  {bols}              389          
## [324]  {bols,meire}        39           
## [325]  {haddad,meire}      390          
## [326]  {bols}              391          
## [327]  {bols,meire}        392          
## [328]  {bols}              393          
## [329]  {bols,haddad,meire} 394          
## [330]  {bols,haddad}       395          
## [331]  {bols,haddad}       396          
## [332]  {bols,meire}        397          
## [333]  {bols,meire}        398          
## [334]  {bols,haddad}       399          
## [335]  {bols,meire}        4            
## [336]  {bols}              40           
## [337]  {bols,haddad}       400          
## [338]  {bols,meire}        401          
## [339]  {bols,meire}        402          
## [340]  {bols,meire}        403          
## [341]  {meire}             404          
## [342]  {bols,meire}        405          
## [343]  {bols,meire}        406          
## [344]  {bols,haddad}       407          
## [345]  {bols,haddad}       408          
## [346]  {bols}              409          
## [347]  {bols,meire}        41           
## [348]  {bols}              410          
## [349]  {bols,meire}        411          
## [350]  {bols,meire}        412          
## [351]  {bols}              413          
## [352]  {bols,meire}        414          
## [353]  {bols,meire}        415          
## [354]  {bols,meire}        416          
## [355]  {bols}              417          
## [356]  {bols,haddad}       418          
## [357]  {bols,haddad}       419          
## [358]  {bols,meire}        42           
## [359]  {bols,haddad}       420          
## [360]  {bols}              421          
## [361]  {bols,haddad}       422          
## [362]  {bols,meire}        423          
## [363]  {bols}              424          
## [364]  {haddad,meire}      425          
## [365]  {bols,meire}        426          
## [366]  {bols,meire}        427          
## [367]  {bols,meire}        428          
## [368]  {haddad,meire}      429          
## [369]  {haddad,meire}      43           
## [370]  {bols,meire}        430          
## [371]  {bols,meire}        431          
## [372]  {bols,meire}        432          
## [373]  {bols,haddad,meire} 433          
## [374]  {bols,haddad,meire} 434          
## [375]  {bols,meire}        435          
## [376]  {bols}              436          
## [377]  {bols,meire}        437          
## [378]  {meire}             438          
## [379]  {bols,meire}        439          
## [380]  {bols,haddad,meire} 44           
## [381]  {bols,haddad}       440          
## [382]  {bols}              441          
## [383]  {bols,meire}        442          
## [384]  {bols,meire}        443          
## [385]  {bols,meire}        444          
## [386]  {bols}              445          
## [387]  {bols}              446          
## [388]  {bols,haddad}       447          
## [389]  {bols}              448          
## [390]  {bols,haddad,meire} 449          
## [391]  {bols,meire}        45           
## [392]  {bols,haddad,meire} 450          
## [393]  {bols,meire}        451          
## [394]  {bols,meire}        452          
## [395]  {bols,meire}        453          
## [396]  {bols,meire}        454          
## [397]  {bols,haddad}       455          
## [398]  {bols,haddad}       456          
## [399]  {bols}              457          
## [400]  {bols}              458          
## [401]  {bols}              459          
## [402]  {bols}              46           
## [403]  {bols,haddad,meire} 460          
## [404]  {bols,meire}        461          
## [405]  {bols}              462          
## [406]  {bols}              463          
## [407]  {bols,haddad}       464          
## [408]  {bols}              465          
## [409]  {bols,meire}        466          
## [410]  {bols}              467          
## [411]  {bols}              468          
## [412]  {bols}              469          
## [413]  {bols,meire}        47           
## [414]  {bols,haddad}       470          
## [415]  {bols,meire}        471          
## [416]  {bols}              472          
## [417]  {bols,haddad,meire} 473          
## [418]  {bols,meire}        474          
## [419]  {bols,meire}        475          
## [420]  {bols}              476          
## [421]  {bols}              477          
## [422]  {bols,meire}        478          
## [423]  {bols}              479          
## [424]  {bols}              48           
## [425]  {bols,meire}        480          
## [426]  {bols,haddad}       481          
## [427]  {bols}              482          
## [428]  {bols}              483          
## [429]  {bols,meire}        484          
## [430]  {bols,meire}        485          
## [431]  {bols,meire}        486          
## [432]  {haddad,meire}      487          
## [433]  {bols}              488          
## [434]  {bols,haddad,meire} 489          
## [435]  {bols}              49           
## [436]  {bols}              490          
## [437]  {bols}              491          
## [438]  {bols,haddad}       492          
## [439]  {bols,haddad}       493          
## [440]  {bols,meire}        494          
## [441]  {bols,meire}        495          
## [442]  {bols}              496          
## [443]  {bols,haddad}       497          
## [444]  {bols}              498          
## [445]  {bols}              499          
## [446]  {bols,meire}        5            
## [447]  {bols,haddad,meire} 50           
## [448]  {bols}              500          
## [449]  {bols}              501          
## [450]  {bols,meire}        502          
## [451]  {bols}              503          
## [452]  {bols}              504          
## [453]  {bols,meire}        505          
## [454]  {bols,meire}        506          
## [455]  {bols}              507          
## [456]  {bols,meire}        508          
## [457]  {bols}              509          
## [458]  {bols}              51           
## [459]  {bols,meire}        510          
## [460]  {bols}              511          
## [461]  {bols}              512          
## [462]  {bols,meire}        513          
## [463]  {bols,meire}        514          
## [464]  {haddad,meire}      515          
## [465]  {bols,meire}        516          
## [466]  {bols,meire}        517          
## [467]  {bols,haddad,meire} 518          
## [468]  {bols}              519          
## [469]  {bols,haddad,meire} 52           
## [470]  {bols}              520          
## [471]  {bols,meire}        521          
## [472]  {bols}              522          
## [473]  {bols,haddad}       523          
## [474]  {bols,meire}        524          
## [475]  {bols,haddad}       525          
## [476]  {bols}              526          
## [477]  {bols}              527          
## [478]  {bols,meire}        528          
## [479]  {bols}              529          
## [480]  {haddad,meire}      53           
## [481]  {bols,haddad}       530          
## [482]  {bols,meire}        531          
## [483]  {bols,haddad,meire} 532          
## [484]  {bols,meire}        533          
## [485]  {bols}              534          
## [486]  {haddad,meire}      535          
## [487]  {bols,haddad}       536          
## [488]  {bols}              537          
## [489]  {bols,meire}        538          
## [490]  {bols,haddad}       539          
## [491]  {bols}              54           
## [492]  {bols,haddad}       540          
## [493]  {bols,meire}        541          
## [494]  {bols,meire}        542          
## [495]  {bols}              543          
## [496]  {bols,meire}        544          
## [497]  {bols,haddad}       545          
## [498]  {bols}              546          
## [499]  {bols}              547          
## [500]  {bols}              548          
## [501]  {bols}              549          
## [502]  {bols,meire}        55           
## [503]  {bols,haddad}       550          
## [504]  {bols,meire}        551          
## [505]  {bols,meire}        552          
## [506]  {bols}              553          
## [507]  {bols,haddad,meire} 554          
## [508]  {bols,haddad}       555          
## [509]  {bols,meire}        556          
## [510]  {bols,haddad}       557          
## [511]  {bols}              558          
## [512]  {bols,meire}        559          
## [513]  {bols,haddad,meire} 56           
## [514]  {bols,meire}        560          
## [515]  {bols,haddad}       561          
## [516]  {bols}              562          
## [517]  {bols,haddad,meire} 563          
## [518]  {bols,meire}        564          
## [519]  {bols}              565          
## [520]  {bols,meire}        566          
## [521]  {bols}              567          
## [522]  {bols}              568          
## [523]  {bols,meire}        569          
## [524]  {bols,meire}        57           
## [525]  {bols,meire}        570          
## [526]  {bols}              571          
## [527]  {bols,meire}        572          
## [528]  {bols,meire}        573          
## [529]  {bols}              574          
## [530]  {bols,haddad}       575          
## [531]  {bols,meire}        576          
## [532]  {bols,meire}        577          
## [533]  {bols,haddad,meire} 578          
## [534]  {bols}              579          
## [535]  {bols,haddad,meire} 58           
## [536]  {bols}              580          
## [537]  {bols}              581          
## [538]  {bols,meire}        582          
## [539]  {bols}              583          
## [540]  {bols}              584          
## [541]  {bols}              585          
## [542]  {bols}              586          
## [543]  {bols}              587          
## [544]  {bols,haddad}       588          
## [545]  {bols}              589          
## [546]  {bols,meire}        59           
## [547]  {bols}              590          
## [548]  {bols,haddad,meire} 591          
## [549]  {bols}              592          
## [550]  {bols,meire}        593          
## [551]  {bols}              594          
## [552]  {bols,meire}        595          
## [553]  {bols,meire}        596          
## [554]  {bols,meire}        597          
## [555]  {bols}              598          
## [556]  {bols,haddad,meire} 599          
## [557]  {bols,meire}        6            
## [558]  {bols}              60           
## [559]  {bols}              600          
## [560]  {bols}              601          
## [561]  {bols,meire}        602          
## [562]  {bols,meire}        603          
## [563]  {bols,meire}        604          
## [564]  {bols}              605          
## [565]  {bols}              606          
## [566]  {bols,meire}        607          
## [567]  {bols,meire}        608          
## [568]  {bols,haddad}       609          
## [569]  {bols,haddad,meire} 61           
## [570]  {bols}              610          
## [571]  {bols,meire}        611          
## [572]  {bols,meire}        612          
## [573]  {bols,meire}        613          
## [574]  {bols,meire}        614          
## [575]  {bols}              615          
## [576]  {bols,meire}        616          
## [577]  {bols}              617          
## [578]  {bols,meire}        618          
## [579]  {bols,meire}        619          
## [580]  {bols}              62           
## [581]  {bols,meire}        620          
## [582]  {bols}              621          
## [583]  {bols,haddad}       622          
## [584]  {bols}              623          
## [585]  {bols,meire}        624          
## [586]  {bols}              625          
## [587]  {bols}              626          
## [588]  {bols}              627          
## [589]  {bols,meire}        628          
## [590]  {bols}              629          
## [591]  {bols,haddad,meire} 63           
## [592]  {bols}              630          
## [593]  {bols,haddad}       631          
## [594]  {bols,meire}        632          
## [595]  {bols,meire}        633          
## [596]  {bols,meire}        634          
## [597]  {bols,haddad,meire} 635          
## [598]  {bols,haddad,meire} 636          
## [599]  {bols}              637          
## [600]  {bols}              638          
## [601]  {bols,haddad}       639          
## [602]  {bols,haddad,meire} 64           
## [603]  {bols}              640          
## [604]  {bols}              641          
## [605]  {haddad,meire}      642          
## [606]  {bols,meire}        643          
## [607]  {bols}              644          
## [608]  {bols}              645          
## [609]  {bols,meire}        646          
## [610]  {bols,haddad,meire} 647          
## [611]  {bols,meire}        648          
## [612]  {bols,haddad}       649          
## [613]  {bols,haddad,meire} 65           
## [614]  {bols}              650          
## [615]  {bols,meire}        651          
## [616]  {bols,meire}        652          
## [617]  {bols,haddad}       653          
## [618]  {bols,meire}        654          
## [619]  {bols,meire}        655          
## [620]  {bols}              656          
## [621]  {bols}              657          
## [622]  {bols}              658          
## [623]  {bols,haddad,meire} 659          
## [624]  {bols,haddad,meire} 66           
## [625]  {bols}              660          
## [626]  {bols}              661          
## [627]  {bols,meire}        662          
## [628]  {bols}              663          
## [629]  {bols}              664          
## [630]  {bols}              665          
## [631]  {bols}              666          
## [632]  {bols,meire}        667          
## [633]  {bols}              668          
## [634]  {bols}              669          
## [635]  {bols,meire}        67           
## [636]  {bols,haddad}       670          
## [637]  {bols,meire}        671          
## [638]  {bols,meire}        672          
## [639]  {bols,meire}        673          
## [640]  {bols,meire}        674          
## [641]  {bols,meire}        675          
## [642]  {bols,meire}        676          
## [643]  {bols}              677          
## [644]  {haddad,meire}      678          
## [645]  {bols,haddad,meire} 679          
## [646]  {bols,meire}        68           
## [647]  {bols,haddad,meire} 680          
## [648]  {bols}              681          
## [649]  {bols}              682          
## [650]  {bols,meire}        683          
## [651]  {bols,meire}        684          
## [652]  {bols,meire}        685          
## [653]  {bols,meire}        686          
## [654]  {bols,meire}        687          
## [655]  {bols,meire}        688          
## [656]  {haddad}            689          
## [657]  {bols,meire}        69           
## [658]  {bols}              690          
## [659]  {bols,meire}        691          
## [660]  {bols,haddad}       692          
## [661]  {bols,meire}        693          
## [662]  {bols,meire}        694          
## [663]  {bols}              695          
## [664]  {bols}              696          
## [665]  {bols}              697          
## [666]  {bols}              698          
## [667]  {bols}              699          
## [668]  {bols,meire}        7            
## [669]  {bols,meire}        70           
## [670]  {bols,haddad}       700          
## [671]  {bols,meire}        701          
## [672]  {bols,meire}        702          
## [673]  {bols,haddad,meire} 703          
## [674]  {bols,meire}        704          
## [675]  {bols}              705          
## [676]  {bols}              706          
## [677]  {bols,meire}        707          
## [678]  {bols}              708          
## [679]  {bols,meire}        709          
## [680]  {bols,haddad}       71           
## [681]  {bols,meire}        710          
## [682]  {bols}              711          
## [683]  {bols,haddad,meire} 712          
## [684]  {bols,meire}        713          
## [685]  {bols,haddad}       714          
## [686]  {haddad,meire}      715          
## [687]  {bols,haddad}       716          
## [688]  {bols,meire}        717          
## [689]  {bols}              718          
## [690]  {bols,haddad}       719          
## [691]  {bols}              72           
## [692]  {bols,haddad}       720          
## [693]  {bols,meire}        721          
## [694]  {bols}              722          
## [695]  {bols,meire}        723          
## [696]  {bols,haddad,meire} 724          
## [697]  {bols}              725          
## [698]  {bols,haddad}       726          
## [699]  {bols,haddad,meire} 727          
## [700]  {bols,haddad}       728          
## [701]  {bols,meire}        729          
## [702]  {bols,meire}        73           
## [703]  {bols,meire}        730          
## [704]  {bols}              731          
## [705]  {bols,meire}        732          
## [706]  {bols,haddad}       733          
## [707]  {bols}              734          
## [708]  {bols}              735          
## [709]  {bols}              736          
## [710]  {bols}              737          
## [711]  {bols,haddad}       738          
## [712]  {bols,meire}        739          
## [713]  {bols}              74           
## [714]  {bols}              740          
## [715]  {bols,meire}        741          
## [716]  {bols,meire}        742          
## [717]  {bols,meire}        743          
## [718]  {bols,meire}        744          
## [719]  {bols,haddad}       745          
## [720]  {bols,haddad}       746          
## [721]  {bols}              747          
## [722]  {bols,meire}        748          
## [723]  {bols,haddad}       749          
## [724]  {bols,meire}        75           
## [725]  {bols,haddad}       750          
## [726]  {bols}              751          
## [727]  {bols}              752          
## [728]  {bols}              753          
## [729]  {bols,meire}        754          
## [730]  {bols,meire}        755          
## [731]  {bols,haddad}       756          
## [732]  {bols,meire}        757          
## [733]  {bols,meire}        758          
## [734]  {bols}              759          
## [735]  {bols}              76           
## [736]  {bols}              760          
## [737]  {bols,meire}        761          
## [738]  {bols,haddad,meire} 762          
## [739]  {bols,meire}        763          
## [740]  {bols,meire}        764          
## [741]  {bols}              765          
## [742]  {bols}              766          
## [743]  {bols,meire}        767          
## [744]  {bols,haddad}       768          
## [745]  {bols,meire}        769          
## [746]  {bols,meire}        77           
## [747]  {bols,meire}        770          
## [748]  {bols}              771          
## [749]  {bols,meire}        772          
## [750]  {bols,haddad,meire} 773          
## [751]  {bols}              774          
## [752]  {bols,haddad,meire} 775          
## [753]  {bols,haddad,meire} 776          
## [754]  {bols,meire}        777          
## [755]  {bols}              778          
## [756]  {bols,haddad}       779          
## [757]  {bols}              78           
## [758]  {bols,haddad}       780          
## [759]  {bols}              781          
## [760]  {bols,meire}        782          
## [761]  {bols,meire}        783          
## [762]  {bols,meire}        784          
## [763]  {bols,meire}        785          
## [764]  {bols,haddad}       786          
## [765]  {bols,meire}        787          
## [766]  {bols}              788          
## [767]  {bols,meire}        789          
## [768]  {bols,haddad,meire} 79           
## [769]  {bols}              790          
## [770]  {bols,meire}        791          
## [771]  {bols}              792          
## [772]  {bols,haddad}       793          
## [773]  {bols,meire}        794          
## [774]  {bols}              795          
## [775]  {bols,meire}        796          
## [776]  {bols,meire}        797          
## [777]  {bols,meire}        798          
## [778]  {bols}              799          
## [779]  {bols,meire}        8            
## [780]  {bols,meire}        80           
## [781]  {bols}              800          
## [782]  {bols}              801          
## [783]  {bols}              802          
## [784]  {bols}              803          
## [785]  {bols}              804          
## [786]  {haddad,meire}      805          
## [787]  {bols,meire}        806          
## [788]  {bols,haddad}       807          
## [789]  {bols}              808          
## [790]  {bols,meire}        809          
## [791]  {bols,haddad}       81           
## [792]  {bols,haddad}       810          
## [793]  {bols,meire}        811          
## [794]  {bols}              812          
## [795]  {bols,meire}        813          
## [796]  {bols}              814          
## [797]  {bols,meire}        815          
## [798]  {bols,haddad}       816          
## [799]  {bols}              817          
## [800]  {bols,haddad,meire} 818          
## [801]  {bols,haddad}       819          
## [802]  {bols,haddad}       82           
## [803]  {bols}              820          
## [804]  {bols}              821          
## [805]  {bols,haddad}       822          
## [806]  {bols,haddad,meire} 823          
## [807]  {bols,haddad,meire} 824          
## [808]  {bols,haddad}       825          
## [809]  {bols}              826          
## [810]  {bols,meire}        827          
## [811]  {bols,meire}        828          
## [812]  {bols,haddad,meire} 829          
## [813]  {bols,meire}        83           
## [814]  {bols}              830          
## [815]  {bols}              831          
## [816]  {bols,meire}        832          
## [817]  {bols,meire}        833          
## [818]  {bols,haddad,meire} 834          
## [819]  {bols,meire}        835          
## [820]  {bols,haddad}       836          
## [821]  {bols}              837          
## [822]  {bols,meire}        838          
## [823]  {bols}              839          
## [824]  {bols,meire}        84           
## [825]  {meire}             840          
## [826]  {bols}              841          
## [827]  {bols,haddad}       842          
## [828]  {bols,haddad}       843          
## [829]  {bols}              844          
## [830]  {bols,haddad}       845          
## [831]  {bols}              846          
## [832]  {bols}              847          
## [833]  {bols}              848          
## [834]  {bols,meire}        849          
## [835]  {bols,meire}        85           
## [836]  {bols}              850          
## [837]  {bols}              851          
## [838]  {bols}              852          
## [839]  {bols}              853          
## [840]  {bols}              854          
## [841]  {bols}              855          
## [842]  {bols,meire}        856          
## [843]  {bols}              857          
## [844]  {bols}              858          
## [845]  {bols}              859          
## [846]  {bols,meire}        86           
## [847]  {bols}              860          
## [848]  {bols,haddad}       861          
## [849]  {bols}              862          
## [850]  {bols,meire}        863          
## [851]  {bols,meire}        864          
## [852]  {bols}              865          
## [853]  {bols,meire}        866          
## [854]  {bols,meire}        867          
## [855]  {bols,haddad}       868          
## [856]  {bols,haddad,meire} 869          
## [857]  {bols,meire}        87           
## [858]  {bols,meire}        870          
## [859]  {bols,haddad,meire} 871          
## [860]  {bols,haddad}       872          
## [861]  {bols,meire}        873          
## [862]  {bols}              874          
## [863]  {bols,meire}        875          
## [864]  {bols,meire}        876          
## [865]  {bols,meire}        877          
## [866]  {bols,haddad}       878          
## [867]  {bols,meire}        879          
## [868]  {bols,haddad}       88           
## [869]  {bols}              880          
## [870]  {bols,meire}        881          
## [871]  {bols,meire}        882          
## [872]  {bols}              883          
## [873]  {bols,meire}        884          
## [874]  {haddad,meire}      885          
## [875]  {bols,meire}        886          
## [876]  {bols,haddad}       887          
## [877]  {bols,haddad}       888          
## [878]  {bols}              889          
## [879]  {bols,meire}        89           
## [880]  {bols}              890          
## [881]  {bols}              891          
## [882]  {bols,meire}        892          
## [883]  {bols,haddad}       893          
## [884]  {bols}              894          
## [885]  {bols,meire}        895          
## [886]  {bols,meire}        896          
## [887]  {bols,meire}        897          
## [888]  {bols,meire}        898          
## [889]  {bols,meire}        899          
## [890]  {bols,haddad}       9            
## [891]  {bols}              90           
## [892]  {bols,meire}        900          
## [893]  {bols,haddad,meire} 901          
## [894]  {bols}              902          
## [895]  {bols,meire}        903          
## [896]  {bols}              904          
## [897]  {bols,haddad}       905          
## [898]  {bols,meire}        906          
## [899]  {bols}              907          
## [900]  {bols}              908          
## [901]  {bols,haddad,meire} 909          
## [902]  {bols,meire}        91           
## [903]  {bols}              910          
## [904]  {bols,meire}        911          
## [905]  {bols}              912          
## [906]  {bols,meire}        913          
## [907]  {bols,meire}        914          
## [908]  {bols}              915          
## [909]  {bols}              916          
## [910]  {bols}              917          
## [911]  {bols,haddad}       918          
## [912]  {bols,haddad}       919          
## [913]  {bols,meire}        92           
## [914]  {bols}              920          
## [915]  {bols,haddad,meire} 921          
## [916]  {bols,meire}        922          
## [917]  {bols}              923          
## [918]  {bols}              924          
## [919]  {bols,meire}        925          
## [920]  {bols,haddad}       926          
## [921]  {bols,haddad}       927          
## [922]  {bols,haddad,meire} 928          
## [923]  {bols,meire}        929          
## [924]  {bols}              93           
## [925]  {bols,meire}        930          
## [926]  {bols,haddad}       931          
## [927]  {bols,haddad}       932          
## [928]  {bols,meire}        933          
## [929]  {bols,meire}        934          
## [930]  {bols,haddad}       935          
## [931]  {bols,haddad}       936          
## [932]  {bols,meire}        937          
## [933]  {bols,meire}        938          
## [934]  {bols}              939          
## [935]  {bols,meire}        94           
## [936]  {bols,haddad}       940          
## [937]  {bols,meire}        941          
## [938]  {bols,meire}        942          
## [939]  {bols,meire}        943          
## [940]  {bols,meire}        944          
## [941]  {bols,meire}        945          
## [942]  {bols,meire}        946          
## [943]  {bols,meire}        947          
## [944]  {bols}              948          
## [945]  {bols}              949          
## [946]  {bols,meire}        95           
## [947]  {bols,haddad,meire} 950          
## [948]  {bols,haddad}       951          
## [949]  {bols}              952          
## [950]  {bols,haddad}       953          
## [951]  {bols,haddad}       954          
## [952]  {bols}              955          
## [953]  {bols,meire}        956          
## [954]  {bols}              957          
## [955]  {bols}              958          
## [956]  {bols,meire}        959          
## [957]  {bols}              96           
## [958]  {bols}              960          
## [959]  {bols,meire}        961          
## [960]  {bols,haddad,meire} 962          
## [961]  {bols,haddad}       963          
## [962]  {bols,haddad}       964          
## [963]  {bols,haddad,meire} 965          
## [964]  {bols,haddad}       966          
## [965]  {bols,haddad,meire} 967          
## [966]  {bols,meire}        968          
## [967]  {bols,haddad}       969          
## [968]  {bols}              97           
## [969]  {bols}              970          
## [970]  {bols,meire}        971          
## [971]  {bols,meire}        972          
## [972]  {bols,meire}        973          
## [973]  {bols,haddad,meire} 974          
## [974]  {bols}              975          
## [975]  {bols}              976          
## [976]  {bols,meire}        977          
## [977]  {bols}              978          
## [978]  {bols,meire}        979          
## [979]  {bols}              98           
## [980]  {bols,haddad}       980          
## [981]  {bols,haddad}       981          
## [982]  {bols}              982          
## [983]  {bols,haddad}       983          
## [984]  {bols,meire}        984          
## [985]  {bols,haddad,meire} 985          
## [986]  {bols,meire}        986          
## [987]  {bols,meire}        987          
## [988]  {bols}              988          
## [989]  {bols,meire}        989          
## [990]  {bols,meire}        99           
## [991]  {bols}              990          
## [992]  {bols,haddad}       991          
## [993]  {bols,meire}        992          
## [994]  {bols,meire}        993          
## [995]  {bols,meire}        994          
## [996]  {bols}              995          
## [997]  {bols}              996          
## [998]  {bols,meire}        997          
## [999]  {bols,meire}        998          
## [1000] {bols,meire}        999
# Most Frequent Items
sum(itemFrequency(dt2, type = "relative"))
## [1] 1.76
itemFrequencyPlot(dt2,topN = 3)

rules <- apriori(dt2, parameter = list(supp=0.001, conf=0.8))
## Apriori
## 
## Parameter specification:
##  confidence minval smax arem  aval originalSupport maxtime support minlen
##         0.8    0.1    1 none FALSE            TRUE       5   0.001      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: 1 
## 
## set item appearances ...[0 item(s)] done [0.00s].
## set transactions ...[3 item(s), 1000 transaction(s)] done [0.00s].
## sorting and recoding items ... [3 item(s)] done [0.00s].
## creating transaction tree ... done [0.00s].
## checking subsets of size 1 2 3 done [0.00s].
## writing ... [4 rule(s)] done [0.00s].
## creating S4 object  ... done [0.00s].
rules<-sort(rules, decreasing=TRUE,by="confidence")
inspect(rules)
##     lhs               rhs    support confidence coverage lift      count
## [1] {}             => {bols} 0.975   0.9750000  1.000    1.0000000 975  
## [2] {meire}        => {bols} 0.491   0.9533981  0.515    0.9778442 491  
## [3] {haddad}       => {bols} 0.252   0.9333333  0.270    0.9572650 252  
## [4] {haddad,meire} => {bols} 0.092   0.8440367  0.109    0.8656787  92
plot(rules)

plot(rules, method="graph")

plot(rules, method = "grouped")

Agora com dependência

rm(list = ls())
library(tidyselect)
## Warning: package 'tidyselect' was built under R version 3.6.3
library("mvtnorm")
## Warning: package 'mvtnorm' was built under R version 3.6.2
sigma=matrix(c(1,-0.5,-0.6,-0.5,1,0.7,-0.6,0.7,1),nrow=3,ncol=3,byrow = TRUE)
x <- rmvnorm(n=1000, mean=c(0.5,0.2,0.3),sigma = sigma)
vot<-ifelse(x<0.5,"bols",ifelse(x<0.7,"haddad","meire"))

id<-rep(seq(1,1000),each=3)
votos<-as.vector(vot)
dt<-as.data.frame(cbind(id,votos))

#dt %>%
 # group_by(votos) %>% summarize(fre=n())

dt <- split(dt$vot,dt$id)

library(arules)

dt2 = as(dt,"transactions")
## Warning in asMethod(object): removing duplicated items in transactions
# Convert data to transaction level
dt2 = as(dt,"transactions")
## Warning in asMethod(object): removing duplicated items in transactions
summary(dt2)
## transactions as itemMatrix in sparse format with
##  1000 rows (elements/itemsets/transactions) and
##  3 columns (items) and a density of 0.6183333 
## 
## most frequent items:
##    bols   meire  haddad (Other) 
##     916     744     195       0 
## 
## element (itemset/transaction) length distribution:
## sizes
##   1   2   3 
## 246 653 101 
## 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.000   2.000   2.000   1.855   2.000   3.000 
## 
## includes extended item information - examples:
##   labels
## 1   bols
## 2 haddad
## 3  meire
## 
## includes extended transaction information - examples:
##   transactionID
## 1             1
## 2            10
## 3           100
inspect(dt2)
##        items               transactionID
## [1]    {bols,meire}        1            
## [2]    {bols,meire}        10           
## [3]    {bols,meire}        100          
## [4]    {bols,meire}        1000         
## [5]    {bols,meire}        101          
## [6]    {bols,meire}        102          
## [7]    {meire}             103          
## [8]    {bols,haddad,meire} 104          
## [9]    {bols,meire}        105          
## [10]   {bols,haddad}       106          
## [11]   {meire}             107          
## [12]   {bols,haddad}       108          
## [13]   {bols,meire}        109          
## [14]   {bols,meire}        11           
## [15]   {bols,meire}        110          
## [16]   {bols}              111          
## [17]   {bols,meire}        112          
## [18]   {bols,meire}        113          
## [19]   {bols,meire}        114          
## [20]   {bols,haddad,meire} 115          
## [21]   {bols,meire}        116          
## [22]   {bols,haddad}       117          
## [23]   {bols,meire}        118          
## [24]   {meire}             119          
## [25]   {bols,meire}        12           
## [26]   {bols,meire}        120          
## [27]   {bols,meire}        121          
## [28]   {bols,meire}        122          
## [29]   {bols,meire}        123          
## [30]   {bols,meire}        124          
## [31]   {meire}             125          
## [32]   {bols,meire}        126          
## [33]   {bols,meire}        127          
## [34]   {bols,meire}        128          
## [35]   {bols}              129          
## [36]   {bols,meire}        13           
## [37]   {bols,meire}        130          
## [38]   {bols,meire}        131          
## [39]   {bols,meire}        132          
## [40]   {bols}              133          
## [41]   {meire}             134          
## [42]   {bols,meire}        135          
## [43]   {bols,meire}        136          
## [44]   {bols,haddad,meire} 137          
## [45]   {meire}             138          
## [46]   {bols,meire}        139          
## [47]   {bols,meire}        14           
## [48]   {bols}              140          
## [49]   {bols,meire}        141          
## [50]   {bols,meire}        142          
## [51]   {bols}              143          
## [52]   {meire}             144          
## [53]   {bols,meire}        145          
## [54]   {bols,haddad,meire} 146          
## [55]   {bols,haddad,meire} 147          
## [56]   {bols,meire}        148          
## [57]   {bols,meire}        149          
## [58]   {bols,haddad}       15           
## [59]   {meire}             150          
## [60]   {bols,meire}        151          
## [61]   {bols,meire}        152          
## [62]   {bols,meire}        153          
## [63]   {bols,haddad}       154          
## [64]   {bols,meire}        155          
## [65]   {bols,meire}        156          
## [66]   {bols,meire}        157          
## [67]   {bols,meire}        158          
## [68]   {bols,meire}        159          
## [69]   {haddad,meire}      16           
## [70]   {bols,haddad}       160          
## [71]   {bols,meire}        161          
## [72]   {haddad,meire}      162          
## [73]   {bols}              163          
## [74]   {bols,meire}        164          
## [75]   {bols,meire}        165          
## [76]   {bols}              166          
## [77]   {haddad,meire}      167          
## [78]   {bols,meire}        168          
## [79]   {bols,meire}        169          
## [80]   {bols,meire}        17           
## [81]   {bols,meire}        170          
## [82]   {bols,haddad}       171          
## [83]   {bols,meire}        172          
## [84]   {bols,meire}        173          
## [85]   {bols,meire}        174          
## [86]   {bols,haddad,meire} 175          
## [87]   {bols,meire}        176          
## [88]   {bols,meire}        177          
## [89]   {meire}             178          
## [90]   {bols}              179          
## [91]   {bols,meire}        18           
## [92]   {bols,meire}        180          
## [93]   {bols,meire}        181          
## [94]   {bols,meire}        182          
## [95]   {bols,meire}        183          
## [96]   {bols,meire}        184          
## [97]   {bols,meire}        185          
## [98]   {bols,meire}        186          
## [99]   {bols,meire}        187          
## [100]  {meire}             188          
## [101]  {bols,meire}        189          
## [102]  {bols,meire}        19           
## [103]  {meire}             190          
## [104]  {bols,meire}        191          
## [105]  {bols,meire}        192          
## [106]  {bols}              193          
## [107]  {bols}              194          
## [108]  {bols}              195          
## [109]  {meire}             196          
## [110]  {bols}              197          
## [111]  {meire}             198          
## [112]  {bols}              199          
## [113]  {bols,meire}        2            
## [114]  {bols}              20           
## [115]  {bols,meire}        200          
## [116]  {bols,meire}        201          
## [117]  {bols}              202          
## [118]  {bols,meire}        203          
## [119]  {bols,haddad,meire} 204          
## [120]  {bols,meire}        205          
## [121]  {bols,meire}        206          
## [122]  {bols}              207          
## [123]  {bols,meire}        208          
## [124]  {bols,meire}        209          
## [125]  {bols,meire}        21           
## [126]  {bols,meire}        210          
## [127]  {bols,haddad}       211          
## [128]  {bols,meire}        212          
## [129]  {bols}              213          
## [130]  {bols,haddad,meire} 214          
## [131]  {meire}             215          
## [132]  {bols,meire}        216          
## [133]  {bols,meire}        217          
## [134]  {bols,meire}        218          
## [135]  {bols,meire}        219          
## [136]  {bols,meire}        22           
## [137]  {bols,meire}        220          
## [138]  {bols,meire}        221          
## [139]  {meire}             222          
## [140]  {bols,meire}        223          
## [141]  {bols,meire}        224          
## [142]  {bols,haddad,meire} 225          
## [143]  {bols,haddad}       226          
## [144]  {bols,meire}        227          
## [145]  {meire}             228          
## [146]  {bols,meire}        229          
## [147]  {bols,haddad}       23           
## [148]  {bols,meire}        230          
## [149]  {bols,meire}        231          
## [150]  {bols,haddad,meire} 232          
## [151]  {bols,meire}        233          
## [152]  {bols,haddad}       234          
## [153]  {bols}              235          
## [154]  {bols,meire}        236          
## [155]  {bols}              237          
## [156]  {bols,meire}        238          
## [157]  {bols,meire}        239          
## [158]  {bols,meire}        24           
## [159]  {bols,meire}        240          
## [160]  {bols,meire}        241          
## [161]  {bols}              242          
## [162]  {bols,meire}        243          
## [163]  {haddad,meire}      244          
## [164]  {bols,haddad,meire} 245          
## [165]  {bols,meire}        246          
## [166]  {bols,haddad}       247          
## [167]  {meire}             248          
## [168]  {bols,haddad,meire} 249          
## [169]  {meire}             25           
## [170]  {bols,meire}        250          
## [171]  {bols,meire}        251          
## [172]  {haddad,meire}      252          
## [173]  {bols,haddad}       253          
## [174]  {bols,haddad,meire} 254          
## [175]  {haddad,meire}      255          
## [176]  {bols,haddad,meire} 256          
## [177]  {bols}              257          
## [178]  {bols,meire}        258          
## [179]  {bols,meire}        259          
## [180]  {bols,meire}        26           
## [181]  {bols,meire}        260          
## [182]  {bols,meire}        261          
## [183]  {meire}             262          
## [184]  {bols,meire}        263          
## [185]  {bols}              264          
## [186]  {meire}             265          
## [187]  {bols}              266          
## [188]  {bols,meire}        267          
## [189]  {bols,haddad}       268          
## [190]  {bols,meire}        269          
## [191]  {haddad,meire}      27           
## [192]  {bols,meire}        270          
## [193]  {bols,meire}        271          
## [194]  {bols,meire}        272          
## [195]  {bols,meire}        273          
## [196]  {haddad,meire}      274          
## [197]  {bols,meire}        275          
## [198]  {bols,haddad,meire} 276          
## [199]  {bols,haddad}       277          
## [200]  {meire}             278          
## [201]  {bols,meire}        279          
## [202]  {meire}             28           
## [203]  {bols,meire}        280          
## [204]  {bols,haddad}       281          
## [205]  {bols,meire}        282          
## [206]  {bols,meire}        283          
## [207]  {bols,meire}        284          
## [208]  {bols,haddad,meire} 285          
## [209]  {haddad,meire}      286          
## [210]  {bols,meire}        287          
## [211]  {meire}             288          
## [212]  {bols,meire}        289          
## [213]  {bols,meire}        29           
## [214]  {bols,meire}        290          
## [215]  {bols}              291          
## [216]  {bols}              292          
## [217]  {bols,meire}        293          
## [218]  {bols}              294          
## [219]  {bols}              295          
## [220]  {bols,meire}        296          
## [221]  {bols,meire}        297          
## [222]  {bols,meire}        298          
## [223]  {bols,meire}        299          
## [224]  {bols}              3            
## [225]  {bols,meire}        30           
## [226]  {haddad,meire}      300          
## [227]  {bols,meire}        301          
## [228]  {bols,meire}        302          
## [229]  {bols,haddad,meire} 303          
## [230]  {bols,meire}        304          
## [231]  {meire}             305          
## [232]  {bols}              306          
## [233]  {meire}             307          
## [234]  {bols,meire}        308          
## [235]  {bols,meire}        309          
## [236]  {meire}             31           
## [237]  {bols,meire}        310          
## [238]  {bols}              311          
## [239]  {meire}             312          
## [240]  {bols,meire}        313          
## [241]  {bols,haddad,meire} 314          
## [242]  {bols,meire}        315          
## [243]  {bols,meire}        316          
## [244]  {bols}              317          
## [245]  {bols,meire}        318          
## [246]  {bols,meire}        319          
## [247]  {bols,haddad,meire} 32           
## [248]  {bols,meire}        320          
## [249]  {bols,meire}        321          
## [250]  {bols,meire}        322          
## [251]  {bols}              323          
## [252]  {bols,meire}        324          
## [253]  {bols,haddad,meire} 325          
## [254]  {bols,meire}        326          
## [255]  {bols,haddad,meire} 327          
## [256]  {meire}             328          
## [257]  {bols}              329          
## [258]  {bols,meire}        33           
## [259]  {bols,meire}        330          
## [260]  {bols,meire}        331          
## [261]  {bols,meire}        332          
## [262]  {bols,haddad,meire} 333          
## [263]  {bols,meire}        334          
## [264]  {bols,meire}        335          
## [265]  {meire}             336          
## [266]  {bols}              337          
## [267]  {bols,meire}        338          
## [268]  {bols,haddad}       339          
## [269]  {bols,meire}        34           
## [270]  {bols,meire}        340          
## [271]  {bols}              341          
## [272]  {bols,meire}        342          
## [273]  {bols,haddad}       343          
## [274]  {bols,haddad,meire} 344          
## [275]  {bols,meire}        345          
## [276]  {bols,meire}        346          
## [277]  {bols,meire}        347          
## [278]  {bols,meire}        348          
## [279]  {bols,meire}        349          
## [280]  {bols,haddad}       35           
## [281]  {bols,meire}        350          
## [282]  {bols,meire}        351          
## [283]  {bols,meire}        352          
## [284]  {bols,haddad,meire} 353          
## [285]  {bols,haddad,meire} 354          
## [286]  {bols,haddad}       355          
## [287]  {bols,meire}        356          
## [288]  {bols,meire}        357          
## [289]  {bols,meire}        358          
## [290]  {bols,meire}        359          
## [291]  {bols,haddad}       36           
## [292]  {bols,meire}        360          
## [293]  {bols,meire}        361          
## [294]  {bols,meire}        362          
## [295]  {haddad,meire}      363          
## [296]  {bols}              364          
## [297]  {bols,meire}        365          
## [298]  {bols,haddad,meire} 366          
## [299]  {bols,meire}        367          
## [300]  {bols,meire}        368          
## [301]  {bols,haddad}       369          
## [302]  {bols}              37           
## [303]  {bols}              370          
## [304]  {bols,meire}        371          
## [305]  {haddad,meire}      372          
## [306]  {bols,meire}        373          
## [307]  {bols}              374          
## [308]  {bols}              375          
## [309]  {bols,haddad,meire} 376          
## [310]  {bols,haddad,meire} 377          
## [311]  {bols,meire}        378          
## [312]  {bols,meire}        379          
## [313]  {bols,meire}        38           
## [314]  {bols,meire}        380          
## [315]  {bols,haddad}       381          
## [316]  {bols}              382          
## [317]  {bols,meire}        383          
## [318]  {bols}              384          
## [319]  {bols,meire}        385          
## [320]  {bols,meire}        386          
## [321]  {bols,meire}        387          
## [322]  {bols,haddad}       388          
## [323]  {bols}              389          
## [324]  {bols}              39           
## [325]  {bols,meire}        390          
## [326]  {bols}              391          
## [327]  {bols,meire}        392          
## [328]  {bols,meire}        393          
## [329]  {bols,haddad}       394          
## [330]  {bols,meire}        395          
## [331]  {bols,meire}        396          
## [332]  {bols,meire}        397          
## [333]  {bols,meire}        398          
## [334]  {bols,haddad}       399          
## [335]  {bols,haddad,meire} 4            
## [336]  {bols,meire}        40           
## [337]  {bols,haddad,meire} 400          
## [338]  {bols,haddad}       401          
## [339]  {bols,meire}        402          
## [340]  {bols,meire}        403          
## [341]  {bols}              404          
## [342]  {bols,meire}        405          
## [343]  {bols,haddad,meire} 406          
## [344]  {bols}              407          
## [345]  {bols,meire}        408          
## [346]  {bols,meire}        409          
## [347]  {bols,meire}        41           
## [348]  {bols}              410          
## [349]  {bols,meire}        411          
## [350]  {bols}              412          
## [351]  {bols,meire}        413          
## [352]  {bols,meire}        414          
## [353]  {bols,haddad}       415          
## [354]  {bols,haddad,meire} 416          
## [355]  {bols,meire}        417          
## [356]  {bols,haddad,meire} 418          
## [357]  {bols,meire}        419          
## [358]  {bols,haddad,meire} 42           
## [359]  {bols,haddad,meire} 420          
## [360]  {bols}              421          
## [361]  {bols,meire}        422          
## [362]  {bols,meire}        423          
## [363]  {bols,meire}        424          
## [364]  {meire}             425          
## [365]  {bols}              426          
## [366]  {bols,meire}        427          
## [367]  {bols,meire}        428          
## [368]  {bols}              429          
## [369]  {bols,meire}        43           
## [370]  {bols}              430          
## [371]  {bols}              431          
## [372]  {bols,meire}        432          
## [373]  {bols,meire}        433          
## [374]  {bols,meire}        434          
## [375]  {bols,meire}        435          
## [376]  {bols,meire}        436          
## [377]  {bols}              437          
## [378]  {bols,haddad,meire} 438          
## [379]  {bols}              439          
## [380]  {bols,meire}        44           
## [381]  {bols,meire}        440          
## [382]  {bols}              441          
## [383]  {bols,meire}        442          
## [384]  {bols,haddad}       443          
## [385]  {bols,meire}        444          
## [386]  {bols,haddad,meire} 445          
## [387]  {bols}              446          
## [388]  {bols}              447          
## [389]  {bols,meire}        448          
## [390]  {bols,haddad}       449          
## [391]  {bols,haddad,meire} 45           
## [392]  {bols,meire}        450          
## [393]  {bols,meire}        451          
## [394]  {bols}              452          
## [395]  {bols}              453          
## [396]  {bols,meire}        454          
## [397]  {bols}              455          
## [398]  {bols,haddad,meire} 456          
## [399]  {bols}              457          
## [400]  {bols}              458          
## [401]  {bols,meire}        459          
## [402]  {bols,meire}        46           
## [403]  {bols,meire}        460          
## [404]  {bols,meire}        461          
## [405]  {bols}              462          
## [406]  {bols}              463          
## [407]  {bols,meire}        464          
## [408]  {bols,meire}        465          
## [409]  {bols,meire}        466          
## [410]  {bols}              467          
## [411]  {bols,meire}        468          
## [412]  {bols}              469          
## [413]  {bols,meire}        47           
## [414]  {bols,meire}        470          
## [415]  {bols,haddad}       471          
## [416]  {bols}              472          
## [417]  {bols,meire}        473          
## [418]  {bols,meire}        474          
## [419]  {bols,haddad}       475          
## [420]  {bols,meire}        476          
## [421]  {bols}              477          
## [422]  {bols}              478          
## [423]  {bols,meire}        479          
## [424]  {bols,meire}        48           
## [425]  {bols,haddad,meire} 480          
## [426]  {bols,haddad,meire} 481          
## [427]  {bols}              482          
## [428]  {bols}              483          
## [429]  {bols,meire}        484          
## [430]  {bols}              485          
## [431]  {bols,meire}        486          
## [432]  {meire}             487          
## [433]  {haddad,meire}      488          
## [434]  {bols,meire}        489          
## [435]  {meire}             49           
## [436]  {bols,meire}        490          
## [437]  {bols,haddad,meire} 491          
## [438]  {bols,meire}        492          
## [439]  {bols,meire}        493          
## [440]  {bols}              494          
## [441]  {bols}              495          
## [442]  {bols,haddad,meire} 496          
## [443]  {bols,meire}        497          
## [444]  {bols,meire}        498          
## [445]  {bols,haddad,meire} 499          
## [446]  {bols,meire}        5            
## [447]  {bols,meire}        50           
## [448]  {bols,haddad,meire} 500          
## [449]  {bols}              501          
## [450]  {bols}              502          
## [451]  {bols,meire}        503          
## [452]  {bols,meire}        504          
## [453]  {bols,haddad,meire} 505          
## [454]  {bols,meire}        506          
## [455]  {bols,meire}        507          
## [456]  {meire}             508          
## [457]  {bols,meire}        509          
## [458]  {bols,meire}        51           
## [459]  {bols,haddad}       510          
## [460]  {bols}              511          
## [461]  {bols,meire}        512          
## [462]  {bols,meire}        513          
## [463]  {bols,meire}        514          
## [464]  {bols,meire}        515          
## [465]  {bols,meire}        516          
## [466]  {bols,meire}        517          
## [467]  {bols}              518          
## [468]  {bols,meire}        519          
## [469]  {meire}             52           
## [470]  {bols,meire}        520          
## [471]  {bols,meire}        521          
## [472]  {bols}              522          
## [473]  {bols,meire}        523          
## [474]  {bols,meire}        524          
## [475]  {bols,meire}        525          
## [476]  {bols}              526          
## [477]  {bols,haddad,meire} 527          
## [478]  {bols,haddad}       528          
## [479]  {bols}              529          
## [480]  {bols,meire}        53           
## [481]  {bols,meire}        530          
## [482]  {bols,meire}        531          
## [483]  {bols,haddad,meire} 532          
## [484]  {bols,meire}        533          
## [485]  {bols,meire}        534          
## [486]  {bols,haddad,meire} 535          
## [487]  {bols,meire}        536          
## [488]  {bols,meire}        537          
## [489]  {bols,meire}        538          
## [490]  {bols,haddad}       539          
## [491]  {bols,meire}        54           
## [492]  {bols,meire}        540          
## [493]  {bols,meire}        541          
## [494]  {bols,meire}        542          
## [495]  {bols}              543          
## [496]  {bols,meire}        544          
## [497]  {bols,meire}        545          
## [498]  {bols}              546          
## [499]  {bols,meire}        547          
## [500]  {haddad,meire}      548          
## [501]  {bols}              549          
## [502]  {bols,meire}        55           
## [503]  {bols,meire}        550          
## [504]  {bols}              551          
## [505]  {bols}              552          
## [506]  {bols,meire}        553          
## [507]  {bols,meire}        554          
## [508]  {bols,meire}        555          
## [509]  {bols,meire}        556          
## [510]  {bols}              557          
## [511]  {bols,haddad}       558          
## [512]  {bols,meire}        559          
## [513]  {bols,haddad}       56           
## [514]  {meire}             560          
## [515]  {bols,meire}        561          
## [516]  {bols,meire}        562          
## [517]  {bols}              563          
## [518]  {bols}              564          
## [519]  {bols,meire}        565          
## [520]  {bols}              566          
## [521]  {bols,haddad,meire} 567          
## [522]  {bols,haddad,meire} 568          
## [523]  {bols,haddad}       569          
## [524]  {bols,meire}        57           
## [525]  {bols}              570          
## [526]  {meire}             571          
## [527]  {bols,meire}        572          
## [528]  {bols,meire}        573          
## [529]  {haddad,meire}      574          
## [530]  {bols,meire}        575          
## [531]  {bols,meire}        576          
## [532]  {bols,meire}        577          
## [533]  {bols,haddad}       578          
## [534]  {bols,meire}        579          
## [535]  {bols,haddad,meire} 58           
## [536]  {bols,meire}        580          
## [537]  {bols}              581          
## [538]  {bols}              582          
## [539]  {bols,meire}        583          
## [540]  {bols}              584          
## [541]  {bols,meire}        585          
## [542]  {bols,meire}        586          
## [543]  {bols,haddad,meire} 587          
## [544]  {bols,haddad}       588          
## [545]  {bols,haddad,meire} 589          
## [546]  {bols,meire}        59           
## [547]  {bols,meire}        590          
## [548]  {bols,meire}        591          
## [549]  {bols,haddad,meire} 592          
## [550]  {bols,meire}        593          
## [551]  {bols,meire}        594          
## [552]  {bols,meire}        595          
## [553]  {bols,meire}        596          
## [554]  {bols,meire}        597          
## [555]  {bols,meire}        598          
## [556]  {bols,haddad}       599          
## [557]  {meire}             6            
## [558]  {bols,meire}        60           
## [559]  {bols,meire}        600          
## [560]  {bols,haddad}       601          
## [561]  {bols,meire}        602          
## [562]  {bols,meire}        603          
## [563]  {bols,haddad,meire} 604          
## [564]  {bols}              605          
## [565]  {bols,meire}        606          
## [566]  {bols}              607          
## [567]  {meire}             608          
## [568]  {bols,haddad,meire} 609          
## [569]  {bols,meire}        61           
## [570]  {bols,meire}        610          
## [571]  {bols,meire}        611          
## [572]  {bols,haddad}       612          
## [573]  {bols,haddad}       613          
## [574]  {bols,meire}        614          
## [575]  {bols,meire}        615          
## [576]  {bols,haddad}       616          
## [577]  {bols}              617          
## [578]  {bols}              618          
## [579]  {bols}              619          
## [580]  {meire}             62           
## [581]  {bols,meire}        620          
## [582]  {bols}              621          
## [583]  {bols,meire}        622          
## [584]  {bols,meire}        623          
## [585]  {bols,meire}        624          
## [586]  {bols,meire}        625          
## [587]  {bols,meire}        626          
## [588]  {bols,meire}        627          
## [589]  {bols,meire}        628          
## [590]  {bols}              629          
## [591]  {bols}              63           
## [592]  {bols,meire}        630          
## [593]  {bols}              631          
## [594]  {bols,meire}        632          
## [595]  {bols,haddad,meire} 633          
## [596]  {bols,meire}        634          
## [597]  {bols,meire}        635          
## [598]  {bols}              636          
## [599]  {bols,haddad}       637          
## [600]  {bols}              638          
## [601]  {bols,meire}        639          
## [602]  {bols,haddad,meire} 64           
## [603]  {bols}              640          
## [604]  {bols}              641          
## [605]  {bols}              642          
## [606]  {bols,meire}        643          
## [607]  {bols,meire}        644          
## [608]  {bols,meire}        645          
## [609]  {bols,haddad,meire} 646          
## [610]  {bols,meire}        647          
## [611]  {bols}              648          
## [612]  {meire}             649          
## [613]  {bols,meire}        65           
## [614]  {bols,meire}        650          
## [615]  {bols,meire}        651          
## [616]  {bols,meire}        652          
## [617]  {bols,haddad,meire} 653          
## [618]  {bols,meire}        654          
## [619]  {bols,meire}        655          
## [620]  {bols,meire}        656          
## [621]  {bols,meire}        657          
## [622]  {bols}              658          
## [623]  {bols,meire}        659          
## [624]  {bols}              66           
## [625]  {bols}              660          
## [626]  {haddad,meire}      661          
## [627]  {bols,meire}        662          
## [628]  {bols,meire}        663          
## [629]  {bols,meire}        664          
## [630]  {bols,meire}        665          
## [631]  {bols}              666          
## [632]  {bols,meire}        667          
## [633]  {bols,meire}        668          
## [634]  {bols,meire}        669          
## [635]  {bols,meire}        67           
## [636]  {bols,haddad,meire} 670          
## [637]  {bols,haddad,meire} 671          
## [638]  {bols}              672          
## [639]  {bols,meire}        673          
## [640]  {bols}              674          
## [641]  {bols,meire}        675          
## [642]  {bols}              676          
## [643]  {bols,meire}        677          
## [644]  {bols,meire}        678          
## [645]  {bols}              679          
## [646]  {bols,haddad}       68           
## [647]  {bols,meire}        680          
## [648]  {bols,meire}        681          
## [649]  {bols,meire}        682          
## [650]  {bols,meire}        683          
## [651]  {bols,meire}        684          
## [652]  {bols,haddad,meire} 685          
## [653]  {bols,meire}        686          
## [654]  {bols,meire}        687          
## [655]  {bols,meire}        688          
## [656]  {bols,meire}        689          
## [657]  {bols,haddad}       69           
## [658]  {bols,meire}        690          
## [659]  {bols,meire}        691          
## [660]  {bols,haddad}       692          
## [661]  {bols,meire}        693          
## [662]  {bols}              694          
## [663]  {bols}              695          
## [664]  {haddad,meire}      696          
## [665]  {bols}              697          
## [666]  {bols,haddad}       698          
## [667]  {bols,meire}        699          
## [668]  {bols,meire}        7            
## [669]  {meire}             70           
## [670]  {bols}              700          
## [671]  {bols,meire}        701          
## [672]  {bols,meire}        702          
## [673]  {bols}              703          
## [674]  {bols,meire}        704          
## [675]  {bols,meire}        705          
## [676]  {meire}             706          
## [677]  {bols,meire}        707          
## [678]  {bols,meire}        708          
## [679]  {bols,meire}        709          
## [680]  {haddad,meire}      71           
## [681]  {bols,haddad,meire} 710          
## [682]  {bols,meire}        711          
## [683]  {bols}              712          
## [684]  {bols,meire}        713          
## [685]  {bols,meire}        714          
## [686]  {bols}              715          
## [687]  {bols,meire}        716          
## [688]  {bols,haddad}       717          
## [689]  {bols,meire}        718          
## [690]  {bols}              719          
## [691]  {bols}              72           
## [692]  {bols,haddad,meire} 720          
## [693]  {bols,haddad,meire} 721          
## [694]  {bols,meire}        722          
## [695]  {bols,meire}        723          
## [696]  {bols,meire}        724          
## [697]  {bols,meire}        725          
## [698]  {bols,meire}        726          
## [699]  {bols,meire}        727          
## [700]  {bols,meire}        728          
## [701]  {bols,meire}        729          
## [702]  {bols,meire}        73           
## [703]  {bols,meire}        730          
## [704]  {bols,meire}        731          
## [705]  {bols,meire}        732          
## [706]  {bols}              733          
## [707]  {bols,meire}        734          
## [708]  {bols,meire}        735          
## [709]  {bols,meire}        736          
## [710]  {bols}              737          
## [711]  {bols}              738          
## [712]  {bols,meire}        739          
## [713]  {bols,meire}        74           
## [714]  {bols,haddad,meire} 740          
## [715]  {bols}              741          
## [716]  {bols,meire}        742          
## [717]  {bols,meire}        743          
## [718]  {bols,meire}        744          
## [719]  {bols}              745          
## [720]  {bols,haddad,meire} 746          
## [721]  {bols,haddad,meire} 747          
## [722]  {bols,meire}        748          
## [723]  {bols,meire}        749          
## [724]  {meire}             75           
## [725]  {bols,meire}        750          
## [726]  {meire}             751          
## [727]  {bols,meire}        752          
## [728]  {bols,haddad}       753          
## [729]  {bols,haddad}       754          
## [730]  {bols,haddad,meire} 755          
## [731]  {bols,meire}        756          
## [732]  {bols,meire}        757          
## [733]  {bols,meire}        758          
## [734]  {bols,haddad}       759          
## [735]  {bols,haddad,meire} 76           
## [736]  {bols,meire}        760          
## [737]  {bols,meire}        761          
## [738]  {bols,meire}        762          
## [739]  {bols}              763          
## [740]  {bols}              764          
## [741]  {bols,meire}        765          
## [742]  {bols,meire}        766          
## [743]  {bols,haddad,meire} 767          
## [744]  {bols,meire}        768          
## [745]  {bols,meire}        769          
## [746]  {bols,meire}        77           
## [747]  {bols}              770          
## [748]  {bols}              771          
## [749]  {bols}              772          
## [750]  {bols}              773          
## [751]  {bols,meire}        774          
## [752]  {meire}             775          
## [753]  {bols,meire}        776          
## [754]  {bols}              777          
## [755]  {haddad,meire}      778          
## [756]  {bols,haddad}       779          
## [757]  {bols,meire}        78           
## [758]  {bols,haddad}       780          
## [759]  {bols,haddad,meire} 781          
## [760]  {bols,haddad}       782          
## [761]  {bols,meire}        783          
## [762]  {haddad,meire}      784          
## [763]  {bols}              785          
## [764]  {bols}              786          
## [765]  {bols}              787          
## [766]  {bols}              788          
## [767]  {bols}              789          
## [768]  {bols}              79           
## [769]  {bols,meire}        790          
## [770]  {bols}              791          
## [771]  {bols,haddad,meire} 792          
## [772]  {bols}              793          
## [773]  {bols,meire}        794          
## [774]  {bols,meire}        795          
## [775]  {bols,meire}        796          
## [776]  {bols,meire}        797          
## [777]  {bols,meire}        798          
## [778]  {bols,meire}        799          
## [779]  {bols,meire}        8            
## [780]  {bols,meire}        80           
## [781]  {meire}             800          
## [782]  {bols,meire}        801          
## [783]  {bols,meire}        802          
## [784]  {bols,meire}        803          
## [785]  {bols,meire}        804          
## [786]  {bols}              805          
## [787]  {bols,meire}        806          
## [788]  {haddad,meire}      807          
## [789]  {bols}              808          
## [790]  {bols,haddad}       809          
## [791]  {bols}              81           
## [792]  {bols,meire}        810          
## [793]  {bols,meire}        811          
## [794]  {bols,meire}        812          
## [795]  {bols,meire}        813          
## [796]  {bols,haddad}       814          
## [797]  {bols,meire}        815          
## [798]  {bols,haddad}       816          
## [799]  {bols,meire}        817          
## [800]  {bols}              818          
## [801]  {bols,haddad,meire} 819          
## [802]  {bols}              82           
## [803]  {bols,haddad,meire} 820          
## [804]  {bols,meire}        821          
## [805]  {bols}              822          
## [806]  {bols,meire}        823          
## [807]  {bols}              824          
## [808]  {bols}              825          
## [809]  {bols}              826          
## [810]  {bols}              827          
## [811]  {bols,meire}        828          
## [812]  {bols,meire}        829          
## [813]  {bols,meire}        83           
## [814]  {bols}              830          
## [815]  {meire}             831          
## [816]  {bols,haddad,meire} 832          
## [817]  {bols,meire}        833          
## [818]  {bols}              834          
## [819]  {bols}              835          
## [820]  {bols,meire}        836          
## [821]  {bols}              837          
## [822]  {bols,meire}        838          
## [823]  {bols,meire}        839          
## [824]  {bols,meire}        84           
## [825]  {bols}              840          
## [826]  {bols,meire}        841          
## [827]  {bols,meire}        842          
## [828]  {bols,meire}        843          
## [829]  {bols,meire}        844          
## [830]  {bols}              845          
## [831]  {bols,haddad,meire} 846          
## [832]  {bols,haddad}       847          
## [833]  {bols,meire}        848          
## [834]  {bols,meire}        849          
## [835]  {bols,meire}        85           
## [836]  {bols,meire}        850          
## [837]  {bols,haddad,meire} 851          
## [838]  {bols,meire}        852          
## [839]  {bols,meire}        853          
## [840]  {bols,meire}        854          
## [841]  {bols,meire}        855          
## [842]  {meire}             856          
## [843]  {bols}              857          
## [844]  {bols,meire}        858          
## [845]  {bols,meire}        859          
## [846]  {bols,meire}        86           
## [847]  {bols,meire}        860          
## [848]  {bols,meire}        861          
## [849]  {bols,haddad,meire} 862          
## [850]  {bols,meire}        863          
## [851]  {bols,meire}        864          
## [852]  {bols,meire}        865          
## [853]  {haddad,meire}      866          
## [854]  {bols,meire}        867          
## [855]  {haddad,meire}      868          
## [856]  {bols,meire}        869          
## [857]  {bols,meire}        87           
## [858]  {bols,meire}        870          
## [859]  {bols,meire}        871          
## [860]  {bols,meire}        872          
## [861]  {bols,meire}        873          
## [862]  {bols}              874          
## [863]  {bols,haddad,meire} 875          
## [864]  {bols,meire}        876          
## [865]  {bols}              877          
## [866]  {meire}             878          
## [867]  {bols,meire}        879          
## [868]  {bols,meire}        88           
## [869]  {bols,meire}        880          
## [870]  {bols,meire}        881          
## [871]  {bols,meire}        882          
## [872]  {bols,meire}        883          
## [873]  {bols,haddad,meire} 884          
## [874]  {bols,meire}        885          
## [875]  {bols,meire}        886          
## [876]  {bols,meire}        887          
## [877]  {bols,meire}        888          
## [878]  {bols,meire}        889          
## [879]  {bols,meire}        89           
## [880]  {bols,meire}        890          
## [881]  {bols,haddad,meire} 891          
## [882]  {bols}              892          
## [883]  {meire}             893          
## [884]  {bols,meire}        894          
## [885]  {bols}              895          
## [886]  {bols,haddad,meire} 896          
## [887]  {bols}              897          
## [888]  {bols,meire}        898          
## [889]  {haddad,meire}      899          
## [890]  {bols,haddad,meire} 9            
## [891]  {bols,meire}        90           
## [892]  {bols,haddad}       900          
## [893]  {bols,meire}        901          
## [894]  {bols,haddad}       902          
## [895]  {meire}             903          
## [896]  {bols,meire}        904          
## [897]  {bols}              905          
## [898]  {bols,meire}        906          
## [899]  {bols}              907          
## [900]  {haddad,meire}      908          
## [901]  {bols,meire}        909          
## [902]  {bols,meire}        91           
## [903]  {bols}              910          
## [904]  {bols,meire}        911          
## [905]  {bols,haddad,meire} 912          
## [906]  {bols,haddad}       913          
## [907]  {bols,meire}        914          
## [908]  {bols,haddad,meire} 915          
## [909]  {bols,haddad}       916          
## [910]  {bols,haddad,meire} 917          
## [911]  {bols,meire}        918          
## [912]  {bols}              919          
## [913]  {bols,meire}        92           
## [914]  {haddad,meire}      920          
## [915]  {bols}              921          
## [916]  {bols,meire}        922          
## [917]  {bols,haddad,meire} 923          
## [918]  {bols,meire}        924          
## [919]  {haddad,meire}      925          
## [920]  {bols,meire}        926          
## [921]  {bols}              927          
## [922]  {bols}              928          
## [923]  {bols,meire}        929          
## [924]  {bols}              93           
## [925]  {bols,meire}        930          
## [926]  {bols,meire}        931          
## [927]  {bols,meire}        932          
## [928]  {bols}              933          
## [929]  {bols,meire}        934          
## [930]  {bols,meire}        935          
## [931]  {meire}             936          
## [932]  {bols,haddad,meire} 937          
## [933]  {bols,meire}        938          
## [934]  {bols}              939          
## [935]  {bols,meire}        94           
## [936]  {bols,meire}        940          
## [937]  {bols,haddad,meire} 941          
## [938]  {meire}             942          
## [939]  {bols,haddad,meire} 943          
## [940]  {bols,meire}        944          
## [941]  {bols,meire}        945          
## [942]  {bols,meire}        946          
## [943]  {bols,meire}        947          
## [944]  {bols,meire}        948          
## [945]  {bols,meire}        949          
## [946]  {bols,haddad,meire} 95           
## [947]  {bols}              950          
## [948]  {bols,meire}        951          
## [949]  {bols,meire}        952          
## [950]  {bols,meire}        953          
## [951]  {bols,meire}        954          
## [952]  {bols,haddad,meire} 955          
## [953]  {bols,meire}        956          
## [954]  {bols}              957          
## [955]  {bols,meire}        958          
## [956]  {bols,meire}        959          
## [957]  {bols,meire}        96           
## [958]  {meire}             960          
## [959]  {bols,haddad,meire} 961          
## [960]  {bols,meire}        962          
## [961]  {bols,meire}        963          
## [962]  {bols}              964          
## [963]  {bols,meire}        965          
## [964]  {bols}              966          
## [965]  {bols}              967          
## [966]  {bols,meire}        968          
## [967]  {bols,meire}        969          
## [968]  {bols,haddad}       97           
## [969]  {bols,meire}        970          
## [970]  {bols,meire}        971          
## [971]  {bols,meire}        972          
## [972]  {bols}              973          
## [973]  {bols,haddad,meire} 974          
## [974]  {bols}              975          
## [975]  {bols,meire}        976          
## [976]  {bols,meire}        977          
## [977]  {bols,meire}        978          
## [978]  {bols}              979          
## [979]  {bols,meire}        98           
## [980]  {bols,haddad,meire} 980          
## [981]  {bols}              981          
## [982]  {haddad,meire}      982          
## [983]  {bols,meire}        983          
## [984]  {bols,meire}        984          
## [985]  {bols,meire}        985          
## [986]  {bols,haddad,meire} 986          
## [987]  {bols,meire}        987          
## [988]  {bols,haddad,meire} 988          
## [989]  {bols,meire}        989          
## [990]  {bols,meire}        99           
## [991]  {meire}             990          
## [992]  {bols}              991          
## [993]  {bols,meire}        992          
## [994]  {bols,haddad,meire} 993          
## [995]  {bols,meire}        994          
## [996]  {bols,meire}        995          
## [997]  {bols,meire}        996          
## [998]  {bols,meire}        997          
## [999]  {meire}             998          
## [1000] {bols,meire}        999
# Most Frequent Items
if (!require("RColorBrewer")) {
  # install color package of R
install.packages("RColorBrewer")
#include library RColorBrewer
library(RColorBrewer)
}
## Loading required package: RColorBrewer
itemFrequencyPlot(dt2,topN=3,type="relative",col=brewer.pal(8,'Pastel2'),main="Votos Relativos por Item")

#sum(itemFrequency(dt2, type = "relative"))
#itemFrequencyPlot(dt2,topN = 9)


rules<-apriori(dt2, parameter = list(supp=0.001, conf=0.5))
## Apriori
## 
## Parameter specification:
##  confidence minval smax arem  aval originalSupport maxtime support minlen
##         0.5    0.1    1 none FALSE            TRUE       5   0.001      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: 1 
## 
## set item appearances ...[0 item(s)] done [0.00s].
## set transactions ...[3 item(s), 1000 transaction(s)] done [0.00s].
## sorting and recoding items ... [3 item(s)] done [0.00s].
## creating transaction tree ... done [0.00s].
## checking subsets of size 1 2 3 done [0.00s].
## writing ... [8 rule(s)] done [0.00s].
## creating S4 object  ... done [0.00s].
rules<-sort(rules, decreasing=TRUE,by="confidence")
inspect(rules)
##     lhs               rhs     support confidence coverage lift      count
## [1] {}             => {bols}  0.916   0.9160000  1.000    1.0000000 916  
## [2] {meire}        => {bols}  0.660   0.8870968  0.744    0.9684463 660  
## [3] {haddad}       => {bols}  0.167   0.8564103  0.195    0.9349457 167  
## [4] {haddad,meire} => {bols}  0.101   0.7829457  0.129    0.8547443 101  
## [5] {}             => {meire} 0.744   0.7440000  1.000    1.0000000 744  
## [6] {bols}         => {meire} 0.660   0.7205240  0.916    0.9684463 660  
## [7] {haddad}       => {meire} 0.129   0.6615385  0.195    0.8891646 129  
## [8] {bols,haddad}  => {meire} 0.101   0.6047904  0.167    0.8128903 101
subRules<-rules[quality(rules)$confidence>0.4]
top10subRules <- head(subRules, n = 10, by = "confidence")

plot(top10subRules, method = "graph",  engine = "htmlwidget")
plot(subRules)

plot(rules, method="graph")

plot(rules, method = "grouped")