Analisis Cluster
IGNASIUS PRESDA
2023-01-04
#Mengimput Dataset dab Packages yang di Butuhkan
library(cluster)
library(factoextra)## Loading required package: ggplot2## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBalibrary(tidyverse)## ── Attaching packages
## ───────────────────────────────────────
## tidyverse 1.3.2 ──## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.1 ✔ stringr 1.5.0
## ✔ readr 2.1.3 ✔ forcats 0.5.2
## ✔ purrr 0.3.5
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()datac=read.delim("clipboard")
head(datac)## Nama.Laboratorium X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11
## 1 Laboratorium Geomarin 1 1 1 0 1 1 0 1 0 1 1
## 2 Perkembangan Arsitektur 2 2 0 0 0 0 0 0 0 0 4
## 3 Laboratorium Protomodel 0 2 0 0 1 0 1 0 0 0 0
## 4 Laboratorium Programable Logic Controller 0 2 0 0 0 0 0 0 0 0 0
## 5 Laboratorium Estetika dan Budaya 0 3 3 1 1 1 3 0 0 0 0
## 6 Laboratorium Elektronika Terapan 2 4 4 0 0 0 0 2 0 4 0datacll=datac[,-1]
row.names(datacll)=datac[,1]
head(datacll)## X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11
## Laboratorium Geomarin 1 1 1 0 1 1 0 1 0 1 1
## Perkembangan Arsitektur 2 2 0 0 0 0 0 0 0 0 4
## Laboratorium Protomodel 0 2 0 0 1 0 1 0 0 0 0
## Laboratorium Programable Logic Controller 0 2 0 0 0 0 0 0 0 0 0
## Laboratorium Estetika dan Budaya 0 3 3 1 1 1 3 0 0 0 0
## Laboratorium Elektronika Terapan 2 4 4 0 0 0 0 2 0 4 0#Analisis Deskriptif Data
summary(datacll)## X1 X2 X3 X4
## Min. : 0.000 Min. : 0.000 Min. : 0.000 Min. :0.0000
## 1st Qu.: 2.000 1st Qu.: 2.000 1st Qu.: 2.000 1st Qu.:0.0000
## Median : 5.000 Median : 4.000 Median : 3.000 Median :0.0000
## Mean : 7.054 Mean : 4.753 Mean : 3.462 Mean :0.6129
## 3rd Qu.: 9.000 3rd Qu.: 7.000 3rd Qu.: 5.000 3rd Qu.:1.0000
## Max. :33.000 Max. :14.000 Max. :11.000 Max. :7.0000
## X5 X6 X7 X8
## Min. :0.000 Min. : 0.000 Min. : 0.000 Min. : 0.0
## 1st Qu.:0.000 1st Qu.: 0.000 1st Qu.: 0.000 1st Qu.: 36.0
## Median :0.000 Median : 1.000 Median : 0.000 Median : 107.0
## Mean :1.043 Mean : 2.129 Mean : 1.183 Mean : 297.9
## 3rd Qu.:1.000 3rd Qu.: 2.000 3rd Qu.: 2.000 3rd Qu.: 426.0
## Max. :9.000 Max. :29.000 Max. :11.000 Max. :1569.0
## X9 X10 X11
## Min. :0.0000 Min. : 0.000 Min. : 0.000
## 1st Qu.:0.0000 1st Qu.: 0.000 1st Qu.: 0.000
## Median :0.0000 Median : 1.000 Median : 1.000
## Mean :0.6989 Mean : 2.376 Mean : 4.344
## 3rd Qu.:1.0000 3rd Qu.: 3.000 3rd Qu.: 4.000
## Max. :7.0000 Max. :30.000 Max. :55.000str(datacll)## 'data.frame': 93 obs. of 11 variables:
## $ X1 : int 1 2 0 0 0 2 0 5 0 9 ...
## $ X2 : int 1 2 2 2 3 4 2 3 2 9 ...
## $ X3 : int 1 0 0 0 3 4 1 3 3 9 ...
## $ X4 : int 0 0 0 0 1 0 0 0 1 7 ...
## $ X5 : int 1 0 1 0 1 0 0 0 3 9 ...
## $ X6 : int 1 0 0 0 1 0 0 3 0 6 ...
## $ X7 : int 0 0 1 0 3 0 3 9 5 8 ...
## $ X8 : int 1 0 0 0 0 2 0 102 0 8 ...
## $ X9 : int 0 0 0 0 0 0 0 0 0 6 ...
## $ X10: int 1 0 0 0 0 4 0 0 2 8 ...
## $ X11: int 1 4 0 0 0 0 0 2 2 7 ...#Langkah selanjutnya adalah melihat atau menentukan jumlah cluster yang optimal yang dapat terbentuk dari data #kita dengan beberapa metode, salah satu contohnya adalah menggunakan metode silhouette
fviz_nbclust(datacll, kmeans, method = "silhouette")
#Membuat Cluster Kedalam Dataset yang diMiliki
clusterr = kmeans(datacll, 2)
clusterr## K-means clustering with 2 clusters of sizes 17, 76
##
## Cluster means:
## X1 X2 X3 X4 X5 X6 X7 X8
## 1 16.529412 5.647059 3.823529 0.5294118 1.4705882 2.647059 1.411765 992.1765
## 2 4.934211 4.552632 3.381579 0.6315789 0.9473684 2.013158 1.131579 142.6184
## X9 X10 X11
## 1 1.2941176 2.588235 7.882353
## 2 0.5657895 2.328947 3.552632
##
## Clustering vector:
## Laboratorium Geomarin
## 2
## Perkembangan Arsitektur
## 2
## Laboratorium Protomodel
## 2
## Laboratorium Programable Logic Controller
## 2
## Laboratorium Estetika dan Budaya
## 2
## Laboratorium Elektronika Terapan
## 2
## Laboratorium Perilaku dan Lingkungan Interior
## 2
## Laboratorium Dasar dan Terapan Komputasi
## 2
## Laboratorium Sains Interior
## 2
## Workshop Instrumentasi
## 2
## Laboratorium Kadaster dan Kebijakan Pertanahan
## 2
## OTOMOTIF
## 2
## Laboratorium Computer Generated Imagery
## 2
## Laboratorium Arsitektur dan Jaringan Komputer
## 2
## PROSES MANUFAKTUR
## 2
## Laboratorium Media Visual
## 2
## Lab. Metalurgi
## 2
## Laboratorium Petrofisika
## 2
## Laboratorium Manajemen Kualitas Lingkungan
## 2
## Laboratorium Akuisisi Data dan Diseminasi Informasi
## 2
## OTOMASI INDUSTRI
## 2
## Pengolahan Limbah Industri
## 2
## Laboratorium Basic Design
## 2
## Perancangan dan Pengendalian Proses
## 2
## Teknologi Air dan Konsultasi Industri (BARU)
## 2
## MEKANIKA & MESIN FLUIDA
## 2
## Perancangan Kota
## 2
## Laboratorium Geofisika Teknik dan Lingkungan
## 2
## Laboratorium Geodesi dan Surveying
## 2
## Proses Kimia
## 2
## Lab. Kimia Material
## 2
## Laboratorium Rekayasa Perangkat Lunak
## 2
## METALURGI
## 2
## Laboratorium Pengendalian Pencemaran Udara dan Perubahan Iklim
## 2
## Laboratorium Hidroteknik dan Surveying
## 2
## Laboratorium Geodinamika dan Lingkungan
## 2
## Laboratorium Transportasi dan Geoteknik
## 2
## Laboratorium Infrastruktur Sistem dan Teknologi Informasi
## 2
## REKAYASA SISTEM INDUSTRI
## 2
## Rekayasa Bahan
## 2
## PERANCANGAN & PENGEMBANGAN PRODUK
## 2
## Lab. Ergonomi dan Perancangan Sistem Kerja
## 2
## Laboratorium Manajemen Informasi
## 2
## Rekayasa Energi dan Pengkondisian Lingkungan
## 2
## Sains & Teknologi Arsitektur
## 2
## Laboratorium Riset Desain
## 2
## Perancangan Arsitektur
## 2
## Laboratorium Geofisika Eksplorasi
## 2
## Laboratorium Pengembangan Wilayah, Pesisir, dan Lingkungan
## 2
## Lab. Inovasi Material
## 2
## Laboratorium Komputasi Berbasis Jaringan
## 1
## VIBRASI & SISTEM DINAMIS
## 2
## Manufaktur
## 2
## Laboratorium Pengolahan dan Pemurnian
## 2
## Laboratorium Rekayasa Data Dan Intelegensi Bisnis
## 2
## Laboratorium Material dan Struktur Gedung
## 2
## Laboratorium Teknologi Pengolahan Air
## 2
## Laboratorium Sistem Enterprise
## 2
## Laboratorium Remediasi Lingkungan
## 1
## Perpindahan Panas dan Massa
## 2
## Lab. Korosi dan Kegagalan Material
## 2
## Laboratorium Manajemen Sistem Informasi
## 2
## Laboratorium Geospasial
## 2
## Lab. Fisika Material
## 2
## Kimia Analisa dan Kimia Organik
## 1
## jaringan telekomunikasi - T. Elektro
## 2
## Rekayasa Instrumentasi
## 2
## Kimia Fisika
## 1
## Laboratorium Teknologi Material
## 1
## Vibrasi dan Akustik
## 2
## Laboratorium Pengembangan dan Perancangan Perkotaan
## 2
## Biomassa & Konversi Energi
## 1
## Lab. Sistem Manufaktur
## 1
## Komputasi dan Simulasi
## 1
## Perumahan & Permukiman
## 2
## Laboratorium Komputasi Cerdas dan Visi
## 1
## Laboratorium Pengelolaan Limbah Padat dan Limbah B3
## 1
## Mikrobiologi Teknik
## 1
## Laboratorium Komputasi dan Analisa Perencanaan Keruangan
## 2
## TEKNIK PEMBAKARAN & BAHAN BAKAR
## 2
## Lab. Pemodelan Kuantitatif dan Analisis Kebijakan Industri
## 1
## Elektrokimia dan korosi
## 1
## Rekayasa Fotonika
## 1
## Laboratorium Algoritma dan Pemrograman
## 2
## Laboratorium Komputer dan Otomasi
## 2
## Lab Teknologi Biokimia
## 1
## Laboratorium Human Centered Design
## 2
## Thermodinamika
## 2
## TERMODINAMIKA TERAPAN & PERPINDAHAN PANAS
## 2
## Logistics and Supply Chain Management Lab.
## 1
## Laboratorium Bisnis Analitik dan Strategi
## 1
## TEKNIK COR
## 2
## MEKANIKA BENDA PADAT
## 2
##
## Within cluster sum of squares by cluster:
## [1] 1447617 1743213
## (between_SS / total_SS = 75.9 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"#Selanjutnya Membuat Plot dari Hasil Cluster
fviz_cluster(clusterr, data = datacll)
#Kemudian membuat variabel baru ke dalam dataset kita yaitu variabel clusster yang berisikan hasil cluster yang telah dibuat
cluster2=data.frame(datacll, clusterr$cluster)
head(cluster2)## X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11
## Laboratorium Geomarin 1 1 1 0 1 1 0 1 0 1 1
## Perkembangan Arsitektur 2 2 0 0 0 0 0 0 0 0 4
## Laboratorium Protomodel 0 2 0 0 1 0 1 0 0 0 0
## Laboratorium Programable Logic Controller 0 2 0 0 0 0 0 0 0 0 0
## Laboratorium Estetika dan Budaya 0 3 3 1 1 1 3 0 0 0 0
## Laboratorium Elektronika Terapan 2 4 4 0 0 0 0 2 0 4 0
## clusterr.cluster
## Laboratorium Geomarin 2
## Perkembangan Arsitektur 2
## Laboratorium Protomodel 2
## Laboratorium Programable Logic Controller 2
## Laboratorium Estetika dan Budaya 2
## Laboratorium Elektronika Terapan 2#Langkah terakhir adalah kita dapat melihat rata-rata dari nilai di setiap cluster
datacll%>%mutate(cluster=clusterr$cluster)%>%
group_by(cluster)%>%summarise_all("mean")## # A tibble: 2 × 12
## cluster X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11
## <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 16.5 5.65 3.82 0.529 1.47 2.65 1.41 992. 1.29 2.59 7.88
## 2 2 4.93 4.55 3.38 0.632 0.947 2.01 1.13 143. 0.566 2.33 3.55