TM 2 Prak Komstat

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.5.3

data = read.table(file.choose(), header = T, sep = "\t")
data

##               Provinsi   SMA
## 1                 ACEH 74,46
## 2       SUMATERA_UTARA 74,43
## 3       SUMATERA_BARAT 68,64
## 4                 RIAU 67,79
## 5                JAMBI 66,62
## 6     SUMATERA_SELATAN 64,81
## 7             BENGKULU 63,41
## 8              LAMPUNG 64,54
## 9  KEP_BANGKA_BELITUNG 68,96
## 10            KEP_RIAU 78,97
## 11         DKI_JAKARTA 88,10
## 12          JAWA_BARAT 66,47
## 13         JAWA_TENGAH 58,35
## 14       DI_YOGYAKARTA 89,69
## 15          JAWA_TIMUR 68,65
## 16              BANTEN 70,07
## 17                BALI 76,51
## 18 NUSA_TENGGARA_BARAT 63,66
## 19 NUSA_TENGGARA_TIMUR 43,46
## 20    KALIMANTAN_BARAT 55,58
## 21   KALIMANTAN_TENGAH 63,93
## 22  KALIMANTAN_SELATAN 68,35
## 23    KALIMANTAN_TIMUR 73,63
## 24    KALIMANTAN_UTARA 59,50
## 25      SULAWESI_UTARA 67,57
## 26     SULAWESI_TENGAH 55,69
## 27    SULAWESI_SELATAN 67,41
## 28   SULAWESI_TENGGARA 68,28
## 29           GORONTALO 46,19
## 30      SULAWESI_BARAT 54,79
## 31              MALUKU 75,01
## 32        MALUKU_UTARA 64,61
## 33         PAPUA_BARAT 59,99
## 34    PAPUA_BARAT_DAYA     -
## 35               PAPUA 39,50
## 36       PAPUA_SELATAN     -
## 37        PAPUA_TENGAH     -
## 38    PAPUA_PEGUNUNGAN     -

data$SMA = as.numeric(gsub(",", ".", data$SMA))

## Warning: NAs introduced by coercion

ggplot(data, aes(x = Provinsi, y = SMA, fill = SMA)) +
  geom_bar(stat = "identity", width = 0.7) +
  labs(
    title = "Tingkat Penyelesaian SMA Menurut Provinsi",
    x = "Provinsi",
    y = "SMA/Sederajat"
  ) +
  scale_y_continuous(
    breaks = seq(0, 90, by = 5)
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(
      angle = 60,
      hjust = 1,
      size = 8
    ),
    axis.text.y = element_text(size = 9),
    plot.title = element_text(hjust = 0.5, face = "bold"),
    legend.position = "none"
  )

## Warning: Removed 4 rows containing missing values or values outside the scale range
## (`geom_bar()`).

data$SMA = as.numeric(gsub(",", ".", data$SMA))
ggplot(data, aes(x = "", y = SMA)) +
  geom_boxplot(fill = "lightyellow") +
  labs(
    title = "Box Plot Tingkat Penyelesaian SMA Indonesia 2023",
    x = "",
    y = "SMA/Sederajat"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

## Warning: Removed 4 rows containing non-finite outside the scale range
## (`stat_boxplot()`).

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

## Warning: package 'purrr' was built under R version 4.5.3

## Warning: package 'stringr' was built under R version 4.5.3

## Warning: package 'forcats' was built under R version 4.5.3

## Warning: package 'lubridate' was built under R version 4.5.3

## ── 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   SMA
## 1   KALIMANTAN_BARAT 55.58
## 2  KALIMANTAN_TENGAH 63.93
## 3 KALIMANTAN_SELATAN 68.35
## 4   KALIMANTAN_TIMUR 73.63
## 5   KALIMANTAN_UTARA 59.50

ggplot(Data_Kalimantan, aes(x = Provinsi, y = SMA, fill = Provinsi)) +
  geom_col() +
  labs(
    title = "Tingkat Penyelesaian SMA Pulau Kalimantan Tahun 2023",
    x = "Provinsi",
    y = "SMA/Sederajat"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(hjust = 0.5, face = "bold"),
    legend.position = "none"
  )