Metode FP Growth Menggunakan RStudio

Assalamualaikum Wr. Wb.
disini saya akan membuat postingan tentang cara mengerjakan FP Growth menggunakan RStudio.

Langkah yang pertama adalah kita mengubah data mentah menjadi dataset yang siap diimport ke dalam RStudio

data mentah

dataset yang siap dimasukkan ke dalam RStudio

Kemudian langkah selanjutnya adalah membuka RStudio dan menginstall beberapa packages. package yang diinstall adalah:

install.packages("arules")

install.packages("arulesViz")

install.packages("Matrix")

setelah itu kita run script tersebut

kemudian kita perlu memanggil atau meng-include kan script tersebut dengan mengetikkan

library(arules)

library(arulesViz)

library(Matrix) 

jika sudah maka kita run scriptnya

maka di bagian console akan muncul hasilnya

setelah semua packages diinstall dan dimasukkan, maka yang selanjutnya adalah mengubah dataset kita dari yang sebelumnya numeric menjadi matrix dengan mengetikkan kode dibawah ini

 

qq=as.matrix(sample)

qq=as(qq,"transactions")

setelah itu kita mulai menggunakan metode apriori dengan mengetikkan kode dibawah ini

 rules=apriori(qq,parameter = list(supp=0.2,conf=0.5,minlen=2))

selanjutnya kita sortir hasilnya berdasarkan dengan "lift" dan melihat hasilnya

rules=sort(rules, by="lift")

inspect(rules)

kemudian kita ubah hasil tersebut menjadi sebuah grafik

plot(rules,method="graph",control=list(type="itemsets"))

setelah itu kita berusaha mengurangi redundansi dengan kode berikut

subset.matrix<-is.subset(rules,rules)

subset.matrix[lower.tri(subset.matrix,diag=T)]<-NA

redundant<-colSums(subset.matrix,na.rm=T)>=1

which(redundant)

terakhir adalah mengubah data tersebut menjadi sebuah plot grafik yang menampilkan data

rules.pruned<-rules[!redundant]

inspect(rules)

plot(rules)

sekian dari saya, mohon maaf apabila terdapat banyak kesalahan baik disengaja maupun tidak disengaja.
Wassalamualaikum Wr. Wb.