Laporan ini berisi analisis mengenai Penduduk Indonesia berdasarkan Jumlah dan Persentase Penduduk, Laju Pertumbuhan, Kepadatan Penduduk, Rasio Jenis Kelamin Penduduk Menurut Provinsi pada tahun 2024. Analisis ini mencakup Statistika Deskriptif, Visualisasi Deskriptif, dan Analisis Cluster Hirarki.
Tujuan saya dalam menganalisis penduduk di Indonesia pada tahun 2024 karena rasa keingintahuan saya terhadap jumlah/populasi penduduk terbanyak di Indonesia. Tidak hanya itu, tujuan lainnya adalah untuk mengetahui provinsi mana yang paling padat jumlah penduduknya, laju pertumbuhan penduduk, dan rasio jenis kelamin.
Data ini diambil dari Badan Pusat Statistik (BPS): Sumber Data: Kependudukan di Indonesia 2024
library(readxl)
library(dplyr)
library(ggplot2)
library(cluster)
library(factoextra)
library(dendextend)
Penduduk_2024 <- read_excel("C:/Users/Marcella/OneDrive/Tugas Kampus/Pengantar Sains Data/Penduduk, Laju Pertumbuhan Penduduk, Distribusi Persentase Penduduk, Kepadatan Penduduk, Rasio Jenis Kelamin Penduduk Menurut Provinsi, 2024.xlsx")
# Cek struktur data
str(Penduduk_2024)
## tibble [38 × 6] (S3: tbl_df/tbl/data.frame)
## $ Provinsi : chr [1:38] "Aceh" "Sumatera Utara" "Sumatera Barat" "Riau" ...
## $ Jumlah Penduduk (Ribu) : num [1:38] 5555 15588 5836 6728 3724 ...
## $ Laju Pertumbuhan Penduduk per Tahun : num [1:38] 1.39 1.4 1.43 1.37 1.3 1.15 1.32 1.2 1.36 1.5 ...
## $ Persentase Penduduk : num [1:38] 1.97 5.54 2.07 2.39 1.32 3.14 0.75 3.34 0.54 0.78 ...
## $ Kepadatan Penduduk per km persegi (Km2): num [1:38] 98 215 139 75 76 102 105 281 92 264 ...
## $ Rasio Jenis Kelamin Penduduk : num [1:38] 101 101 102 104 103 ...
head(Penduduk_2024)
## # A tibble: 6 × 6
## Provinsi Jumlah Penduduk (Rib…¹ Laju Pertumbuhan Pen…² `Persentase Penduduk`
## <chr> <dbl> <dbl> <dbl>
## 1 Aceh 5555. 1.39 1.97
## 2 Sumatera … 15588. 1.4 5.54
## 3 Sumatera … 5836. 1.43 2.07
## 4 Riau 6728. 1.37 2.39
## 5 Jambi 3724. 1.3 1.32
## 6 Sumatera … 8837. 1.15 3.14
## # ℹ abbreviated names: ¹​`Jumlah Penduduk (Ribu)`,
## # ²​`Laju Pertumbuhan Penduduk per Tahun`
## # ℹ 2 more variables: `Kepadatan Penduduk per km persegi (Km2)` <dbl>,
## # `Rasio Jenis Kelamin Penduduk` <dbl>
summary(Penduduk_2024)
## Provinsi Jumlah Penduduk (Ribu) Laju Pertumbuhan Penduduk per Tahun
## Length:38 Min. : 542.1 Min. :0.310
## Class :character 1st Qu.: 1510.3 1st Qu.:1.170
## Mode :character Median : 3741.9 Median :1.365
## Mean : 7410.6 Mean :1.296
## 3rd Qu.: 6505.1 3rd Qu.:1.472
## Max. :50345.2 Max. :1.930
## Persentase Penduduk Kepadatan Penduduk per km persegi (Km2)
## Min. : 0.1900 Min. : 5.0
## 1st Qu.: 0.5325 1st Qu.: 39.5
## Median : 1.3300 Median : 100.0
## Mean : 2.6313 Mean : 678.2
## 3rd Qu.: 2.3100 3rd Qu.: 251.8
## Max. :17.8800 Max. :16165.0
## Rasio Jenis Kelamin Penduduk
## Min. : 97.9
## 1st Qu.:101.2
## Median :103.4
## Mean :104.2
## 3rd Qu.:105.4
## Max. :114.5
colnames(Penduduk_2024)
## [1] "Provinsi"
## [2] "Jumlah Penduduk (Ribu)"
## [3] "Laju Pertumbuhan Penduduk per Tahun"
## [4] "Persentase Penduduk"
## [5] "Kepadatan Penduduk per km persegi (Km2)"
## [6] "Rasio Jenis Kelamin Penduduk"
ggplot(Penduduk_2024, aes(
x = reorder(Provinsi, `Jumlah Penduduk (Ribu)`),
y = `Jumlah Penduduk (Ribu)`
)) +
geom_bar(stat = "identity", fill = "#ff9ecb") +
coord_flip() +
theme_minimal() +
labs(
title = "Jumlah Penduduk per Provinsi (2024)",
x = "Provinsi",
y = "Jumlah Penduduk (Ribu Jiwa)"
)
ggplot(Penduduk_2024, aes(
x = reorder(Provinsi, `Laju Pertumbuhan Penduduk per Tahun`),
y = `Laju Pertumbuhan Penduduk per Tahun`
)) +
geom_bar(stat = "identity", fill = "#ff9ecb") +
coord_flip() +
theme_minimal() +
labs(
title = "Laju Pertumbuhan Penduduk per Tahun (2024)",
x = "Provinsi",
y = "Laju Pertumbuhan Penduduk"
)
ggplot(Penduduk_2024, aes(
x = reorder(Provinsi, `Kepadatan Penduduk per km persegi (Km2)`),
y = `Kepadatan Penduduk per km persegi (Km2)`
)) +
geom_bar(stat = "identity", fill = "#ff9ecb") +
coord_flip() +
theme_minimal() +
labs(
title = "Kepadatan Penduduk (2024)",
x = "Provinsi",
y = "Kepadatan Penduduk"
)
ggplot(Penduduk_2024, aes(
x = reorder(Provinsi, `Rasio Jenis Kelamin Penduduk`),
y = `Rasio Jenis Kelamin Penduduk`
)) +
geom_bar(stat = "identity", fill = "#ff9ecb") +
coord_flip() +
theme_minimal() +
labs(
title = "Rasio Jenis Kelamin (2024)",
x = "Provinsi",
y = "Rasio Jenis Kelamin"
)
data_penduduk <- Penduduk_2024
data_penduduk <- data_penduduk %>%
mutate(
Wilayah = case_when(
Provinsi %in% c("DKI Jakarta", "Jawa Barat", "Jawa Tengah",
"DI Yogyakarta", "Jawa Timur", "Banten") ~ "Pulau Jawa",
Provinsi %in% c("Aceh", "Sumatera Utara", "Sumatera Barat",
"Riau", "Jambi", "Sumatera Selatan",
"Bengkulu", "Lampung", "Kepulauan Riau",
"Kepulauan Bangka Belitung") ~ "Pulau Sumatera",
TRUE ~ "Luar Jawa"
)
)
buat_pie_3wilayah <- function(indikator_nama) {
df <- data_penduduk %>%
group_by(Wilayah) %>%
summarise(Nilai = sum(.data[[indikator_nama]], na.rm = TRUE)) %>%
mutate(
Persen = Nilai / sum(Nilai) * 100,
label = paste0(round(Persen, 1), "%")
)
ggplot(df, aes(x = "", y = Persen, fill = Wilayah)) +
geom_bar(stat = "identity", width = 1, color = "white") +
coord_polar("y") +
scale_fill_manual(values = c("#e8dff5", "#ffa6c9", "#daeaf6")) +
# Teks persentase
geom_text(aes(label = label),
position = position_stack(vjust = 0.5),
color = "white", size = 5, fontface = "bold") +
labs(
title = paste("Pie Chart -", indikator_nama),
fill = "Wilayah"
) +
theme_void() +
theme(
plot.title = element_text(hjust = 0.5, size = 16, face = "bold")
)
}
buat_pie_3wilayah("Jumlah Penduduk (Ribu)")
buat_pie_3wilayah("Laju Pertumbuhan Penduduk per Tahun")
buat_pie_3wilayah("Kepadatan Penduduk per km persegi (Km2)")
buat_pie_3wilayah("Rasio Jenis Kelamin Penduduk")
df <- data_penduduk
colnames(df)
## [1] "Provinsi"
## [2] "Jumlah Penduduk (Ribu)"
## [3] "Laju Pertumbuhan Penduduk per Tahun"
## [4] "Persentase Penduduk"
## [5] "Kepadatan Penduduk per km persegi (Km2)"
## [6] "Rasio Jenis Kelamin Penduduk"
## [7] "Wilayah"
ggplot(df, aes(y = `Jumlah Penduduk (Ribu)`)) +
geom_boxplot(fill = "#ffb6c1", color = "black") +
labs(title = "Boxplot Jumlah Penduduk 2024", y = "Jumlah Penduduk (Ribu)", x = "") +
theme_minimal()
ggplot(df, aes(y = `Laju Pertumbuhan Penduduk per Tahun`)) +
geom_boxplot(fill = "#ffb6c1", color = "black") +
labs(title = "Boxplot Pertumbuhan Penduduk 2024", y = "Pertumbuhan Penduduk", x = "") +
theme_minimal()
ggplot(df, aes(y = `Kepadatan Penduduk per km persegi (Km2)`)) +
geom_boxplot(fill = "#ffb6c1", color = "black") +
labs(title = "Boxplot Kepadatan Penduduk per km persegi (Km2)", y = "Kepadatan Penduduk", x = "") +
theme_minimal()
ggplot(df, aes(y = `Rasio Jenis Kelamin Penduduk`)) +
geom_boxplot(fill = "#ffb6c1", color = "black") +
labs(title = "Boxplot Rasio Jenis Kelamin Penduduk 2024", y = "Rasio Jenis Kelamin", x = "") +
theme_minimal()
ggplot(df,
aes(x = `Laju Pertumbuhan Penduduk per Tahun`, y = `Jumlah Penduduk (Ribu)`)) +
geom_point(color = "#ffb6c1", size = 3) +
geom_smooth(method = "lm", se = FALSE, color = "#ff69b4") +
labs(
title = "Hubungan Pertumbuhan Penduduk dan Jumlah Penduduk",
subtitle = "Sumber: Data BPS",
x = "Pertumbuhan Penduduk",
y = "Jumlah Penduduk (Ribu)"
) +
theme_minimal() +
theme(
plot.title = element_text(face = "bold", color = "#cc3366", size = 14),
plot.subtitle = element_text(color = "gray40"),
axis.title = element_text(color = "#cc3366"),
panel.grid.minor = element_blank()
)
## `geom_smooth()` using formula = 'y ~ x'
ggplot(df,
aes(x = `Kepadatan Penduduk per km persegi (Km2)`, y = `Jumlah Penduduk (Ribu)`)) +
geom_point(color = "#ffb6c1", size = 3) +
geom_smooth(method = "lm", se = FALSE, color = "#ff69b4") +
labs(
title = "Hubungan Kepadatan Penduduk dan Jumlah Penduduk",
subtitle = "Sumber: Data BPS",
x = "Kepadatan Penduduk",
y = "Jumlah Penduduk (Ribu)"
) +
theme_minimal() +
theme(
plot.title = element_text(face = "bold", color = "#cc3366", size = 14),
plot.subtitle = element_text(color = "gray40"),
axis.title = element_text(color = "#cc3366"),
panel.grid.minor = element_blank()
)
## `geom_smooth()` using formula = 'y ~ x'
ggplot(df,
aes(x = `Rasio Jenis Kelamin Penduduk`, y = `Jumlah Penduduk (Ribu)`)) +
geom_point(color = "#ffb6c1", size = 3) +
geom_smooth(method = "lm", se = FALSE, color = "#ff69b4") +
labs(
title = "Hubungan Rasio Jenis Kelamin Penduduk dan Jumlah Penduduk",
subtitle = "Sumber: Data BPS",
x = "Rasio Jenis Kelamin",
y = "Jumlah Penduduk (Ribu)"
) +
theme_minimal() +
theme(
plot.title = element_text(face = "bold", color = "#cc3366", size = 14),
plot.subtitle = element_text(color = "gray40"),
axis.title = element_text(color = "#cc3366"),
panel.grid.minor = element_blank()
)
## `geom_smooth()` using formula = 'y ~ x'
#data frame dan set rownames
df_clustering <- as.data.frame(df)
rownames(df_clustering) <- df_clustering$Provinsi
head(df_clustering)
## Provinsi Jumlah Penduduk (Ribu)
## Aceh Aceh 5554.8
## Sumatera Utara Sumatera Utara 15588.5
## Sumatera Barat Sumatera Barat 5836.2
## Riau Riau 6728.1
## Jambi Jambi 3724.3
## Sumatera Selatan Sumatera Selatan 8837.3
## Laju Pertumbuhan Penduduk per Tahun Persentase Penduduk
## Aceh 1.39 1.97
## Sumatera Utara 1.40 5.54
## Sumatera Barat 1.43 2.07
## Riau 1.37 2.39
## Jambi 1.30 1.32
## Sumatera Selatan 1.15 3.14
## Kepadatan Penduduk per km persegi (Km2)
## Aceh 98
## Sumatera Utara 215
## Sumatera Barat 139
## Riau 75
## Jambi 76
## Sumatera Selatan 102
## Rasio Jenis Kelamin Penduduk Wilayah
## Aceh 100.9 Pulau Sumatera
## Sumatera Utara 100.8 Pulau Sumatera
## Sumatera Barat 101.5 Pulau Sumatera
## Riau 104.4 Pulau Sumatera
## Jambi 103.4 Pulau Sumatera
## Sumatera Selatan 103.7 Pulau Sumatera
#Ambil kolom numerik saja (kolom 2-6)
data_cluster <- df_clustering[, 2:6]
head(data_cluster)
## Jumlah Penduduk (Ribu) Laju Pertumbuhan Penduduk per Tahun
## Aceh 5554.8 1.39
## Sumatera Utara 15588.5 1.40
## Sumatera Barat 5836.2 1.43
## Riau 6728.1 1.37
## Jambi 3724.3 1.30
## Sumatera Selatan 8837.3 1.15
## Persentase Penduduk Kepadatan Penduduk per km persegi (Km2)
## Aceh 1.97 98
## Sumatera Utara 5.54 215
## Sumatera Barat 2.07 139
## Riau 2.39 75
## Jambi 1.32 76
## Sumatera Selatan 3.14 102
## Rasio Jenis Kelamin Penduduk
## Aceh 100.9
## Sumatera Utara 100.8
## Sumatera Barat 101.5
## Riau 104.4
## Jambi 103.4
## Sumatera Selatan 103.7
data_scaled <- scale(data_cluster)
rownames(data_scaled) <- rownames(df_clustering)
print(data_scaled)
## Jumlah Penduduk (Ribu)
## Aceh -0.16379781
## Sumatera Utara 0.72178926
## Sumatera Barat -0.13896109
## Riau -0.06024087
## Jambi -0.32536006
## Sumatera Selatan 0.12591979
## Bengkulu -0.46764605
## Lampung 0.17731433
## Kepulauan Bangka Belitung -0.51889937
## Kepulauan Riau -0.46137068
## DKI Jakarta 0.28899131
## Jawa Barat 3.78945963
## Jawa Tengah 2.69035090
## DI Yogyakarta -0.32225327
## Jawa Timur 3.03652924
## Banten 0.44313961
## Bali -0.26278282
## Nusa Tenggara Barat -0.15574839
## Nusa Tenggara Timur -0.15486577
## Kalimantan Barat -0.15137945
## Kalimantan Tengah -0.40608382
## Kalimantan Selatan -0.27689580
## Kalimantan Timur -0.29697524
## Kalimantan Utara -0.58877581
## Sulawesi Utara -0.41560721
## Sulawesi Tengah -0.37853748
## Sulawesi Selatan 0.18118017
## Sulawesi Tenggara -0.40754895
## Gorontalo -0.54570432
## Sulawesi Barat -0.52139716
## Maluku -0.48235038
## Maluku Utara -0.53442453
## Papua Barat -0.60299470
## Papua Barat Daya -0.59872286
## Papua -0.56046160
## Papua Selatan -0.60622507
## Papua Tengah -0.52407148
## Papua Pegunungan -0.52459222
## Laju Pertumbuhan Penduduk per Tahun
## Aceh 0.29383740
## Sumatera Utara 0.32502685
## Sumatera Barat 0.41859519
## Riau 0.23145851
## Jambi 0.01313240
## Sumatera Selatan -0.45470928
## Bengkulu 0.07551129
## Lampung -0.29876205
## Kepulauan Bangka Belitung 0.20026907
## Kepulauan Riau 0.63692130
## DKI Jakarta -3.07462268
## Jawa Barat -0.51708817
## Jawa Tengah -0.95374040
## DI Yogyakarta -2.01418154
## Jawa Timur -1.70228709
## Banten -0.42351983
## Bali -1.82704487
## Nusa Tenggara Barat 0.94881575
## Nusa Tenggara Timur 1.01119464
## Kalimantan Barat 0.20026907
## Kalimantan Tengah 0.23145851
## Kalimantan Selatan -0.01805705
## Kalimantan Timur 1.97806744
## Kalimantan Utara 0.35621629
## Sulawesi Utara -1.54633986
## Sulawesi Tengah -0.29876205
## Sulawesi Selatan -0.51708817
## Sulawesi Tenggara 1.16714187
## Gorontalo -0.11162538
## Sulawesi Barat 0.79286853
## Maluku 0.23145851
## Maluku Utara 0.57454241
## Papua Barat 1.29189965
## Papua Barat Daya 0.91762631
## Papua 0.20026907
## Papua Selatan 0.48097408
## Papua Tengah 0.76167908
## Papua Pegunungan 0.41859519
## Persentase Penduduk
## Aceh -0.16434145
## Sumatera Utara 0.72282770
## Sumatera Barat -0.13949077
## Riau -0.05996861
## Jambi -0.32587084
## Sumatera Selatan 0.12641147
## Bengkulu -0.46751970
## Lampung 0.17611282
## Kepulauan Bangka Belitung -0.51970612
## Kepulauan Riau -0.46006450
## DKI Jakarta 0.28794086
## Jawa Barat 3.78940117
## Jawa Tengah 2.69100127
## DI Yogyakarta -0.32090071
## Jawa Timur 3.03642567
## Banten 0.44201506
## Bali -0.26374415
## Nusa Tenggara Barat -0.15688624
## Nusa Tenggara Timur -0.15440118
## Kalimantan Barat -0.15191611
## Kalimantan Tengah -0.40539301
## Kalimantan Selatan -0.27616949
## Kalimantan Timur -0.29605003
## Kalimantan Utara -0.58928801
## Sulawesi Utara -0.41533328
## Sulawesi Tengah -0.37805726
## Sulawesi Selatan 0.18108296
## Sulawesi Tenggara -0.40787808
## Gorontalo -0.54455680
## Sulawesi Barat -0.52219119
## Maluku -0.48243010
## Maluku Utara -0.53461653
## Papua Barat -0.60171335
## Papua Barat Daya -0.59922828
## Papua -0.55946720
## Papua Selatan -0.60668349
## Papua Tengah -0.52467625
## Papua Pegunungan -0.52467625
## Kepadatan Penduduk per km persegi (Km2)
## Aceh -0.22236013
## Sumatera Utara -0.17752304
## Sumatera Barat -0.20664799
## Riau -0.23117426
## Jambi -0.23079104
## Sumatera Selatan -0.22082724
## Bengkulu -0.21967757
## Lampung -0.15223031
## Kepulauan Bangka Belitung -0.22465947
## Kepulauan Riau -0.15874511
## DKI Jakarta 5.93488464
## Jawa Barat 0.26088413
## Jawa Tengah 0.16316226
## DI Yogyakarta 0.19458655
## Jawa Timur 0.07348806
## Banten 0.24938744
## Bali 0.04397989
## Nusa Tenggara Barat -0.14993098
## Nusa Tenggara Timur -0.21316278
## Kalimantan Barat -0.24497029
## Kalimantan Tengah -0.25301798
## Kalimantan Selatan -0.21584534
## Kalimantan Timur -0.24765285
## Kalimantan Utara -0.25570054
## Sulawesi Utara -0.18863650
## Sulawesi Tengah -0.24037162
## Sulawesi Selatan -0.17982237
## Sulawesi Tenggara -0.23040782
## Gorontalo -0.22082724
## Sulawesi Barat -0.22504269
## Maluku -0.24382062
## Maluku Utara -0.24420385
## Papua Barat -0.25608376
## Papua Barat Daya -0.25378442
## Papua -0.25493409
## Papua Selatan -0.25799988
## Papua Tengah -0.25071864
## Papua Pegunungan -0.24880252
## Rasio Jenis Kelamin Penduduk
## Aceh -0.83187152
## Sumatera Utara -0.85703961
## Sumatera Barat -0.68086300
## Riau 0.04901154
## Jambi -0.20266934
## Sumatera Selatan -0.12716507
## Bengkulu 0.04901154
## Lampung 0.02384345
## Kepulauan Bangka Belitung 0.30069241
## Kepulauan Riau -0.22783742
## DKI Jakarta -0.78153535
## Jawa Barat -0.40401404
## Jawa Tengah -0.80670344
## DI Yogyakarta -1.58691415
## Jawa Timur -1.20939284
## Banten -0.20266934
## Bali -0.93254387
## Nusa Tenggara Barat -0.88220770
## Nusa Tenggara Timur -1.05838431
## Kalimantan Barat 0.30069241
## Kalimantan Tengah 0.65304564
## Kalimantan Selatan -0.47951830
## Kalimantan Timur 0.77888608
## Kalimantan Utara 1.63460105
## Sulawesi Utara 0.02384345
## Sulawesi Tengah 0.25035624
## Sulawesi Selatan -1.36040136
## Sulawesi Tenggara -0.40401404
## Gorontalo -0.63052682
## Sulawesi Barat -0.37884595
## Maluku -0.47951830
## Maluku Utara 0.22518815
## Papua Barat 1.65976914
## Papua Barat Daya 1.18157548
## Papua 1.38292018
## Papua Selatan 0.95506269
## Papua Tengah 2.46514794
## Papua Pegunungan 2.59098838
## attr(,"scaled:center")
## Jumlah Penduduk (Ribu) Laju Pertumbuhan Penduduk per Tahun
## 7410.628947 1.295789
## Persentase Penduduk Kepadatan Penduduk per km persegi (Km2)
## 2.631316 678.236842
## Rasio Jenis Kelamin Penduduk
## 104.205263
## attr(,"scaled:scale")
## Jumlah Penduduk (Ribu) Laju Pertumbuhan Penduduk per Tahun
## 1.133000e+04 3.206213e-01
## Persentase Penduduk Kepadatan Penduduk per km persegi (Km2)
## 4.024035e+00 2.609446e+03
## Rasio Jenis Kelamin Penduduk
## 3.973286e+00
jarak <- dist(data_scaled, method = "euclidean")
print(jarak)
## Aceh Sumatera Utara Sumatera Barat Riau
## Sumatera Utara 1.2549702
## Sumatera Barat 0.1996231 1.2349598
## Riau 0.8952885 1.4341908 0.7621412
## Jambi 0.7259173 1.6506382 0.6805397 0.5019979
## Sumatera Selatan 1.1069820 1.3613792 1.1001405 0.7558868
## Bengkulu 1.0039269 1.9278607 0.9307148 0.5971001
## Lampung 1.1491767 1.3270484 1.1017303 0.6325870
## Kepulauan Bangka Belitung 1.2425146 2.1074459 1.1403326 0.6971977
## Kepulauan Riau 0.8140100 1.8145599 0.6796386 0.7531754
## DKI Jakarta 7.0477158 7.0214874 7.0920357 7.0628087
## Jawa Barat 5.6863444 4.4633020 5.6603371 5.5358394
## Jawa Tengah 4.2432132 3.0826592 4.2488342 4.1744504
## DI Yogyakarta 2.4739653 2.8848695 2.6394746 2.8349886
## Jawa Timur 4.9700669 3.8740054 5.0026139 4.9591749
## Banten 1.3671444 1.1520749 1.3501057 1.1084489
## Bali 2.1445028 2.5746618 2.2803130 2.3149827
## Nusa Tenggara Barat 0.6609816 1.3908545 0.5705040 1.1861222
## Nusa Tenggara Timur 0.7524444 1.4320233 0.7030037 1.3610694
## Kalimantan Barat 1.1367831 1.6994286 1.0064266 0.2850736
## Kalimantan Tengah 1.5253257 2.1999526 1.3994789 0.7773414
## Kalimantan Selatan 0.4967596 1.5023531 0.5186487 0.6599386
## Kalimantan Timur 2.3381390 2.7367329 2.1480181 1.9223446
## Kalimantan Utara 2.5396211 3.1071830 2.4025657 1.7577794
## Sulawesi Utara 2.0605928 2.6205291 2.1238002 1.8481286
## Sulawesi Tengah 1.2706310 2.0104862 1.2236089 0.7240520
## Sulawesi Selatan 1.0849338 1.2442996 1.2422775 1.6327259
## Sulawesi Tenggara 1.0317520 1.8630854 0.8841398 1.1499565
## Gorontalo 0.7038170 1.8592073 0.7831904 1.0247373
## Sulawesi Barat 0.8427367 1.8829200 0.7241203 0.9615590
## Maluku 0.5754656 1.7487914 0.5589859 0.7975925
## Maluku Utara 1.2128955 2.0969407 1.0766496 0.7739866
## Papua Barat 2.7549459 3.2840223 2.5831454 2.0755156
## Papua Barat Daya 2.1959862 2.8292270 2.0353551 1.5280060
## Papua 2.2866099 2.8857277 2.1594540 1.5101554
## Papua Selatan 1.9028485 2.6164351 1.7661783 1.2169233
## Papua Tengah 3.3689250 3.7870025 3.2114968 2.5593599
## Papua Pegunungan 3.4629824 3.8745923 3.3172078 2.6322144
## Jambi Sumatera Selatan Bengkulu Lampung
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan 0.7955431
## Bengkulu 0.3281274 1.0085871
## Lampung 0.8120512 0.2386216 0.9876739
## Kepulauan Bangka Belitung 0.6028767 1.2022200 0.2903152 1.1400881
## Kepulauan Riau 0.6568436 1.3764122 0.6289947 1.3234535
## DKI Jakarta 6.9741714 6.7258917 7.0452118 6.7403251
## Jawa Barat 5.8677613 5.2107197 6.0853652 5.1482850
## Jawa Tengah 4.4329369 3.7432179 4.6783943 3.7226730
## DI Yogyakarta 2.4914084 2.2663488 2.6939413 2.4807411
## Jawa Timur 5.1629526 4.4445606 5.4209752 4.4607401
## Banten 1.2654948 0.6542244 1.4795882 0.6078951
## Bali 2.0005609 1.7045157 2.1762766 1.9172854
## Nusa Tenggara Barat 1.1836967 1.6445646 1.3522085 1.6122045
## Nusa Tenggara Timur 1.3368460 1.7815158 1.5158318 1.7636608
## Kalimantan Barat 0.5908669 0.8757869 0.5283727 0.7415664
## Kalimantan Tengah 0.8906450 1.2831349 0.6308232 1.1686273
## Kalimantan Selatan 0.2875074 0.7994840 0.6009277 0.8643387
## Kalimantan Timur 2.1969069 2.6640880 2.0522548 2.4921950
## Kalimantan Utara 1.9059554 2.1876133 1.6197799 2.0510912
## Sulawesi Utara 1.5815141 1.3424738 1.6240165 1.5030437
## Sulawesi Tengah 0.5551156 0.8223075 0.4438382 0.8216767
## Sulawesi Selatan 1.4620740 1.2379366 1.7834989 1.4016422
## Sulawesi Tenggara 1.1771822 1.8103018 1.1849782 1.7381480
## Gorontalo 0.5432319 1.1279880 0.7133174 1.2288396
## Sulawesi Barat 0.8461867 1.5682844 0.8387910 1.5280523
## Maluku 0.4166991 1.1559362 0.5519826 1.1881633
## Maluku Utara 0.7653142 1.4342493 0.5381758 1.3503214
## Papua Barat 2.2929746 2.7030542 2.0277557 2.5359690
## Papua Barat Daya 1.6983001 2.1561199 1.4239208 2.0083936
## Papua 1.6308087 1.9110380 1.3465470 1.7866340
## Papua Selatan 1.3106107 1.7667955 1.0126046 1.6471336
## Papua Tengah 2.7851352 3.0078206 2.5131565 2.8420504
## Papua Pegunungan 2.8369817 2.9998138 2.5664588 2.8456878
## Kepulauan Bangka Belitung Kepulauan Riau DKI Jakarta
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau 0.6937005
## DKI Jakarta 7.1513004 7.2344328
## Jawa Barat 6.1949438 6.1372943 7.9618647
## Jawa Tengah 4.8287057 4.7782297 7.0251535
## DI Yogyakarta 2.9531018 3.0064929 5.9555437
## Jawa Timur 5.5925053 5.5632748 7.1781244
## Banten 1.6485244 1.7098618 6.3036347
## Bali 2.4153991 2.5858880 6.0737817
## Nusa Tenggara Barat 1.4928751 0.8431360 7.3224885
## Nusa Tenggara Timur 1.6645691 1.0100620 7.4136166
## Kalimantan Barat 0.5203392 0.8176147 7.1045155
## Kalimantan Tengah 0.3895184 0.9773884 7.2278749
## Kalimantan Selatan 0.8799708 0.7506322 6.9212525
## Kalimantan Timur 1.8678965 1.6952865 8.1775769
## Kalimantan Utara 1.3469669 1.8946777 7.5810106
## Sulawesi Utara 1.7748658 2.1988545 6.4399416
## Sulawesi Tengah 0.5399801 1.0603876 6.9132583
## Sulawesi Selatan 2.0632646 1.8544069 6.6549795
## Sulawesi Tenggara 1.2068105 0.5682674 7.5574633
## Gorontalo 0.9827503 0.8605732 6.9343143
## Sulawesi Barat 0.9016424 0.2428608 7.3741030
## Maluku 0.7828116 0.4857176 7.0983255
## Maluku Utara 0.3829187 0.4767823 7.3393220
## Papua Barat 1.7474357 2.0103860 8.0586412
## Papua Barat Daya 1.1419721 1.4534458 7.7244150
## Papua 1.0841780 1.6775451 7.4272007
## Papua Selatan 0.7233935 1.2148677 7.4573202
## Papua Tengah 2.2362423 2.6989442 8.0524077
## Papua Pegunungan 2.3008177 2.8301461 7.9458630
## Jawa Barat Jawa Tengah DI Yogyakarta Jawa Timur
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah 1.6664021
## DI Yogyakarta 6.1192893 4.4588776
## Jawa Timur 1.7950836 0.9847232 4.7757225
## Banten 4.7383835 3.2804456 2.3700650 4.0170032
## Bali 5.9068633 4.2713254 0.7019306 4.6765010
## Nusa Tenggara Barat 5.8038059 4.4647724 3.0739683 5.2510180
## Nusa Tenggara Timur 5.8395076 4.5008340 3.1071281 5.2758254
## Kalimantan Barat 5.6860615 4.3453707 2.9525944 5.1312550
## Kalimantan Tengah 6.0943150 4.7837574 3.2054384 5.5688738
## Kalimantan Selatan 5.7919008 4.3283779 2.3202050 5.0403506
## Kalimantan Timur 6.4244475 5.3967540 4.6617480 6.3102330
## Kalimantan Utara 6.5975250 5.4188901 4.0426193 6.2227598
## Sulawesi Utara 6.0668665 4.5233875 1.7256617 5.0443817
## Sulawesi Tengah 5.9554205 4.5328145 2.5522245 5.2460111
## Sulawesi Selatan 5.2104261 3.6346269 1.7141212 4.2187281
## Sulawesi Tenggara 6.1895099 4.9005341 3.4227959 5.7183488
## Gorontalo 6.1664084 4.6721016 2.1924684 5.3486208
## Sulawesi Barat 6.2550827 4.9014630 3.0976158 5.6857123
## Maluku 6.1088177 4.6705548 2.5520871 5.3979286
## Maluku Utara 6.2638462 4.9366165 3.2044398 5.7312264
## Papua Barat 6.8098778 5.7437138 4.6724619 6.6172541
## Papua Barat Daya 6.5843449 5.4104277 4.0761465 6.2546639
## Papua 6.4659318 5.2377783 3.7469232 6.0263137
## Papua Selatan 6.4622026 5.2040120 3.6131142 6.0086009
## Papua Tengah 6.8809075 5.8729946 4.9401580 6.7110218
## Papua Pegunungan 6.8795080 5.8543805 4.8633663 6.6639285
## Banten Bali Nusa Tenggara Barat
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali 1.8818114
## Nusa Tenggara Barat 1.7949602 2.7871872
## Nusa Tenggara Timur 1.9281933 2.8567750 0.1973184
## Kalimantan Barat 1.2621737 2.3956799 1.4030863
## Kalimantan Tengah 1.6890639 2.6230398 1.7339708
## Kalimantan Selatan 1.2213628 1.8829583 1.0631329
## Kalimantan Timur 2.8408857 4.1827186 1.9665840
## Kalimantan Utara 2.5233114 3.4145162 2.6591675
## Sulawesi Utara 1.7252218 1.0459049 2.6800280
## Sulawesi Tengah 1.3447425 1.9601590 1.7163574
## Sulawesi Selatan 1.2922956 1.5310488 1.6143671
## Sulawesi Tenggara 2.0608098 3.0596599 0.6396971
## Gorontalo 1.5660710 1.8063503 1.2228078
## Sulawesi Barat 1.8962457 2.7159855 0.7419441
## Maluku 1.5684472 2.1497746 0.9477463
## Maluku Utara 1.8254489 2.7089068 1.2889411
## Papua Barat 2.9749972 4.0948635 2.6435812
## Papua Barat Daya 2.4774289 3.5095284 2.1593638
## Papua 2.2732640 3.1203830 2.4552019
## Papua Selatan 2.1486809 3.0359120 2.0028390
## Papua Tengah 3.2622141 4.2975581 3.3942450
## Papua Pegunungan 3.2608084 4.2048222 3.5532120
## Nusa Tenggara Timur Kalimantan Barat
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali
## Nusa Tenggara Barat
## Nusa Tenggara Timur
## Kalimantan Barat 1.5829466
## Kalimantan Tengah 1.9143345 0.5042967
## Kalimantan Selatan 1.1933863 0.8297208
## Kalimantan Timur 2.0861099 1.8523542
## Kalimantan Utara 2.8390810 1.4786334
## Sulawesi Utara 2.8015840 1.8082219
## Sulawesi Tengah 1.8787176 0.5952542
## Sulawesi Selatan 1.6289416 1.8707118
## Sulawesi Tenggara 0.7621789 1.2501222
## Gorontalo 1.3224302 1.1290213
## Sulawesi Barat 0.8827200 1.0427657
## Maluku 1.0765052 0.9102110
## Maluku Utara 1.4587034 0.6625445
## Papua Barat 2.8053348 1.8561100
## Papua Barat Daya 2.3286703 1.3003224
## Papua 2.6358868 1.2266875
## Papua Selatan 2.1783933 0.9596163
## Papua Tengah 3.5710453 2.2973749
## Papua Pegunungan 3.7341889 2.3603759
## Kalimantan Tengah Kalimantan Selatan Kalimantan Timur
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali
## Nusa Tenggara Barat
## Nusa Tenggara Timur
## Kalimantan Barat
## Kalimantan Tengah
## Kalimantan Selatan 1.1746187
## Kalimantan Timur 1.7579442 2.3600646
## Kalimantan Utara 1.0228472 2.1923690 1.8798538
## Sulawesi Utara 1.8870074 1.6212246 3.6087839
## Sulawesi Tengah 0.6670522 0.7955035 2.3402408
## Sulawesi Selatan 2.3040142 1.2021639 3.3560753
## Sulawesi Tenggara 1.4118775 1.2020927 1.4428730
## Gorontalo 1.3435630 0.4193724 2.5451134
## Sulawesi Barat 1.1864666 0.8877654 1.6873222
## Maluku 1.1377772 0.3844420 2.1687186
## Maluku Utara 0.5779415 0.9908105 1.5458887
## Papua Barat 1.4884061 2.5507794 1.1974683
## Papua Barat Daya 0.9082139 1.9606414 1.2123120
## Papua 0.7624071 1.9179516 1.9142338
## Papua Selatan 0.4838094 1.5895059 1.5698925
## Papua Tengah 1.8955220 3.0664499 2.1040275
## Papua Pegunungan 1.9542090 3.1213574 2.4124156
## Kalimantan Utara Sulawesi Utara Sulawesi Tengah
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali
## Nusa Tenggara Barat
## Nusa Tenggara Timur
## Kalimantan Barat
## Kalimantan Tengah
## Kalimantan Selatan
## Kalimantan Timur
## Kalimantan Utara
## Sulawesi Utara 2.5057943
## Sulawesi Tengah 1.5601871 1.2701176
## Sulawesi Selatan 3.3052627 1.9202703 1.8088102
## Sulawesi Tenggara 2.2090596 2.7473461 1.6058969
## Gorontalo 2.3140338 1.5878496 0.9311412
## Sulawesi Barat 2.0626720 2.3786530 1.2763115
## Maluku 2.1231936 1.8509300 0.9140752
## Maluku Utara 1.4283509 2.1377827 0.9011772
## Papua Barat 0.9362123 3.2872872 2.1487902
## Papua Barat Daya 0.7215364 2.7355193 1.5634411
## Papua 0.2989220 2.2234849 1.2641009
## Papua Selatan 0.6913387 2.2483177 1.0995553
## Papua Tengah 0.9287596 3.3637024 2.4642691
## Papua Pegunungan 0.9627615 3.2370753 2.4568395
## Sulawesi Selatan Sulawesi Tenggara Gorontalo
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali
## Nusa Tenggara Barat
## Nusa Tenggara Timur
## Kalimantan Barat
## Kalimantan Tengah
## Kalimantan Selatan
## Kalimantan Timur
## Kalimantan Utara
## Sulawesi Utara
## Sulawesi Tengah
## Sulawesi Selatan
## Sulawesi Tenggara 2.1088726
## Gorontalo 1.3242781 1.3131693
## Sulawesi Barat 1.9156440 0.4083769 0.9394474
## Maluku 1.4902668 0.9447420 0.3858915
## Maluku Utara 2.1758245 0.8828476 1.0971996
## Papua Barat 3.6915285 2.0859520 2.6875882
## Papua Barat Daya 3.1213229 1.6279008 2.0856557
## Papua 3.0239880 2.0432670 2.0378543
## Papua Selatan 2.7575708 1.5484421 1.6953385
## Papua Tengah 4.1557882 2.9024339 3.2167716
## Papua Pegunungan 4.1820991 3.0916081 3.2651061
## Sulawesi Barat Maluku Maluku Utara Papua Barat
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali
## Nusa Tenggara Barat
## Nusa Tenggara Timur
## Kalimantan Barat
## Kalimantan Tengah
## Kalimantan Selatan
## Kalimantan Timur
## Kalimantan Utara
## Sulawesi Utara
## Sulawesi Tengah
## Sulawesi Selatan
## Sulawesi Tenggara
## Gorontalo
## Sulawesi Barat
## Maluku 0.5733885
## Maluku Utara 0.6428178 0.7872439
## Papua Barat 2.1021249 2.3937460 1.6068506
## Papua Barat Daya 1.5694647 1.8048109 1.0201882 0.6072721
## Papua 1.8597857 1.8659607 1.2173063 1.1277845
## Papua Selatan 1.3755040 1.4667193 0.7429745 1.0743604
## Papua Tengah 2.8442831 2.9926186 2.2478186 0.9705469
## Papua Pegunungan 2.9934223 3.0767881 2.3709801 1.2813917
## Papua Barat Daya Papua Papua Selatan Papua Tengah
## Sumatera Utara
## Sumatera Barat
## Riau
## Jambi
## Sumatera Selatan
## Bengkulu
## Lampung
## Kepulauan Bangka Belitung
## Kepulauan Riau
## DKI Jakarta
## Jawa Barat
## Jawa Tengah
## DI Yogyakarta
## Jawa Timur
## Banten
## Bali
## Nusa Tenggara Barat
## Nusa Tenggara Timur
## Kalimantan Barat
## Kalimantan Tengah
## Kalimantan Selatan
## Kalimantan Timur
## Kalimantan Utara
## Sulawesi Utara
## Sulawesi Tengah
## Sulawesi Selatan
## Sulawesi Tenggara
## Gorontalo
## Sulawesi Barat
## Maluku
## Maluku Utara
## Papua Barat
## Papua Barat Daya
## Papua 0.7471193
## Papua Selatan 0.4920395 0.5159364
## Papua Tengah 1.2973118 1.2202256 1.5403507
## Papua Pegunungan 1.4988512 1.2286699 1.6412244 0.3654399
hc <- hclust(jarak, method = "complete")
library(dendextend)
library(factoextra)
# potong cluster
cluster <- cutree(hc, k = 4)
# ubah ke dendrogram
dend <- as.dendrogram(hc)
# reorder berdasarkan cluster
dend <- reorder(dend, wts = cluster)
# plot dendrogram
suppressWarnings({
fviz_dend(dend,
k = 4,
rect = TRUE,
rect_border = "pink",
rect_fill = FALSE,
cex = 0.5,
horiz = TRUE,
main = "Dendrogram Hierarchical Clustering Provinsi Indonesia 2024")
})