Data <- read.table(file.choose(), header = T)
Data
## Provinsi UHH
## 1 aceh 70.44
## 2 sumatera_utara 70.28
## 3 sumatera_barat 70.33
## 4 riau 72.52
## 5 jambi 72.04
## 6 sumatera_selatan 70.93
## 7 bengkulu 70.13
## 8 lampung 71.50
## 9 kep.bangka_belitung 71.49
## 10 kepulauan_riau 71.24
## 11 DKI_jakarta 73.87
## 12 jawa_barat 74.07
## 13 jawa_tengah 74.93
## 14 D.I.yogyakarta 75.22
## 15 jawa_timur 72.35
## 16 banten 71.02
## 17 bali 73.29
## 18 NTB 67.73
## 19 NTT 67.99
## 20 kalimantan_barat 71.55
## 21 kalimantan_tengah 70.43
## 22 kalimantan_selatan 69.65
## 23 kalimantan_timur 75.03
## 24 kalimantan_utara 72.73
## 25 sulawesi_utara 72.69
## 26 sulawesi_tengah 69.42
## 27 sulawesi_selatan 71.43
## 28 sulawesi_tenggara 71.60
## 29 gorontalo 69.09
## 30 sulawesi_barat 66.27
## 31 maluku 66.99
## 32 maluku_utara 69.35
## 33 papua_barat 67.05
## 34 papua_barat_daya 67.85
## 35 papua 68.79
## 36 papua_selatan 66.45
## 37 papua_tengah 66.99
## 38 papua_pegunungan 64.80
library(ggplot2)
ggplot(Data, aes(x = UHH)) +
geom_histogram(
binwidth = 2,
boundary = 64,
fill = "lightblue",
color = "black"
) +
scale_x_continuous(
breaks = seq(64, 76, by = 2),
limits = c(64, 76)
) +
labs(
title = "UHH di Indonesia Tahun 2024",
x = "UHH",
y = "Freq"
) +
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 = UHH)) +
geom_boxplot(fill = "lightblue") +
labs(title = "Box Plot UHH Indonesia 2024", x = "", y = "UHH") +
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 '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.2
## 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.0
## ✔ purrr 1.2.2 ✔ tidyr 1.3.2
## ✔ 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 UHH
## 1 kalimantan_barat 71.55
## 2 kalimantan_tengah 70.43
## 3 kalimantan_selatan 69.65
## 4 kalimantan_timur 75.03
## 5 kalimantan_utara 72.73
ggplot(Data_Kalimantan, aes(x = Provinsi, y = UHH, fill = Provinsi)) +
geom_col() +
labs(
title = "UHH Pulau Kalimantan Tahun 2024",
x = "Provinsi",
y = "UHH"
) +
theme_minimal() +
theme(
axis.text.x = element_text(angle = 45, hjust = 1),
plot.title = element_text(hjust = 0.5, face = "bold"),
legend.position = "none"
)
