Persentase Rumah Tangga yang Memiliki Akses terhadap Sumber Air Minum Layak Menurut Provinsi (Persen), 2025

Sumber Data : Badan Pusat Statistik, 2025

Data=read.table(file.choose(),header=TRUE)
Data
##                Provinsi Air_Minum_Layak
## 1                  ACEH           92.06
## 2        SUMATERA UTARA           93.24
## 3        SUMATERA BARAT           87.26
## 4                  RIAU           92.17
## 5                 JAMBI           82.46
## 6      SUMATERA SELATAN           86.82
## 7              BENGKULU           70.47
## 8               LAMPUNG           85.13
## 9  KEP. BANGKA BELITUNG           83.54
## 10            KEP. RIAU           94.60
## 11          DKI JAKARTA           99.98
## 12           JAWA BARAT           95.84
## 13          JAWA TENGAH           95.73
## 14        DI YOGYAKARTA           97.33
## 15           JAWA TIMUR           97.30
## 16               BANTEN           96.03
## 17                 BALI           98.75
## 18  NUSA TENGGARA BARAT           96.29
## 19  NUSA TENGGARA TIMUR           89.86
## 20     KALIMANTAN BARAT           84.32
## 21    KALIMANTAN TENGAH           80.58
## 22   KALIMANTAN SELATAN           78.27
## 23     KALIMANTAN TIMUR           88.45
## 24     KALIMANTAN UTARA           91.59
## 25       SULAWESI UTARA           94.86
## 26      SULAWESI TENGAH           87.55
## 27     SULAWESI SELATAN           93.25
## 28    SULAWESI TENGGARA           94.91
## 29            GORONTALO           95.95
## 30       SULAWESI BARAT           83.00
## 31               MALUKU           92.83
## 32         MALUKU UTARA           90.01
## 33          PAPUA BARAT           82.95
## 34     PAPUA BARAT DAYA           80.64
## 35                PAPUA           87.70
## 36        PAPUA SELATAN           71.28
## 37         PAPUA TENGAH           83.21
## 38     PAPUA PEGUNUNGAN           32.89
length(Data$Air_Minum_Layak)
## [1] 38
mean(Data$Air_Minum_Layak)
## [1] 87.60789
median(Data$Air_Minum_Layak)
## [1] 89.935
range(Data$Air_Minum_Layak)
## [1] 32.89 99.98
max(Data$Air_Minum_Layak)-min(Data$Air_Minum_Layak)
## [1] 67.09
max(Data$Air_Minum_Layak)
## [1] 99.98
min(Data$Air_Minum_Layak)
## [1] 32.89
var(Data$Air_Minum_Layak)
## [1] 134.9053
sd(Data$Air_Minum_Layak)
## [1] 11.61487
quantile(Data$Air_Minum_Layak)
##      0%     25%     50%     75%    100% 
## 32.8900 83.2925 89.9350 94.8975 99.9800

Interpretasi

Berdasarkan output tersebut dapat diketahui bahwa data Persentase Air Minum Layak di Indonesia tahun 2025 dengan 38 observasi dari seluruh provinsi di Indonesia memiliki nilai rata-rata sebesar 87,60, nilai median sebesar 89,93, dan jangkauan sebesar 67.09 dengan nilai maksimum yaitu 99,98 serta nilai minimumnya yaitu 32,89. Selain itu dapat diketahui pula nilai variansinya adalah 134,90 serta nilai deviasi standar sebesar 11,61.

Visualisasi dengan Histogram

library(ggplot2) 

ggplot(Data, aes(x = Air_Minum_Layak)) + 
  geom_histogram(
    binwidth = 5, 
    boundary = 30, 
    fill = "pink", 
    color = "black"
  ) + 
  scale_x_continuous(
    breaks = seq(30, 100, by = 10), 
    limits = c(30, 100)
  ) + 
  labs(
    title = "Persentase Air Minum Layak di Indonesia (2025)", 
    x = "Akses Air Minum Layak (%)", 
    y = "Frekuensi"
  ) + 
  theme_classic() + 
  theme(
    axis.text.x = element_text(angle = 0, hjust = 0.5), 
    plot.title = element_text(
      hjust = 0.5, 
      face = "bold"
    )
  )

Interpretasi Histogram

Berdasarkan output diatas, diketahui bahwa data persentase akses air minum layak di Indonesia tahun 2025 paling banyak berada pada interval 90-95 yaitu sebanyak 10 provinsi, dan data persentase akses air minum layak di Indonesia tahun 2025 yang paling sedikit berada pada interval 30-35 dan 75-80 yaitu masing-masing sebanyak 1 provinsi. Selanjutnya, data persentase akses air minum layak di Indonesia pada interval 35-70 terdapat sebanyak 0 provinsi, pada interval 70-75 terdapat sebanyak 2 provinsi, pada interval 80-85 terdapat sebanyak 8 provinsi, pada interval 85-90 terdapat sebanyak 7 provinsi, dan pada interval 95-100 terdapat sebanyak 9 provinsi.

Visualisasi dengan boxplot

ggplot(Data,aes(x="",y=Air_Minum_Layak))+
  geom_boxplot(fill="red")+
  labs(title="Box Plot Persentase Air Minum Layak Indonesia, 2025",x="",y="Air_Minum_Layak")+
  theme_minimal()+
  theme(plot.title=element_text(hjust=0.5,face="bold"))

Interpretasi boxplot

Berdasarkan output dapat diketahui bahwa nilai kuartil 1 adalah sebesar 83.29, kuartil 2 (median) sebesar 89,93, dan nilai kuartil 3 sebesar 94,89. Selain itu dapat diketahui pula bahwa terdapat 1 titik pencilan (outlier).

Visualisasi dengan Barplot data pulau kalimantan

library(dplyr)
## Warning: package 'dplyr' was built under R version 4.5.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.5.3
## Warning: package 'tidyr' was built under R version 4.5.3
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats   1.0.1     ✔ stringr   1.5.2
## ✔ lubridate 1.9.4     ✔ tibble    3.3.0
## ✔ purrr     1.1.0     ✔ tidyr     1.3.2
## ✔ readr     2.1.5
## ── 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(ggplot2)

Data_Kalimantan <- Data %>%
  filter(str_starts(Provinsi, "KALIMANTAN"))

Data_Kalimantan
##             Provinsi Air_Minum_Layak
## 1   KALIMANTAN BARAT           84.32
## 2  KALIMANTAN TENGAH           80.58
## 3 KALIMANTAN SELATAN           78.27
## 4   KALIMANTAN TIMUR           88.45
## 5   KALIMANTAN UTARA           91.59
# Membuat Barplot
ggplot(Data_Kalimantan, aes(x = Provinsi, y = Air_Minum_Layak, fill = Provinsi)) +
  geom_col() +
  scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, by = 20)) +
  labs(
    title = "Persentase Air Minum Layak di Pulau Kalimantan Tahun 2025",
    x = "Provinsi",
    y = "Air Minum Layak (%)"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(hjust = 0.5, face = "bold"),
    legend.position = "none"
  )

Interpretasi Barplot

Berdasarkan output di atas, diketahui bahwa persentase rumah tangga yang memiliki akses terhadap sumber air minum layak di Pulau Kalimantan bervariasi di kelima provinsinya. Provinsi dengan persentase tertinggi adalah Kalimantan Utara yakni sebesar 91,59%, Sebaliknya, provinsi dengan persentase paling rendah adalah Kalimantan Selatan yakni sebesar 78,27%.