Line Plot Kota Semarang per Kecamatan

Package

library(tidyverse) # ggplot2
library(sf)
library(ggrepel)

Data

stunting_smg <- read_csv("datasets/stunting.csv") # sumber: BPS

Kota Semarang per Kecamatan

# Mengubah data dari wide menjadi long format

stunting_smg_1 <- stunting_smg |> 
  pivot_longer(c(`2022`,`2023`),
               names_to = "tahun",
               values_to = "jumlah_stunting")

# Menjumlah data jumlah stunting berdasarkan kecamatan dan tahun

stunting_smg_1 <- stunting_smg_1 |> 
  summarise(jumlah_stunting_kec = sum(jumlah_stunting),
            .by = c(kec, tahun))

# Visualisasi line plot

stunting_smg_1 |> 
  ggplot(aes(x = tahun,
             y = jumlah_stunting_kec,
             group = kec,
             color = kec)) +
  geom_line() +
  labs(title = "Tingkat Stunting Per Kecamatan",
       x = "Tahun",
       y = "Jumlah stunting") +
  geom_text_repel(aes(label = kec),
                  data = stunting_smg_1 |> filter(tahun == "2022"),
                  size = 1.75,
                  xlim = c(NA, 0.9), hjust = 1,
                  segment.alpha = 0.3, segment.linetype = "dotted") +
  theme_minimal() +
  theme(legend.position = "none")

# Menyimpan plot

ggsave("ggsave/per_kecamatan.png", width = 7, height = 5)