TM2.Komstat_Mellyana Dyah Febrianti

Data = read.table(file.choose(), header = TRUE)
Data

##                Provinsi TenagaKerjaIndustriSkalaMikro
## 1                  ACEH                        150225
## 2        SUMATERA_UTARA                        217093
## 3        SUMATERA_BARAT                        133126
## 4                  RIAU                         92177
## 5                 JAMBI                         60913
## 6      SUMATERA_SELATAN                        135987
## 7              BENGKULU                         40434
## 8               LAMPUNG                        210507
## 9  KEP._BANGKA_BELITUNG                         27869
## 10            KEP._RIAU                         35594
## 11          DKI_JAKARTA                        121578
## 12           JAWA_BARAT                       1183611
## 13          JAWA_TENGAH                       1261408
## 14        DI_YOGYAKARTA                        210285
## 15           JAWA_TIMUR                       1241187
## 16               BANTEN                        239750
## 17                 BALI                        223931
## 18  NUSA_TENGGARA_BARAT                        128949
## 19  NUSA_TENGGARA_TIMUR                        192880
## 20     KALIMANTAN_BARAT                         89639
## 21    KALIMANTAN_TENGAH                         46855
## 22   KALIMANTAN_SELATAN                        105582
## 23     KALIMANTAN_TIMUR                         59564
## 24     KALIMANTAN_UTARA                         12274
## 25       SULAWESI_UTARA                         67513
## 26      SULAWESI_TENGAH                        107951
## 27     SULAWESI_SELATAN                        206147
## 28    SULAWESI_TENGGARA                         95157
## 29            GORONTALO                         68513
## 30       SULAWESI_BARAT                         36884
## 31               MALUKU                         50892
## 32         MALUKU_UTARA                         32842
## 33          PAPUA_BARAT                          5119
## 34     PAPUA_BARAT_DAYA                          5637
## 35                PAPUA                         11085
## 36        PAPUA_SELATAN                          4183
## 37         PAPUA_TENGAH                          4205
## 38     PAPUA_PEGUNUNGAN                           167

length(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 38

mean(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 182045.1

median(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 90908

range(Data$TenagaKerjaIndustriSkalaMikro)

## [1]     167 1261408

max(Data$TenagaKerjaIndustriSkalaMikro)-min(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 1261241

max(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 1261408

min(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 167

var(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 1.01693e+11

sd(Data$TenagaKerjaIndustriSkalaMikro)

## [1] 318893.4

quantile(Data$TenagaKerjaIndustriSkalaMikro)

##        0%       25%       50%       75%      100% 
##     167.0   35916.5   90908.0  182216.2 1261408.0

library(ggplot2)

ggplot(Data, aes(x = TenagaKerjaIndustriSkalaMikro)) +
  geom_histogram(
    binwidth = 100000,
    boundary = 0,
    fill = "pink",
    color = "black"
  ) +
  scale_x_continuous(
    breaks = seq(0, 1300000, by = 100000),
    limits = c(0, 1300000)
  ) +
  labs(
    title = "Distribusi Tenaga Kerja Industri Skala Mikro",
    x = "Tenaga Kerja Industri Skala Mikro",
    y = "Frekuensi"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

ggplot(Data, aes(x = "", y = TenagaKerjaIndustriSkalaMikro)) +
  geom_boxplot(fill = "red") +
  labs(
    title = "Box Plot Tenaga Kerja Industri Skala Mikro",
    x = "",
    y = "Jumlah Tenaga Kerja"
  ) +
  scale_y_continuous(labels = scales::comma) +
  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

## ── 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.1
## ✔ 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 TenagaKerjaIndustriSkalaMikro
## 1   KALIMANTAN_BARAT                         89639
## 2  KALIMANTAN_TENGAH                         46855
## 3 KALIMANTAN_SELATAN                        105582
## 4   KALIMANTAN_TIMUR                         59564
## 5   KALIMANTAN_UTARA                         12274

ggplot(Data_kalimantan, aes(
  x = Provinsi,
  y = TenagaKerjaIndustriSkalaMikro,
  fill = Provinsi
)) + 
  geom_col() +
  scale_y_continuous(labels = scales::comma) +
  labs(
    title = "Tenaga Kerja Industri Skala Mikro di Pulau Kalimantan",
    x = "Provinsi",
    y = "Tenaga Kerja Industri Skala Mikro"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    ),
    legend.position = "none"
  )

TM2.Komstat_Mellyana Dyah Febrianti

Mellyana Dyah Febrianti

2026-09-27