library(tidyverse)
## Warning: package 'ggplot2' was built under R version 4.4.2
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1
## ✔ purrr 1.0.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(cluster)
library(factoextra)
## Warning: package 'factoextra' was built under R version 4.4.2
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
library(cluster)
data11 <- read.table(text = "kabupaten kepadatan tpt p0 pdrb AHH RLS
Cilacap 936 9.62 11.02 48.64 74.07 7.18
Banyumas 1356 6.05 12.84 23.80 73.88 7.78
Purbalingga 1501 5.23 15.30 18.38 73.28 7.33
Banjarnegara 1013 6.38 15.20 15.78 74.37 6.84
Kebumen 1139 5.92 16.41 15.52 73.70 7.85
Purworejo 716 4.45 11.53 18.30 75.03 8.32
Wonosobo 915 5.01 16.17 16.44 72.05 6.88
Magelang 1196 4.97 11.09 18.91 74.03 7.81
Boyolali 1071 4.92 9.82 23.08 76.12 8.08
Klaten 1938 4.31 12.33 23.69 76.95 9.09
Sukoharjo 1888 2.47 7.61 31.60 77.82 9.62
Wonogiri 584 1.95 10.99 21.42 76.41 7.42
Karanganyar 1223 5.70 9.85 30.19 77.64 8.79
Sragen 1052 4.69 12.94 29.22 75.87 7.79
Grobogan 734 4.40 11.80 14.41 74.93 7.26
Blora 496 3.70 11.53 20.79 74.60 7.01
Rembang 739 1.76 14.65 22.45 74.68 7.41
Pati 905 4.45 9.33 24.72 76.32 7.79
Kudus 2037 3.21 7.41 82.50 76.76 9.06
Jepara 1141 4.10 6.88 19.23 75.97 8.09
Demak 1364 6.11 12.09 16.17 75.52 8.10
Semarang 1127 4.81 7.27 35.34 75.86 8.05
Temanggung 957 2.54 9.33 20.19 75.70 7.41
Kendal 930 7.34 9.48 32.13 74.53 7.71
Batang 1039 6.64 8.98 20.39 74.79 6.90
Pekalongan 1190 3.23 9.67 17.54 73.80 7.46
Pemalang 1346 6.63 15.06 13.22 73.65 6.50
Tegal 1865 9.64 7.90 16.34 71.85 7.25
Brebes 1062 9.48 16.05 17.53 69.74 6.35
KotaMagelang 7588 6.71 7.10 56.53 77.02 10.94
KotaSurakarta 11423 5.83 8.84 73.21 77.43 10.92
KotaSalatiga 3427 5.58 4.73 52.74 77.72 10.95
KotaSemarang 4495 7.60 4.25 91.06 77.69 10.80
KotaPekalongan 6936 4.98 7.00 25.61 74.51 9.20
KotaTegal 7048 6.68 7.91 42.46 74.64 9.00
", header = TRUE)
rownames(data11) <- data11[,1]
data11
## kabupaten kepadatan tpt p0 pdrb AHH RLS
## Cilacap Cilacap 936 9.62 11.02 48.64 74.07 7.18
## Banyumas Banyumas 1356 6.05 12.84 23.80 73.88 7.78
## Purbalingga Purbalingga 1501 5.23 15.30 18.38 73.28 7.33
## Banjarnegara Banjarnegara 1013 6.38 15.20 15.78 74.37 6.84
## Kebumen Kebumen 1139 5.92 16.41 15.52 73.70 7.85
## Purworejo Purworejo 716 4.45 11.53 18.30 75.03 8.32
## Wonosobo Wonosobo 915 5.01 16.17 16.44 72.05 6.88
## Magelang Magelang 1196 4.97 11.09 18.91 74.03 7.81
## Boyolali Boyolali 1071 4.92 9.82 23.08 76.12 8.08
## Klaten Klaten 1938 4.31 12.33 23.69 76.95 9.09
## Sukoharjo Sukoharjo 1888 2.47 7.61 31.60 77.82 9.62
## Wonogiri Wonogiri 584 1.95 10.99 21.42 76.41 7.42
## Karanganyar Karanganyar 1223 5.70 9.85 30.19 77.64 8.79
## Sragen Sragen 1052 4.69 12.94 29.22 75.87 7.79
## Grobogan Grobogan 734 4.40 11.80 14.41 74.93 7.26
## Blora Blora 496 3.70 11.53 20.79 74.60 7.01
## Rembang Rembang 739 1.76 14.65 22.45 74.68 7.41
## Pati Pati 905 4.45 9.33 24.72 76.32 7.79
## Kudus Kudus 2037 3.21 7.41 82.50 76.76 9.06
## Jepara Jepara 1141 4.10 6.88 19.23 75.97 8.09
## Demak Demak 1364 6.11 12.09 16.17 75.52 8.10
## Semarang Semarang 1127 4.81 7.27 35.34 75.86 8.05
## Temanggung Temanggung 957 2.54 9.33 20.19 75.70 7.41
## Kendal Kendal 930 7.34 9.48 32.13 74.53 7.71
## Batang Batang 1039 6.64 8.98 20.39 74.79 6.90
## Pekalongan Pekalongan 1190 3.23 9.67 17.54 73.80 7.46
## Pemalang Pemalang 1346 6.63 15.06 13.22 73.65 6.50
## Tegal Tegal 1865 9.64 7.90 16.34 71.85 7.25
## Brebes Brebes 1062 9.48 16.05 17.53 69.74 6.35
## KotaMagelang KotaMagelang 7588 6.71 7.10 56.53 77.02 10.94
## KotaSurakarta KotaSurakarta 11423 5.83 8.84 73.21 77.43 10.92
## KotaSalatiga KotaSalatiga 3427 5.58 4.73 52.74 77.72 10.95
## KotaSemarang KotaSemarang 4495 7.60 4.25 91.06 77.69 10.80
## KotaPekalongan KotaPekalongan 6936 4.98 7.00 25.61 74.51 9.20
## KotaTegal KotaTegal 7048 6.68 7.91 42.46 74.64 9.00
HIERARKI
#normalisasi data
datanorm <- scale(data11[2:7], scale = TRUE)
#penghitungan jarak
datadist <- dist(datanorm, method = "euclidean")
datadist
## Cilacap Banyumas Purbalingga Banjarnegara Kebumen Purworejo
## Banyumas 2.3416159
## Purbalingga 3.0569080 1.0263799
## Banjarnegara 2.6960689 1.1649430 0.9529479
## Kebumen 3.0736719 1.1806305 0.7089994 0.9814220
## Purworejo 3.2308526 1.2450658 1.7662692 1.9349575 1.8715625
## Wonosobo 3.4597875 1.7326437 0.8559348 1.4833277 1.2789170 2.4641990
## Magelang 2.8570729 0.8134812 1.4145442 1.6557565 1.7145445 0.7686100
## Boyolali 3.0545518 1.6630220 2.3871122 2.2959785 2.5022755 0.8972216
## Klaten 3.7439697 2.1845927 2.6708869 2.7085149 2.5780183 1.3679180
## Sukoharjo 4.8125540 3.5860065 4.1767412 4.3016628 4.2593591 2.5570218
## Wonogiri 4.3432737 2.6065171 2.7643881 2.8826151 3.0482307 1.6582821
## Karanganyar 3.2341946 2.4233803 3.2036801 2.9879152 3.1341765 1.8088006
## Sragen 2.9712177 1.3289096 1.7580019 1.7108647 1.8518591 0.9582922
## Grobogan 3.2252825 1.2653336 1.5118152 1.5216310 1.8123412 0.8648289
## Blora 3.3546189 1.5037464 1.6449728 1.8054656 2.0790238 1.1364256
## Rembang 4.3769015 2.3267545 1.9723820 2.4310286 2.3083536 1.8376718
## Pati 3.2303219 1.9089358 2.5626393 2.4694054 2.7460055 1.1143505
## Kudus 4.4072152 4.1762641 4.8136202 4.9857978 5.0054413 3.7802143
## Jepara 3.6542420 2.3955432 3.0842106 3.0955526 3.3105721 1.5433174
## Demak 2.6907623 1.0393653 1.7491157 1.5256427 1.6729029 0.9627816
## Semarang 3.0336331 2.2086305 3.0280118 3.0146934 3.2519123 1.6636390
## Temanggung 4.0229874 2.3413653 2.6508574 2.7960054 3.0039110 1.4367835
## Kendal 1.5864892 1.3515008 2.3287739 2.1142470 2.4398071 1.8349727
## Batang 2.2312624 1.5029108 2.2564102 1.9338499 2.5038881 1.7738115
## Pekalongan 3.6528376 1.7798633 2.0257242 2.4024091 2.4941686 1.2894888
## Pemalang 2.7356791 1.3686395 1.0272402 0.5309044 1.2059175 2.2711753
## Tegal 2.2955468 2.6866741 3.2858026 3.1409611 3.4184419 3.4915212
## Brebes 3.3137107 3.2498372 3.0224522 3.0291421 3.0706435 4.3958529
## KotaMagelang 4.7557270 4.6561031 5.4014374 5.5048860 5.3739668 4.5115371
## KotaSurakarta 6.0234102 5.9003669 6.4468041 6.6195632 6.4686296 5.8496305
## KotaSalatiga 4.6739245 4.4489222 5.3152673 5.3685639 5.3013877 3.9316292
## KotaSemarang 4.9247104 5.5702791 6.4423331 6.4409819 6.4452840 5.4497895
## KotaPekalongan 4.1348873 3.1755768 3.7639353 4.0480853 3.9658359 3.0300795
## KotaTegal 3.4149279 3.1330222 3.8222134 3.9843042 3.9668913 3.3309647
## Wonosobo Magelang Boyolali Klaten Sukoharjo Wonogiri
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang 2.0390712
## Boyolali 3.1264724 1.2497159
## Klaten 3.4770731 1.9992817 1.2855861
## Sukoharjo 4.8959928 3.1008009 2.1575446 1.8767080
## Wonogiri 3.3051278 2.0597113 1.6591369 1.9364070 2.3017557
## Karanganyar 4.0063039 2.2672729 1.1416223 1.2122729 1.9194994 2.3771636
## Sragen 2.5189583 1.2815029 1.0449758 1.2981167 2.6991578 1.6327720
## Grobogan 2.1180176 0.8074586 1.2231381 1.9511718 3.0945128 1.5565336
## Blora 2.1222309 1.0110735 1.4611615 2.2089174 3.1327089 1.3835475
## Rembang 2.3039560 2.0355138 2.3842328 2.3951531 3.3471754 1.4727861
## Pati 3.2618980 1.4293994 0.3943467 1.4819843 2.0819962 1.4168168
## Kudus 5.4091889 3.9963382 3.3768631 3.4095560 2.7302244 3.6632587
## Jepara 3.7204928 1.7420154 1.0134915 1.9629394 1.9278648 1.7816805
## Demak 2.5409314 1.0842724 1.0465867 1.5073392 2.9999580 2.3000553
## Semarang 3.6841148 1.7665472 1.0121239 1.9873770 2.0616767 2.0739976
## Temanggung 3.1897361 1.6646482 1.3578893 2.0169820 2.2697795 0.7257012
## Kendal 2.9168663 1.4984489 1.6095658 2.5374930 3.4852336 3.0276815
## Batang 2.7964825 1.3547865 1.4995174 2.6461040 3.5336856 2.6579299
## Pekalongan 2.4313889 1.0336495 1.6387381 2.4077665 2.9858076 1.6561170
## Pemalang 1.3091643 1.8389746 2.6413008 3.1438490 4.6775810 3.2106971
## Tegal 3.4897447 2.8831055 3.5012060 4.3897522 5.3059479 4.7771956
## Brebes 2.6383639 3.8000504 4.8183573 5.3641324 6.8060995 5.5914256
## KotaMagelang 6.1469189 4.6480139 4.1102581 3.7874916 3.6091516 5.1511537
## KotaSurakarta 7.1416963 5.9507703 5.5116952 5.0386054 4.8924938 6.2425878
## KotaSalatiga 6.0651197 4.2341407 3.4131175 3.2731901 2.4379406 4.3867490
## KotaSemarang 7.1300539 5.5839225 4.9130144 4.8821000 4.3718264 5.9439273
## KotaPekalongan 4.3953610 2.9113857 2.8446466 2.9616683 3.0736452 3.7058199
## KotaTegal 4.4704098 3.1444225 3.0501782 3.1926088 3.5577415 4.1636739
## Karanganyar Sragen Grobogan Blora Rembang Pati
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen 1.6517722
## Grobogan 2.2697323 1.0836115
## Blora 2.5244147 1.2413680 0.5666747
## Rembang 3.1917898 1.7739483 1.6622400 1.4144648
## Pati 1.2927386 1.1614399 1.2688347 1.3913070 2.3308090
## Kudus 3.1147163 3.4991367 4.1940079 4.0018770 4.2590621 3.2775998
## Jepara 1.7164160 1.9593215 1.7678444 1.8510134 2.8098163 0.8791630
## Demak 1.6370522 1.0710595 1.1756903 1.6453698 2.4868178 1.3795032
## Semarang 1.4807690 1.7735200 1.9437624 1.9450725 2.9366988 0.9156796
## Temanggung 2.2802656 1.6508617 1.3239812 1.1405041 1.7703751 1.0970389
## Kendal 2.0914138 1.8719820 1.9338366 2.1198084 3.2960443 1.8101642
## Batang 2.2855994 1.8694897 1.4952801 1.7062900 3.0583028 1.5818154
## Pekalongan 2.7468440 1.8080635 1.1171502 0.8984735 1.7905719 1.5896189
## Pemalang 3.4015518 2.1439567 1.7882640 2.0220802 2.6963366 2.8028149
## Tegal 4.0649817 3.7827217 3.4071125 3.6111913 4.8019435 3.7019251
## Brebes 5.4978127 4.4514569 4.1283209 4.2455742 4.8723165 5.0243756
## KotaMagelang 3.5450385 4.4628917 5.0684637 5.2260582 5.6529788 4.2701512
## KotaSurakarta 5.0223023 5.6415868 6.3053522 6.4011083 6.5768221 5.6283106
## KotaSalatiga 2.7375762 4.0153118 4.5702014 4.6815463 5.2096929 3.4953716
## KotaSemarang 4.2250723 5.2772528 5.9815651 6.0225803 6.5923533 4.9833586
## KotaPekalongan 3.0792687 3.3091571 3.3778351 3.5127883 4.0759015 2.9844316
## KotaTegal 3.0704286 3.3528860 3.6617312 3.7961232 4.4494978 3.2232168
## Kudus Jepara Demak Semarang Temanggung Kendal
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen
## Grobogan
## Blora
## Rembang
## Pati
## Kudus
## Jepara 3.4060221
## Demak 4.1025923 1.9164566
## Semarang 2.7374741 0.9097288 1.9005417
## Temanggung 3.5823382 1.2276562 2.0937457 1.6112297
## Kendal 3.7790257 2.1223158 1.4541744 1.6584738 2.6084904
## Batang 4.1942112 1.8399486 1.4473459 1.7004211 2.1846870 0.9696437
## Pekalongan 3.9822501 1.6114552 1.9618890 1.8730071 1.1187544 2.2673221
## Pemalang 5.3009770 3.3460987 1.8869614 3.2822462 3.0539106 2.2678641
## Tegal 5.6096998 3.7019152 3.0683998 3.5148252 4.2302854 2.1673163
## Brebes 6.9103343 5.3787156 4.0495387 5.1727293 5.3014764 3.7204403
## KotaMagelang 3.5108901 4.2135495 4.3430592 3.8350032 4.9047387 4.2396230
## KotaSurakarta 4.3883087 5.6659615 5.7031144 5.2813407 6.0911737 5.6962851
## KotaSalatiga 2.6942560 3.2884065 3.9802870 2.9497614 4.1439689 3.8278392
## KotaSemarang 3.0437445 4.9639516 5.3444034 4.3115854 5.7089201 4.7666447
## KotaPekalongan 3.8536557 2.7111781 3.0413386 2.7008004 3.2463348 3.0914781
## KotaTegal 3.5915345 3.1833174 3.1110400 2.8225568 3.7486396 2.8175925
## Batang Pekalongan Pemalang Tegal Brebes KotaMagelang
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen
## Grobogan
## Blora
## Rembang
## Pati
## Kudus
## Jepara
## Demak
## Semarang
## Temanggung
## Kendal
## Batang
## Pekalongan 1.8889517
## Pemalang 2.0228568 2.5168381
## Tegal 2.2972289 3.4895026 2.9199585
## Brebes 3.8278154 4.4321606 2.6228239 2.8572863
## KotaMagelang 4.7515884 5.0238596 5.7466698 5.3399248 7.0462838
## KotaSurakarta 6.1395003 6.2362751 6.8310060 6.7359735 8.0757338 1.9309621
## KotaSalatiga 4.2947580 4.4702798 5.6875817 5.2885090 7.2401869 1.9861806
## KotaSemarang 5.4191008 5.9274134 6.7124200 6.0153916 7.8344099 2.4149497
## KotaPekalongan 3.2083821 3.0331235 4.1428088 3.8377232 5.5452289 2.6693764
## KotaTegal 3.1912864 3.5263011 4.0791397 3.5786141 5.2394035 2.1618284
## KotaSurakarta KotaSalatiga KotaSemarang KotaPekalongan
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen
## Grobogan
## Blora
## Rembang
## Pati
## Kudus
## Jepara
## Demak
## Semarang
## Temanggung
## Kendal
## Batang
## Pekalongan
## Pemalang
## Tegal
## Brebes
## KotaMagelang
## KotaSurakarta
## KotaSalatiga 3.6662091
## KotaSemarang 3.4193608 2.2628881
## KotaPekalongan 3.7697945 3.0940442 4.3951050
## KotaTegal 3.2538212 2.9925611 3.6815409 1.2645467
#clustering
##single linkage
single <- hclust(datadist, method = "single")
plot(single, hang = -2, cex = 1)
rect.hclust(single,3)
membersingle <- data.frame(id=data11$kabupaten,cutree(single,k=3))
membersingle
## id cutree.single..k...3.
## Cilacap Cilacap 1
## Banyumas Banyumas 1
## Purbalingga Purbalingga 1
## Banjarnegara Banjarnegara 1
## Kebumen Kebumen 1
## Purworejo Purworejo 1
## Wonosobo Wonosobo 1
## Magelang Magelang 1
## Boyolali Boyolali 1
## Klaten Klaten 1
## Sukoharjo Sukoharjo 1
## Wonogiri Wonogiri 1
## Karanganyar Karanganyar 1
## Sragen Sragen 1
## Grobogan Grobogan 1
## Blora Blora 1
## Rembang Rembang 1
## Pati Pati 1
## Kudus Kudus 2
## Jepara Jepara 1
## Demak Demak 1
## Semarang Semarang 1
## Temanggung Temanggung 1
## Kendal Kendal 1
## Batang Batang 1
## Pekalongan Pekalongan 1
## Pemalang Pemalang 1
## Tegal Tegal 1
## Brebes Brebes 3
## KotaMagelang KotaMagelang 1
## KotaSurakarta KotaSurakarta 1
## KotaSalatiga KotaSalatiga 1
## KotaSemarang KotaSemarang 1
## KotaPekalongan KotaPekalongan 1
## KotaTegal KotaTegal 1
data11[2:7] %>%
mutate(Cluster = membersingle[,2]) %>%
group_by(Cluster) %>%
summarise_all("mean")
## # A tibble: 3 × 7
## Cluster kepadatan tpt p0 pdrb AHH RLS
## <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 2160. 5.28 10.5 28.8 75.2 8.17
## 2 2 2037 3.21 7.41 82.5 76.8 9.06
## 3 3 1062 9.48 16.0 17.5 69.7 6.35
##complete linkage
complete <- hclust(datadist, method = "complete")
plot(complete, hang = -2, cex = 1)
rect.hclust(complete,3)
membercomplete <- data.frame(id=data11$kabupaten,cutree(complete,k=3))
membercomplete
## id cutree.complete..k...3.
## Cilacap Cilacap 1
## Banyumas Banyumas 2
## Purbalingga Purbalingga 2
## Banjarnegara Banjarnegara 2
## Kebumen Kebumen 2
## Purworejo Purworejo 2
## Wonosobo Wonosobo 2
## Magelang Magelang 2
## Boyolali Boyolali 2
## Klaten Klaten 2
## Sukoharjo Sukoharjo 2
## Wonogiri Wonogiri 2
## Karanganyar Karanganyar 2
## Sragen Sragen 2
## Grobogan Grobogan 2
## Blora Blora 2
## Rembang Rembang 2
## Pati Pati 2
## Kudus Kudus 3
## Jepara Jepara 2
## Demak Demak 2
## Semarang Semarang 2
## Temanggung Temanggung 2
## Kendal Kendal 2
## Batang Batang 2
## Pekalongan Pekalongan 2
## Pemalang Pemalang 2
## Tegal Tegal 1
## Brebes Brebes 1
## KotaMagelang KotaMagelang 3
## KotaSurakarta KotaSurakarta 3
## KotaSalatiga KotaSalatiga 3
## KotaSemarang KotaSemarang 3
## KotaPekalongan KotaPekalongan 2
## KotaTegal KotaTegal 2
data11[2:7] %>%
mutate(Cluster = membercomplete[,2]) %>%
group_by(Cluster) %>%
summarise_all("mean")
## # A tibble: 3 × 7
## Cluster kepadatan tpt p0 pdrb AHH RLS
## <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 1288. 9.58 11.7 27.5 71.9 6.93
## 2 2 1539. 4.79 11.2 22.6 75.1 7.83
## 3 3 5794 5.79 6.47 71.2 77.3 10.5
##average linkage
average <- hclust(datadist, method = "average")
plot(average, hang = -2, cex = 1)
rect.hclust(complete,3)
memberaverage <- data.frame(id=data11$kabupaten,cutree(average,k=3))
memberaverage
## id cutree.average..k...3.
## Cilacap Cilacap 1
## Banyumas Banyumas 2
## Purbalingga Purbalingga 2
## Banjarnegara Banjarnegara 2
## Kebumen Kebumen 2
## Purworejo Purworejo 2
## Wonosobo Wonosobo 2
## Magelang Magelang 2
## Boyolali Boyolali 2
## Klaten Klaten 2
## Sukoharjo Sukoharjo 2
## Wonogiri Wonogiri 2
## Karanganyar Karanganyar 2
## Sragen Sragen 2
## Grobogan Grobogan 2
## Blora Blora 2
## Rembang Rembang 2
## Pati Pati 2
## Kudus Kudus 3
## Jepara Jepara 2
## Demak Demak 2
## Semarang Semarang 2
## Temanggung Temanggung 2
## Kendal Kendal 2
## Batang Batang 2
## Pekalongan Pekalongan 2
## Pemalang Pemalang 2
## Tegal Tegal 1
## Brebes Brebes 1
## KotaMagelang KotaMagelang 3
## KotaSurakarta KotaSurakarta 3
## KotaSalatiga KotaSalatiga 3
## KotaSemarang KotaSemarang 3
## KotaPekalongan KotaPekalongan 3
## KotaTegal KotaTegal 3
data11[2:7] %>%
mutate(Cluster = memberaverage[,2]) %>%
group_by(Cluster) %>%
summarise_all("mean")
## # A tibble: 3 × 7
## Cluster kepadatan tpt p0 pdrb AHH RLS
## <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 1288. 9.58 11.7 27.5 71.9 6.93
## 2 2 1102. 4.71 11.5 21.7 75.1 7.73
## 3 3 6136. 5.80 6.75 60.6 76.5 10.1
#Ukuran Evaluasi Cluster (liat SSB/SST)
set.seed(123)
km.res <- kmeans(datanorm, 3, nstart = 25)
km.res
## K-means clustering with 3 clusters of sizes 7, 11, 17
##
## Cluster means:
## kepadatan tpt p0 pdrb AHH RLS
## 1 1.6430327 0.2304847 -1.17108984 1.5644102 0.7832382 1.5629019
## 2 -0.3825604 0.8850396 0.77798881 -0.4261023 -1.0146780 -0.7868448
## 3 -0.4290038 -0.6675781 -0.02119106 -0.3684557 0.3340465 -0.1344130
##
## Clustering vector:
## Cilacap Banyumas Purbalingga Banjarnegara Kebumen
## 2 2 2 2 2
## Purworejo Wonosobo Magelang Boyolali Klaten
## 3 2 3 3 3
## Sukoharjo Wonogiri Karanganyar Sragen Grobogan
## 3 3 3 3 3
## Blora Rembang Pati Kudus Jepara
## 3 3 3 1 3
## Demak Semarang Temanggung Kendal Batang
## 3 3 3 2 2
## Pekalongan Pemalang Tegal Brebes KotaMagelang
## 3 2 2 2 1
## KotaSurakarta KotaSalatiga KotaSemarang KotaPekalongan KotaTegal
## 1 1 1 1 1
##
## Within cluster sum of squares by cluster:
## [1] 29.88745 28.67739 25.80017
## (between_SS / total_SS = 58.6 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"
NON HIERARKI
library(cluster)
library(factoextra)
library(tidyverse)
#normalisasi data
datanorm <- scale(data11[2:7], scale = TRUE)
datanorm
## kepadatan tpt p0 pdrb AHH
## Cilacap -0.48704772 2.17420024 0.1339037 0.95362973 -0.57236636
## Banyumas -0.31501222 0.35837028 0.6899444 -0.31627957 -0.67670397
## Purbalingga -0.25561901 -0.05871111 1.4415159 -0.59336929 -1.00619119
## Banjarnegara -0.45550788 0.52622011 1.4109642 -0.72629055 -0.40762275
## Kebumen -0.40389723 0.29224762 1.7806397 -0.73958268 -0.77555014
## Purworejo -0.57716156 -0.45544707 0.2897173 -0.59745917 -0.04518682
## Wonosobo -0.49564950 -0.17061099 1.7073156 -0.69254900 -1.68163997
## Magelang -0.38054956 -0.19095643 0.1552899 -0.56627380 -0.59433217
## Boyolali -0.43175060 -0.21638822 -0.2327166 -0.35308854 0.55338162
## Klaten -0.07662017 -0.52665608 0.5341308 -0.32190317 1.00917226
## Sukoharjo -0.09710058 -1.46254604 -0.9079089 0.08248422 1.48692872
## Wonogiri -0.63122986 -1.72703668 0.1247382 -0.43795365 0.71263377
## Karanganyar -0.36949013 0.18034774 -0.2235511 0.01039999 1.38808256
## Sragen -0.43953316 -0.33337446 0.7204961 -0.03918986 0.41609528
## Grobogan -0.56978861 -0.48087886 0.3722068 -0.79632983 -0.10010135
## Blora -0.66727540 -0.83692395 0.2897173 -0.47016150 -0.28131932
## Rembang -0.56774057 -1.82367749 1.2429300 -0.38529638 -0.23738769
## Pati -0.49974558 -0.45544707 -0.3824198 -0.26924590 0.66321069
## Kudus -0.03606894 -1.08615551 -0.9690122 2.68467358 0.90483464
## Jepara -0.40307801 -0.63346961 -1.1309362 -0.54991426 0.47100981
## Demak -0.31173535 0.38888843 0.4608067 -0.70635236 0.22389441
## Semarang -0.40881253 -0.27233816 -1.0117846 0.27368634 0.41060383
## Temanggung -0.47844595 -1.42694153 -0.3824198 -0.50083564 0.32274057
## Kendal -0.48950537 1.01451052 -0.3365923 0.10957971 -0.31975949
## Batang -0.44485807 0.65846543 -0.4893507 -0.49061092 -0.17698170
## Pekalongan -0.38300721 -1.07598280 -0.2785441 -0.63631308 -0.72063560
## Pemalang -0.31910830 0.65337907 1.3681919 -0.85716687 -0.80300741
## Tegal -0.10652158 2.18437296 -0.8193090 -0.69766135 -1.79146904
## Brebes -0.43543707 2.10299123 1.6706536 -0.63682431 -2.95016574
## KotaMagelang 2.23766697 0.69406994 -1.0637225 1.35699464 1.04761244
## KotaSurakarta 3.80851496 0.24647040 -0.5321231 2.20973567 1.27276203
## KotaSalatiga 0.53328666 0.11931144 -1.7877975 1.16323634 1.43201418
## KotaSemarang 0.97074836 1.14675584 -1.9344456 3.12229127 1.41553982
## KotaPekalongan 1.97060233 -0.18587007 -1.0942742 -0.22374593 -0.33074240
## KotaTegal 2.01647846 0.67881086 -0.8162538 0.63768611 -0.25935351
## RLS
## Cilacap -0.75747040
## Banyumas -0.28461432
## Purbalingga -0.63925638
## Banjarnegara -1.02542218
## Kebumen -0.22944778
## Purworejo 0.14095614
## Wonosobo -0.99389844
## Magelang -0.26097152
## Boyolali -0.04818629
## Klaten 0.74778811
## Sukoharjo 1.16547764
## Wonogiri -0.56832797
## Karanganyar 0.51136007
## Sragen -0.27673339
## Grobogan -0.69442292
## Blora -0.89144629
## Rembang -0.57620890
## Pati -0.27673339
## Kudus 0.72414530
## Jepara -0.04030535
## Demak -0.03242442
## Semarang -0.07182909
## Temanggung -0.57620890
## Kendal -0.33978087
## Batang -0.97813657
## Pekalongan -0.53680423
## Pemalang -1.29337395
## Tegal -0.70230386
## Brebes -1.41158797
## KotaMagelang 2.20576101
## KotaSurakarta 2.18999914
## KotaSalatiga 2.21364194
## KotaSemarang 2.09542792
## KotaPekalongan 0.83447839
## KotaTegal 0.67685970
## attr(,"scaled:center")
## kepadatan tpt p0 pdrb AHH RLS
## 2125.057143 5.345429 10.581714 29.986571 75.112286 8.141143
## attr(,"scaled:scale")
## kepadatan tpt p0 pdrb AHH RLS
## 2441.356529 1.966043 3.273142 19.560452 1.821011 1.268885
#penghitungan jarak
datadist <- dist(datanorm, method = "euclidean")
datadist
## Cilacap Banyumas Purbalingga Banjarnegara Kebumen Purworejo
## Banyumas 2.3416159
## Purbalingga 3.0569080 1.0263799
## Banjarnegara 2.6960689 1.1649430 0.9529479
## Kebumen 3.0736719 1.1806305 0.7089994 0.9814220
## Purworejo 3.2308526 1.2450658 1.7662692 1.9349575 1.8715625
## Wonosobo 3.4597875 1.7326437 0.8559348 1.4833277 1.2789170 2.4641990
## Magelang 2.8570729 0.8134812 1.4145442 1.6557565 1.7145445 0.7686100
## Boyolali 3.0545518 1.6630220 2.3871122 2.2959785 2.5022755 0.8972216
## Klaten 3.7439697 2.1845927 2.6708869 2.7085149 2.5780183 1.3679180
## Sukoharjo 4.8125540 3.5860065 4.1767412 4.3016628 4.2593591 2.5570218
## Wonogiri 4.3432737 2.6065171 2.7643881 2.8826151 3.0482307 1.6582821
## Karanganyar 3.2341946 2.4233803 3.2036801 2.9879152 3.1341765 1.8088006
## Sragen 2.9712177 1.3289096 1.7580019 1.7108647 1.8518591 0.9582922
## Grobogan 3.2252825 1.2653336 1.5118152 1.5216310 1.8123412 0.8648289
## Blora 3.3546189 1.5037464 1.6449728 1.8054656 2.0790238 1.1364256
## Rembang 4.3769015 2.3267545 1.9723820 2.4310286 2.3083536 1.8376718
## Pati 3.2303219 1.9089358 2.5626393 2.4694054 2.7460055 1.1143505
## Kudus 4.4072152 4.1762641 4.8136202 4.9857978 5.0054413 3.7802143
## Jepara 3.6542420 2.3955432 3.0842106 3.0955526 3.3105721 1.5433174
## Demak 2.6907623 1.0393653 1.7491157 1.5256427 1.6729029 0.9627816
## Semarang 3.0336331 2.2086305 3.0280118 3.0146934 3.2519123 1.6636390
## Temanggung 4.0229874 2.3413653 2.6508574 2.7960054 3.0039110 1.4367835
## Kendal 1.5864892 1.3515008 2.3287739 2.1142470 2.4398071 1.8349727
## Batang 2.2312624 1.5029108 2.2564102 1.9338499 2.5038881 1.7738115
## Pekalongan 3.6528376 1.7798633 2.0257242 2.4024091 2.4941686 1.2894888
## Pemalang 2.7356791 1.3686395 1.0272402 0.5309044 1.2059175 2.2711753
## Tegal 2.2955468 2.6866741 3.2858026 3.1409611 3.4184419 3.4915212
## Brebes 3.3137107 3.2498372 3.0224522 3.0291421 3.0706435 4.3958529
## KotaMagelang 4.7557270 4.6561031 5.4014374 5.5048860 5.3739668 4.5115371
## KotaSurakarta 6.0234102 5.9003669 6.4468041 6.6195632 6.4686296 5.8496305
## KotaSalatiga 4.6739245 4.4489222 5.3152673 5.3685639 5.3013877 3.9316292
## KotaSemarang 4.9247104 5.5702791 6.4423331 6.4409819 6.4452840 5.4497895
## KotaPekalongan 4.1348873 3.1755768 3.7639353 4.0480853 3.9658359 3.0300795
## KotaTegal 3.4149279 3.1330222 3.8222134 3.9843042 3.9668913 3.3309647
## Wonosobo Magelang Boyolali Klaten Sukoharjo Wonogiri
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang 2.0390712
## Boyolali 3.1264724 1.2497159
## Klaten 3.4770731 1.9992817 1.2855861
## Sukoharjo 4.8959928 3.1008009 2.1575446 1.8767080
## Wonogiri 3.3051278 2.0597113 1.6591369 1.9364070 2.3017557
## Karanganyar 4.0063039 2.2672729 1.1416223 1.2122729 1.9194994 2.3771636
## Sragen 2.5189583 1.2815029 1.0449758 1.2981167 2.6991578 1.6327720
## Grobogan 2.1180176 0.8074586 1.2231381 1.9511718 3.0945128 1.5565336
## Blora 2.1222309 1.0110735 1.4611615 2.2089174 3.1327089 1.3835475
## Rembang 2.3039560 2.0355138 2.3842328 2.3951531 3.3471754 1.4727861
## Pati 3.2618980 1.4293994 0.3943467 1.4819843 2.0819962 1.4168168
## Kudus 5.4091889 3.9963382 3.3768631 3.4095560 2.7302244 3.6632587
## Jepara 3.7204928 1.7420154 1.0134915 1.9629394 1.9278648 1.7816805
## Demak 2.5409314 1.0842724 1.0465867 1.5073392 2.9999580 2.3000553
## Semarang 3.6841148 1.7665472 1.0121239 1.9873770 2.0616767 2.0739976
## Temanggung 3.1897361 1.6646482 1.3578893 2.0169820 2.2697795 0.7257012
## Kendal 2.9168663 1.4984489 1.6095658 2.5374930 3.4852336 3.0276815
## Batang 2.7964825 1.3547865 1.4995174 2.6461040 3.5336856 2.6579299
## Pekalongan 2.4313889 1.0336495 1.6387381 2.4077665 2.9858076 1.6561170
## Pemalang 1.3091643 1.8389746 2.6413008 3.1438490 4.6775810 3.2106971
## Tegal 3.4897447 2.8831055 3.5012060 4.3897522 5.3059479 4.7771956
## Brebes 2.6383639 3.8000504 4.8183573 5.3641324 6.8060995 5.5914256
## KotaMagelang 6.1469189 4.6480139 4.1102581 3.7874916 3.6091516 5.1511537
## KotaSurakarta 7.1416963 5.9507703 5.5116952 5.0386054 4.8924938 6.2425878
## KotaSalatiga 6.0651197 4.2341407 3.4131175 3.2731901 2.4379406 4.3867490
## KotaSemarang 7.1300539 5.5839225 4.9130144 4.8821000 4.3718264 5.9439273
## KotaPekalongan 4.3953610 2.9113857 2.8446466 2.9616683 3.0736452 3.7058199
## KotaTegal 4.4704098 3.1444225 3.0501782 3.1926088 3.5577415 4.1636739
## Karanganyar Sragen Grobogan Blora Rembang Pati
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen 1.6517722
## Grobogan 2.2697323 1.0836115
## Blora 2.5244147 1.2413680 0.5666747
## Rembang 3.1917898 1.7739483 1.6622400 1.4144648
## Pati 1.2927386 1.1614399 1.2688347 1.3913070 2.3308090
## Kudus 3.1147163 3.4991367 4.1940079 4.0018770 4.2590621 3.2775998
## Jepara 1.7164160 1.9593215 1.7678444 1.8510134 2.8098163 0.8791630
## Demak 1.6370522 1.0710595 1.1756903 1.6453698 2.4868178 1.3795032
## Semarang 1.4807690 1.7735200 1.9437624 1.9450725 2.9366988 0.9156796
## Temanggung 2.2802656 1.6508617 1.3239812 1.1405041 1.7703751 1.0970389
## Kendal 2.0914138 1.8719820 1.9338366 2.1198084 3.2960443 1.8101642
## Batang 2.2855994 1.8694897 1.4952801 1.7062900 3.0583028 1.5818154
## Pekalongan 2.7468440 1.8080635 1.1171502 0.8984735 1.7905719 1.5896189
## Pemalang 3.4015518 2.1439567 1.7882640 2.0220802 2.6963366 2.8028149
## Tegal 4.0649817 3.7827217 3.4071125 3.6111913 4.8019435 3.7019251
## Brebes 5.4978127 4.4514569 4.1283209 4.2455742 4.8723165 5.0243756
## KotaMagelang 3.5450385 4.4628917 5.0684637 5.2260582 5.6529788 4.2701512
## KotaSurakarta 5.0223023 5.6415868 6.3053522 6.4011083 6.5768221 5.6283106
## KotaSalatiga 2.7375762 4.0153118 4.5702014 4.6815463 5.2096929 3.4953716
## KotaSemarang 4.2250723 5.2772528 5.9815651 6.0225803 6.5923533 4.9833586
## KotaPekalongan 3.0792687 3.3091571 3.3778351 3.5127883 4.0759015 2.9844316
## KotaTegal 3.0704286 3.3528860 3.6617312 3.7961232 4.4494978 3.2232168
## Kudus Jepara Demak Semarang Temanggung Kendal
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen
## Grobogan
## Blora
## Rembang
## Pati
## Kudus
## Jepara 3.4060221
## Demak 4.1025923 1.9164566
## Semarang 2.7374741 0.9097288 1.9005417
## Temanggung 3.5823382 1.2276562 2.0937457 1.6112297
## Kendal 3.7790257 2.1223158 1.4541744 1.6584738 2.6084904
## Batang 4.1942112 1.8399486 1.4473459 1.7004211 2.1846870 0.9696437
## Pekalongan 3.9822501 1.6114552 1.9618890 1.8730071 1.1187544 2.2673221
## Pemalang 5.3009770 3.3460987 1.8869614 3.2822462 3.0539106 2.2678641
## Tegal 5.6096998 3.7019152 3.0683998 3.5148252 4.2302854 2.1673163
## Brebes 6.9103343 5.3787156 4.0495387 5.1727293 5.3014764 3.7204403
## KotaMagelang 3.5108901 4.2135495 4.3430592 3.8350032 4.9047387 4.2396230
## KotaSurakarta 4.3883087 5.6659615 5.7031144 5.2813407 6.0911737 5.6962851
## KotaSalatiga 2.6942560 3.2884065 3.9802870 2.9497614 4.1439689 3.8278392
## KotaSemarang 3.0437445 4.9639516 5.3444034 4.3115854 5.7089201 4.7666447
## KotaPekalongan 3.8536557 2.7111781 3.0413386 2.7008004 3.2463348 3.0914781
## KotaTegal 3.5915345 3.1833174 3.1110400 2.8225568 3.7486396 2.8175925
## Batang Pekalongan Pemalang Tegal Brebes KotaMagelang
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen
## Grobogan
## Blora
## Rembang
## Pati
## Kudus
## Jepara
## Demak
## Semarang
## Temanggung
## Kendal
## Batang
## Pekalongan 1.8889517
## Pemalang 2.0228568 2.5168381
## Tegal 2.2972289 3.4895026 2.9199585
## Brebes 3.8278154 4.4321606 2.6228239 2.8572863
## KotaMagelang 4.7515884 5.0238596 5.7466698 5.3399248 7.0462838
## KotaSurakarta 6.1395003 6.2362751 6.8310060 6.7359735 8.0757338 1.9309621
## KotaSalatiga 4.2947580 4.4702798 5.6875817 5.2885090 7.2401869 1.9861806
## KotaSemarang 5.4191008 5.9274134 6.7124200 6.0153916 7.8344099 2.4149497
## KotaPekalongan 3.2083821 3.0331235 4.1428088 3.8377232 5.5452289 2.6693764
## KotaTegal 3.1912864 3.5263011 4.0791397 3.5786141 5.2394035 2.1618284
## KotaSurakarta KotaSalatiga KotaSemarang KotaPekalongan
## Banyumas
## Purbalingga
## Banjarnegara
## Kebumen
## Purworejo
## Wonosobo
## Magelang
## Boyolali
## Klaten
## Sukoharjo
## Wonogiri
## Karanganyar
## Sragen
## Grobogan
## Blora
## Rembang
## Pati
## Kudus
## Jepara
## Demak
## Semarang
## Temanggung
## Kendal
## Batang
## Pekalongan
## Pemalang
## Tegal
## Brebes
## KotaMagelang
## KotaSurakarta
## KotaSalatiga 3.6662091
## KotaSemarang 3.4193608 2.2628881
## KotaPekalongan 3.7697945 3.0940442 4.3951050
## KotaTegal 3.2538212 2.9925611 3.6815409 1.2645467
#menentukan jumlah cluster dgn metode elbow
fviz_nbclust(datanorm, kmeans, method = "wss")
#menentukan jumlah cluster dgn metode silhouette
fviz_nbclust(datanorm, kmeans)
#menentukan jumlah cluster dgn metode kmeans
jmlhcluster <- kmeans(datanorm, 3)
jmlhcluster
## K-means clustering with 3 clusters of sizes 17, 7, 11
##
## Cluster means:
## kepadatan tpt p0 pdrb AHH RLS
## 1 -0.4290038 -0.6675781 -0.02119106 -0.3684557 0.3340465 -0.1344130
## 2 1.6430327 0.2304847 -1.17108984 1.5644102 0.7832382 1.5629019
## 3 -0.3825604 0.8850396 0.77798881 -0.4261023 -1.0146780 -0.7868448
##
## Clustering vector:
## Cilacap Banyumas Purbalingga Banjarnegara Kebumen
## 3 3 3 3 3
## Purworejo Wonosobo Magelang Boyolali Klaten
## 1 3 1 1 1
## Sukoharjo Wonogiri Karanganyar Sragen Grobogan
## 1 1 1 1 1
## Blora Rembang Pati Kudus Jepara
## 1 1 1 2 1
## Demak Semarang Temanggung Kendal Batang
## 1 1 1 3 3
## Pekalongan Pemalang Tegal Brebes KotaMagelang
## 1 3 3 3 2
## KotaSurakarta KotaSalatiga KotaSemarang KotaPekalongan KotaTegal
## 2 2 2 2 2
##
## Within cluster sum of squares by cluster:
## [1] 25.80017 29.88745 28.67739
## (between_SS / total_SS = 58.6 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"
#melihat hasil clustering bentuk visual
fviz_cluster(jmlhcluster, data = datanorm)
#hasil clustering dalam tabel
clusteringtbl <- data.frame(datanorm, jmlhcluster$cluster)
clusteringtbl
## kepadatan tpt p0 pdrb AHH
## Cilacap -0.48704772 2.17420024 0.1339037 0.95362973 -0.57236636
## Banyumas -0.31501222 0.35837028 0.6899444 -0.31627957 -0.67670397
## Purbalingga -0.25561901 -0.05871111 1.4415159 -0.59336929 -1.00619119
## Banjarnegara -0.45550788 0.52622011 1.4109642 -0.72629055 -0.40762275
## Kebumen -0.40389723 0.29224762 1.7806397 -0.73958268 -0.77555014
## Purworejo -0.57716156 -0.45544707 0.2897173 -0.59745917 -0.04518682
## Wonosobo -0.49564950 -0.17061099 1.7073156 -0.69254900 -1.68163997
## Magelang -0.38054956 -0.19095643 0.1552899 -0.56627380 -0.59433217
## Boyolali -0.43175060 -0.21638822 -0.2327166 -0.35308854 0.55338162
## Klaten -0.07662017 -0.52665608 0.5341308 -0.32190317 1.00917226
## Sukoharjo -0.09710058 -1.46254604 -0.9079089 0.08248422 1.48692872
## Wonogiri -0.63122986 -1.72703668 0.1247382 -0.43795365 0.71263377
## Karanganyar -0.36949013 0.18034774 -0.2235511 0.01039999 1.38808256
## Sragen -0.43953316 -0.33337446 0.7204961 -0.03918986 0.41609528
## Grobogan -0.56978861 -0.48087886 0.3722068 -0.79632983 -0.10010135
## Blora -0.66727540 -0.83692395 0.2897173 -0.47016150 -0.28131932
## Rembang -0.56774057 -1.82367749 1.2429300 -0.38529638 -0.23738769
## Pati -0.49974558 -0.45544707 -0.3824198 -0.26924590 0.66321069
## Kudus -0.03606894 -1.08615551 -0.9690122 2.68467358 0.90483464
## Jepara -0.40307801 -0.63346961 -1.1309362 -0.54991426 0.47100981
## Demak -0.31173535 0.38888843 0.4608067 -0.70635236 0.22389441
## Semarang -0.40881253 -0.27233816 -1.0117846 0.27368634 0.41060383
## Temanggung -0.47844595 -1.42694153 -0.3824198 -0.50083564 0.32274057
## Kendal -0.48950537 1.01451052 -0.3365923 0.10957971 -0.31975949
## Batang -0.44485807 0.65846543 -0.4893507 -0.49061092 -0.17698170
## Pekalongan -0.38300721 -1.07598280 -0.2785441 -0.63631308 -0.72063560
## Pemalang -0.31910830 0.65337907 1.3681919 -0.85716687 -0.80300741
## Tegal -0.10652158 2.18437296 -0.8193090 -0.69766135 -1.79146904
## Brebes -0.43543707 2.10299123 1.6706536 -0.63682431 -2.95016574
## KotaMagelang 2.23766697 0.69406994 -1.0637225 1.35699464 1.04761244
## KotaSurakarta 3.80851496 0.24647040 -0.5321231 2.20973567 1.27276203
## KotaSalatiga 0.53328666 0.11931144 -1.7877975 1.16323634 1.43201418
## KotaSemarang 0.97074836 1.14675584 -1.9344456 3.12229127 1.41553982
## KotaPekalongan 1.97060233 -0.18587007 -1.0942742 -0.22374593 -0.33074240
## KotaTegal 2.01647846 0.67881086 -0.8162538 0.63768611 -0.25935351
## RLS jmlhcluster.cluster
## Cilacap -0.75747040 3
## Banyumas -0.28461432 3
## Purbalingga -0.63925638 3
## Banjarnegara -1.02542218 3
## Kebumen -0.22944778 3
## Purworejo 0.14095614 1
## Wonosobo -0.99389844 3
## Magelang -0.26097152 1
## Boyolali -0.04818629 1
## Klaten 0.74778811 1
## Sukoharjo 1.16547764 1
## Wonogiri -0.56832797 1
## Karanganyar 0.51136007 1
## Sragen -0.27673339 1
## Grobogan -0.69442292 1
## Blora -0.89144629 1
## Rembang -0.57620890 1
## Pati -0.27673339 1
## Kudus 0.72414530 2
## Jepara -0.04030535 1
## Demak -0.03242442 1
## Semarang -0.07182909 1
## Temanggung -0.57620890 1
## Kendal -0.33978087 3
## Batang -0.97813657 3
## Pekalongan -0.53680423 1
## Pemalang -1.29337395 3
## Tegal -0.70230386 3
## Brebes -1.41158797 3
## KotaMagelang 2.20576101 2
## KotaSurakarta 2.18999914 2
## KotaSalatiga 2.21364194 2
## KotaSemarang 2.09542792 2
## KotaPekalongan 0.83447839 2
## KotaTegal 0.67685970 2
#melihat deskripsi data setelah diclusterkan berdasarkan cluster
data11[,2:7] %>%
mutate(Cluster = jmlhcluster$cluster) %>%
group_by(Cluster) %>%
summarise_all("mean")
## # A tibble: 3 × 7
## Cluster kepadatan tpt p0 pdrb AHH RLS
## <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 1078. 4.03 10.5 22.8 75.7 7.97
## 2 2 6136. 5.80 6.75 60.6 76.5 10.1
## 3 3 1191. 7.09 13.1 21.7 73.3 7.14