Обзор:
QLab.id Fashion adalah sebuah toko fashion yang menjual berbagai produk seperti джинсы, kemeja, косметика, dan lain-lain. Walaupun cukup berkembang, Namun dengan semakin banyaknya kompetitor dan banyak produk yang stoknya masih banyak tentunya membuat khawatir Pak Agus, менеджер DQLab.id Fashion. Salah Satu Solusi Adah membuat пакет янь inovatif. Dimana produk янь sebelumnya tidak terlalu laku tapi punya pangsa pasar malah bisa dipaketkan dan laku.
Mengidentifikasi пакет produk янь menarik untuk dipaketkan sehingga akhirnya bisa meningkatkan keuntungan дан лоялитас пункт pelanggan DQLab.id моды.
Набор данных Transaksi Penjualan DQLab.id Fashion
Data transaksi 3 bulan dalam bentuk format TSV (Значение, разделенное табуляцией) dengan nama transaksi_dqlab_retail.tsv dengan jumlah baris 33 669 данные бариса (3450 коде трансакси).
Проект ini terdiri dari 3 soal, yaitu:
- Mendapatkan понимание верхние 10 дан нижние 10 дари produk yang terjual.
- Mendapatkan daftar seluruh kombinasi пакет produk dengan korelasi янь kuat.
- Mendapatkan daftar seluruh kombinasi paket produk dengan item tertentu.
Результат Awal: Statistik Top 10
Membuat script R dan hasilnya disimpan ke dalam ke dalam file top10_item_retail.txt.
библиотека (правила)
data ‹-read.transactions(file = «transaksi_dqlab_retail.tsv», format = «single», sep = «\t», cols =c(1,2), skip = 1)
top10 ‹- sort( itemFrequency(данные, тип= «абсолютный»), уменьшение = ИСТИНА)[1:10]
hasil ‹- data.frame(«Нама Продукт»= имена(топ10), «Джумлах»= топ10, row.names = NULL)
write.csv(hasil, file="top10_item_retail.txt")
Результат :
"","Nama.Produk","Jumlah""1","Shampo Biasa",2075"2","Serum Vitamin",1685"3","Baju Batik Wanita",1312"4","Baju Kemeja Putih",1255"5","Celana Jogger Casual",1136"6","Cover Koper",1086"7","Sepatu Sandal Anak",1062"8","Tali Pinggang Gesper Pria",1003"9","Sepatu Sport merk Z",888"10","Wedges Hitam",849
Результат Awal: Statistik Bottom 10
Membuat script R dan hasilnya disimpan ke dalam ke dalam file bottom10_item_retail.txt
библиотека (arules)
data ‹- read.transactions(file="transaksi_dqlab_retail.tsv", format="single", sep="\t",cols = c(1,2), skip=1)< br /> bottom10 ‹- sort(itemFrequency(data,type="absolute"), уменьшение = FALSE)[1:10]
hasil ‹- data.frame("Намa Produk" = имена(bottom10), " Jumlah”= bottom10, row.names = NULL)
write.csv(hasil, file="bottom10_item_retail.txt")
Результат :
"","Nama.Produk","Jumlah""1","Celana Jeans Sobek Pria",9"2","Tas Kosmetik",11"3","Stripe Pants",19"4","Pelembab",24"5","Tali Ban Ikat Pinggang",27"6","Baju Renang Pria Anak-anak",32"7","Hair Dye",46"8","Atasan Baju Belang",56"9","Tas Sekolah Anak Perempuan",71"10","Dompet Unisex",75
Mendapatkan Kombinasi Produk yang menarik
Membuat script R dan hasilnya disimpan ke dalam file kombinasi_retail.txt
библиотека (правила)
nama_file ‹- «transaksi_dqlab_retail.tsv»
transaksi_tabular ‹-read.transactions(file = nama_file, format = «single», sep=»\t», cols=c(1, 2), skip=1)
apriori_rules ‹- apriori(transaksi_tabular, параметр = список(supp=10/длина(transaksi_tabular), conf = 0.5, minlen = 2, maxlen = 3))
apriori_rules ‹ - глава(сортировка(априорные_правила, по = 'подъем', уменьшение = T), n=10)
проверить(априорные_правила)
записать(априорные_правила, файл=”kombinasi_retail.txt”)
Результат :
lhs rhs support confidence lift
[1] {Tas Makeup,
Tas Pinggang Wanita} => {Baju Renang Anak Perempuan} 0.010434783 0.8780488 24.42958
[2] {Tas Makeup,
Tas Travel} => {Baju Renang Anak Perempuan} 0.010144928 0.8139535 22.64629
[3] {Tas Makeup,
Tas Ransel Mini} => {Baju Renang Anak Perempuan} 0.011304348 0.7358491 20.47322
[4] {Sunblock Cream,
Tas Pinggang Wanita} => {Kuas Makeup } 0.016231884 0.6913580 20.21343
[5] {Baju Renang Anak Perempuan,
Tas Pinggang Wanita} => {Tas Makeup} 0.010434783 0.8000000 19.57447
[6] {Baju Renang Anak Perempuan,
Tas Ransel Mini} => {Tas Makeup} 0.011304348 0.7959184 19.47460
[7] {Baju Renang Anak Perempuan,
Celana Pendek Green/Hijau} => {Tas Makeup} 0.010144928 0.7777778 19.03073
[8] {Tas Makeup,
Tas Waist Bag} => {Baju Renang Anak Perempuan} 0.004347826 0.6818182 18.96994
[9] {Celana Pendek Green/Hijau,
Tas Makeup} => {Baju Renang Anak Perempuan} 0.010144928 0.6730769 18.72674
[10] {Dompet Flip Cover,
Sunblock Cream} => {Kuas Makeup } 0.016231884 0.6292135 18.39650
Mencari Paket Produk yang bisa dipasangkan dengan Item Slow-Moving
Membuat script R dan hasilnya disimpan ke dalam ke dalam file kombinasi_retail_slow_moving.txt.
библиотека (правила)
nama_file ‹- «transaksi_dqlab_retail.tsv»
transaksi_tabular ‹- read.transactions(file=nama_file, format="single", sep="\t", cols=c(1, 2), skip=1)
jumlah_transaksi‹-length(transaksi_tabular)
jumlah_kemunculan_minimal ‹- 10
apriori_rules ‹- apriori(transaksi_tabular, параметр = list(supp=jumlah_kemunculan_minimal/jumlah_transaksi, conf=0.1 , minlen=2, maxlen=3))
#Filter
apriori_rules1 ‹- subset(apriori_rules, lift › 1 & rhs %in% «Tas Makeup»)
apriori_rules1 ‹- sort(apriori_rules1 , by='подъем', уменьшение =T)[1:3]
apriori_rules2 ‹- подмножество (apriori_rules, подъем › 1 & rhs %in% «Baju Renang Pria Anak-anak»)
apriori_rules2 ‹ - сортировать(априорные_правила2, по='подъему', по убыванию = T)[1:3]
априорные_правила ‹- c (априорные_правила1, априорные_правила2)
проверять(априорные_правила)
записывать(априорные_правила, файл =”kombinasi_retail_slow_moving.txt”)
Результат :
lhs rhs support confidence lift
[1] {Baju Renang Anak Perempuan,
Tas Pinggang Wanita} => {Tas Makeup} 0.010434783 0.8000000 19.57447
[2] {Baju Renang Anak Perempuan,
Tas Ransel Mini} => {Tas Makeup} 0.011304348 0.7959184 19.47460
[3] {Baju Renang Anak Perempuan,
Celana Pendek Green/Hijau} => {Tas Makeup} 0.010144928 0.7777778 19.03073
[4] {Gembok Koper,
Tas Waist Bag} => {Baju Renang Pria Anak-anak} 0.004057971 0.2745098 29.59559
[5] {Flat Shoes Ballerina,
Gembok Koper} => {Baju Renang Pria Anak-anak} 0.004057971 0.1866667 20.12500
[6] {Celana Jeans Sobek Wanita,
Jeans Jumbo} => {Baju Renang Pria Anak-anak} 0.005507246 0.1210191 13.04737
