TM 2 komstat

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

##                Provinsi   AHH
## 1                  ACEH 68.52
## 2        SUMATERA_UTARA 68.36
## 3        SUMATERA_BARAT 68.41
## 4                  RIAU 70.56
## 5                 JAMBI 70.09
## 6      SUMATERA_SELATAN 69.00
## 7              BENGKULU 68.21
## 8               LAMPUNG 69.56
## 9  KEP._BANGKA_BELITUNG 69.55
## 10            KEP._RIAU 69.30
## 11          DKI_JAKARTA 72.08
## 12           JAWA_BARAT 72.26
## 13          JAWA_TENGAH 73.21
## 14        DI_YOGYAKARTA 73.66
## 15           JAWA_TIMUR 70.39
## 16               BANTEN 69.09
## 17                 BALI 71.19
## 18  NUSA_TENGGARA_BARAT 65.79
## 19  NUSA_TENGGARA_TIMUR 66.04
## 20     KALIMANTAN_BARAT 69.61
## 21    KALIMANTAN_TENGAH 68.51
## 22   KALIMANTAN_SELATAN 67.72
## 23     KALIMANTAN_TIMUR 73.21
## 24     KALIMANTAN_UTARA 70.76
## 25       SULAWESI_UTARA 70.73
## 26      SULAWESI_TENGAH 67.49
## 27     SULAWESI_SELATAN 69.49
## 28    SULAWESI_TENGGARA 69.66
## 29            GORONTALO 67.16
## 30       SULAWESI_BARAT 64.37
## 31               MALUKU 65.05
## 32         MALUKU_UTARA 67.28
## 33          PAPUA_BARAT 65.13
## 34     PAPUA_BARAT_DAYA 65.88
## 35                PAPUA 66.76
## 36        PAPUA_SELATAN 64.53
## 37         PAPUA_TENGAH 65.05
## 38     PAPUA_PEGUNUNGAN 62.83

length(Data$AHH)

## [1] 38

mean(Data$AHH)

## [1] 68.59184

median(Data$AHH)

## [1] 68.76

range(Data$AHH)

## [1] 62.83 73.66

max(Data$AHH) - min(Data$AHH)

## [1] 10.83

max(Data$AHH)

## [1] 73.66

min(Data$AHH)

## [1] 62.83

var(Data$AHH)

## [1] 7.047318

sd(Data$AHH)

## [1] 2.654679

quantile(Data$AHH)

##     0%    25%    50%    75%   100% 
## 62.830 66.860 68.760 70.315 73.660

library(ggplot2)

# Histogram
ggplot(Data, aes(x = AHH)) +
  geom_histogram(binwidth = 2, boundary = 62,
                 fill = "pink", color = "black") +
  scale_x_continuous(breaks = seq(62, 74, by = 2)) +
  labs(title = "AHH Laki-laki di Indonesia 2024",
       x = "AHH (tahun)", y = "Frekuensi") +
  theme_classic() +
  theme(plot.title = element_text(hjust = 0.5, face = "bold"))

# Boxplot
ggplot(Data, aes(x = "", y = AHH)) +
  geom_boxplot(fill = "red") +
  labs(title = "Box Plot AHH Laki-laki Indonesia 2024",
       x = "", y = "AHH (tahun)") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5, face = "bold"))

library(dplyr)

## 
## 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(stringr)

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

##             Provinsi   AHH
## 1   KALIMANTAN_BARAT 69.61
## 2  KALIMANTAN_TENGAH 68.51
## 3 KALIMANTAN_SELATAN 67.72
## 4   KALIMANTAN_TIMUR 73.21
## 5   KALIMANTAN_UTARA 70.76

ggplot(Data_Kalimantan, aes(x = Provinsi, y = AHH, fill = Provinsi)) +
  geom_col() +
  labs(title = "AHH Laki-laki Pulau Kalimantan Tahun 2024",
       x = "Provinsi", y = "AHH (tahun)") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        plot.title = element_text(hjust = 0.5, face = "bold"),
        legend.position = "none")