#Data Angka Kematian Balita di 38 Provinsi

Data=read.table(file.choose(),header = T) 
Data 
##               Provinsi   AKB
## 1                 ACEH 18.94
## 2       SUMATERA_UTARA 18.51
## 3       SUMATERA_BARAT 18.03
## 4                 RIAU 15.41
## 5                JAMBI 17.19
## 6     SUMATERA_SELATAN 17.07
## 7             BENGKULU 19.80
## 8              LAMPUNG 15.73
## 9  KEP_BANGKA_BELITUNG 16.88
## 10            KEP_RIAU 13.79
## 11         DKI_JAKARTA 10.73
## 12          JAWA_BARAT 14.87
## 13         JAWA_TENGAH 12.60
## 14       DI_YOGYAKARTA 11.36
## 15          JAWA_TIMUR 13.71
## 16              BANTEN 15.13
## 17                BALI 13.35
## 18 NUSA_TENGGARA_BARAT 24.85
## 19 NUSA_TENGGARA_TIMUR 26.29
## 20    KALIMANTAN_BARAT 17.27
## 21   KALIMANTAN_TENGAH 19.12
## 22  KALIMANTAN_SELATAN 17.15
## 23    KALIMANTAN_TIMUR 15.62
## 24    KALIMANTAN_UTARA 17.15
## 25      SULAWESI_UTARA 18.32
## 26     SULAWESI_TENGAH 28.67
## 27    SULAWESI_SELATAN 18.37
## 28   SULAWESI_TENGGARA 22.92
## 29           GORONTALO 31.31
## 30      SULAWESI_BARAT 30.89
## 31              MALUKU 30.71
## 32        MALUKU_UTARA 29.27
## 33         PAPUA_BARAT 42.14
## 34    PAPUA_BARAT_DAYA 36.78
## 35               PAPUA 32.67
## 36       PAPUA_SELATAN 44.86
## 37        PAPUA_TENGAH 43.20
## 38    PAPUA_PEGUNUNGAN 48.80

#Visualisasi Histogram 38 Provinsi

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.6.1
ggplot(Data, aes(x = AKB)) +
  geom_histogram(
    binwidth = 5,
    boundary = 10,
    fill = "skyblue",
    color = "darkblue"
  ) +
  scale_x_continuous(
    breaks = seq(10, 50, by = 5),
    limits = c(10, 50)
  ) +
  labs(
    title = "AKB di Indonesia Tahun 2025",
    x = "Angka Kematian Balita (AKB)",
    y = "Freq"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 0, hjust = 0.5),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

#Visualisasi Boxplot 38 Provinsi

library(ggplot2)

ggplot(Data, aes(x = "", y = AKB)) + 
  geom_boxplot(fill = "green") + 
  labs(title = "Box Plot Angka Kematian Balita Indonesia 2025", x = "", y = "AKB") + 
  theme_minimal() + 
  theme(plot.title = element_text(hjust = 0.5, face = "bold"))

#Visualisasi Diagram Batang Pulau Kalimantan

library(dplyr) 
## Warning: package 'dplyr' was built under R version 4.6.1
## 
## 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.6.1
## Warning: package 'tibble' was built under R version 4.6.1
## Warning: package 'tidyr' was built under R version 4.6.1
## Warning: package 'readr' was built under R version 4.6.1
## Warning: package 'purrr' was built under R version 4.6.1
## Warning: package 'stringr' was built under R version 4.6.1
## Warning: package 'forcats' was built under R version 4.6.1
## Warning: package 'lubridate' was built under R version 4.6.1
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ lubridate 1.9.5     ✔ tibble    3.3.1
## ✔ purrr     1.2.2     ✔ tidyr     1.3.2
## ✔ readr     2.2.0
## ── 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   AKB
## 1   KALIMANTAN_BARAT 17.27
## 2  KALIMANTAN_TENGAH 19.12
## 3 KALIMANTAN_SELATAN 17.15
## 4   KALIMANTAN_TIMUR 15.62
## 5   KALIMANTAN_UTARA 17.15
ggplot(Data_Kalimantan, aes(x = Provinsi, y = AKB, fill = Provinsi)) + 
  geom_col() + 
  labs( 
    title = "AKB Pulau Kalimantan Tahun 2025", 
    x = "Provinsi", 
    y = "AKB" 
  ) + 
  theme_minimal() + 
  theme( 
    axis.text.x = element_text(angle = 45, hjust = 1), 
    plot.title = element_text(hjust = 0.5, face = "bold"), 
    legend.position = "none" 
  )