TM2_Komstat

Data <- read.table(file.choose(),header = TRUE,sep = "\t")
Data

##                PROVINSI PenggunaTeleponGenggam
## 1                  ACEH                  68.21
## 2        SUMATERA UTARA                  70.40
## 3        SUMATERA BARAT                  70.33
## 4                  RIAU                  76.17
## 5                 JAMBI                  71.03
## 6      SUMATERA SELATAN                  69.50
## 7              BENGKULU                  71.10
## 8               LAMPUNG                  67.50
## 9  KEP. BANGKA BELITUNG                  74.27
## 10            KEP. RIAU                  82.18
## 11          DKI JAKARTA                  84.47
## 12           JAWA BARAT                  72.56
## 13          JAWA TENGAH                  67.72
## 14        DI YOGYAKARTA                  72.86
## 15           JAWA TIMUR                  68.27
## 16               BANTEN                  73.59
## 17                 BALI                  77.45
## 18  NUSA TENGGARA BARAT                  66.44
## 19  NUSA TENGGARA TIMUR                  55.97
## 20     KALIMANTAN BARAT                  68.94
## 21    KALIMANTAN TENGAH                  77.50
## 22   KALIMANTAN SELATAN                  72.69
## 23     KALIMANTAN TIMUR                  84.04
## 24     KALIMANTAN UTARA                  79.45
## 25       SULAWESI UTARA                  73.50
## 26      SULAWESI TENGAH                  67.37
## 27     SULAWESI SELATAN                  72.95
## 28    SULAWESI TENGGARA                  74.43
## 29            GORONTALO                  69.78
## 30       SULAWESI BARAT                  66.30
## 31               MALUKU                  68.64
## 32         MALUKU UTARA                  67.79
## 33          PAPUA BARAT                  70.03
## 34     PAPUA BARAT DAYA                  69.08
## 35                PAPUA                  68.56
## 36        PAPUA SELATAN                  50.67
## 37         PAPUA TENGAH                  37.35
## 38     PAPUA PEGUNUNGAN                  22.49

length (Data$PenggunaTeleponGenggam)

## [1] 38

mean (Data$PenggunaTeleponGenggam )

## [1] 68.98895

median (Data$PenggunaTeleponGenggam)

## [1] 70.18

range (Data$PenggunaTeleponGenggam)

## [1] 22.49 84.47

max (Data$PenggunaTeleponGenggam)-min(Data$PenggunaTeleponGenggam)

## [1] 61.98

max (Data$PenggunaTeleponGenggam)

## [1] 84.47

min (Data$PenggunaTeleponGenggam)

## [1] 22.49

var (Data$PenggunaTeleponGenggam)

## [1] 129.9204

sd (Data$PenggunaTeleponGenggam)

## [1] 11.39827

quantile (Data$PenggunaTeleponGenggam)

##      0%     25%     50%     75%    100% 
## 22.4900 67.8950 70.1800 73.5675 84.4700

library(ggplot2)

ggplot(Data, aes(x = PenggunaTeleponGenggam)) +
  geom_histogram(
    binwidth = 5,
    boundary = 20,
    fill = "pink",
    color = "black"
  ) +
  scale_x_continuous(
    breaks = seq(20, 90, by = 5),
    limits = c(20, 90)
  ) +
  labs(
    title = "Pengguna Telepon Genggam di Indonesia",
    x = "Pengguna Telepon Genggam (%)",
    y = "Frekuensi"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 0, hjust = 0.5),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

ggplot(Data, aes(x = "", y = PenggunaTeleponGenggam)) +
  geom_boxplot(fill = "purple") +
  labs(
    title = "Box Plot Pengguna Telepon Genggam di Indonesia",
    x = "",
    y = "Pengguna Telepon Genggam (%)"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

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 'tibble' was built under R version 4.5.3

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

## Warning: package 'readr' 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)

names(Data)

## [1] "PROVINSI"               "PenggunaTeleponGenggam"

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

Data_Kalimantan

##             PROVINSI PenggunaTeleponGenggam
## 1   KALIMANTAN BARAT                  68.94
## 2  KALIMANTAN TENGAH                  77.50
## 3 KALIMANTAN SELATAN                  72.69
## 4   KALIMANTAN TIMUR                  84.04
## 5   KALIMANTAN UTARA                  79.45

ggplot(
  Data_Kalimantan,
  aes(
    x = PROVINSI,
    y = PenggunaTeleponGenggam,
    fill = PROVINSI
  )
) +
  geom_col() +
  labs(
    title = "Pengguna Telepon Genggam di Provinsi Kalimantan",
    x = "Provinsi",
    y = "Pengguna Telepon Genggam (%)"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    ),
    legend.position = "none"
  )