Visualisasi Sebaran
Beatrics Sahcayani Purba | X1004232086
2024-03-05
Data yang digunakan adalah data Susenas KOR Individu Tahun 2022 Bagian Pertama kolom R708. Data ini berisikan Jumlah Jam Kerja Mingguan Penduduk Jawa Barat pada tahun 2022. Visualisasi yang diberikan memuat sebaran jumlah jam kerja penduduk Jawa Barat. Jenis visualisasi yang digunakan adalah Histogram dan Violin Chart
#digunakan untuk memasukkan paket apa saja yang diperlukan dalam program
library(tidyverse) ## Warning: package 'tidyverse' was built under R version 4.3.3## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.0
## ✔ purrr 1.0.2
## ── 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 errorslibrary(ggridges)## Warning: package 'ggridges' was built under R version 4.3.3library(GGally) ## Warning: package 'GGally' was built under R version 4.3.3## Registered S3 method overwritten by 'GGally':
## method from
## +.gg ggplot2library(plotly) ## Warning: package 'plotly' was built under R version 4.3.3##
## Attaching package: 'plotly'
##
## The following object is masked from 'package:ggplot2':
##
## last_plot
##
## The following object is masked from 'package:stats':
##
## filter
##
## The following object is masked from 'package:graphics':
##
## layout#mengekspor file csv yang akan digunakan
data_susenas <- read.csv("D:/visdat/susenas.csv", header = TRUE, sep=",")
#menampilkan data dari file yang diekspor
str(data_susenas)## 'data.frame': 85806 obs. of 207 variables:
## $ X : int 0 1 2 3 4 5 6 7 8 9 ...
## $ URUT : int 1241 1241 1241 1242 1242 1243 1243 1244 1244 1245 ...
## $ WI1 : int 32776 32776 32776 32774 32774 32773 32773 32775 32775 32775 ...
## $ WI2 : int 2475 2475 2475 2476 2476 2477 2477 2478 2478 2479 ...
## $ PSU : int 9848 9848 9848 21091 21091 10938 10938 21090 21090 21090 ...
## $ SSU : int 119395 119395 119395 119419 119419 118495 118495 119406 119406 119413 ...
## $ STRATA : int 841081 841081 841081 841081 841081 841081 841081 841081 841081 841081 ...
## $ R101 : int 32 32 32 32 32 32 32 32 32 32 ...
## $ R102 : int 3 3 3 3 3 3 3 3 3 3 ...
## $ R105 : int 2 2 2 2 2 2 2 2 2 2 ...
## $ R401 : int 1 2 3 1 2 1 2 1 2 1 ...
## $ R403 : int 1 2 3 1 3 1 2 1 2 1 ...
## $ R404 : int 2 2 1 2 1 2 2 2 2 2 ...
## $ R405 : int 1 2 2 1 1 1 2 1 2 1 ...
## $ R406A : int 2 4 2 10 25 12 3 6 4 8 ...
## $ R406B : int 4 6 4 5 2 10 7 3 8 4 ...
## $ R406C : int 1957 1975 2007 1995 2019 1962 1965 1965 1970 1993 ...
## $ R407 : int 64 46 14 26 3 59 56 57 51 28 ...
## $ R408 : int 1 1 0 1 0 1 1 1 1 1 ...
## $ R409 : int 20 18 0 23 0 20 17 18 14 19 ...
## $ R410 : int 2 2 2 1 1 1 1 2 2 2 ...
## $ R501 : int 5 5 0 2 0 5 5 5 5 1 ...
## $ R502 : int 1 1 1 1 1 1 1 1 1 1 ...
## $ R503 : int 0 0 2 0 0 0 0 0 0 0 ...
## $ R504 : int 1 1 1 1 1 1 1 1 1 1 ...
## $ R506 : int 1 2 2 1 1 1 2 1 2 1 ...
## $ R507 : int 1 1 1 1 3 2 2 1 1 1 ...
## $ R508 : int 5 5 1 1 1 5 5 5 5 5 ...
## $ R509 : int 1 1 1 1 1 1 1 1 1 1 ...
## $ R601 : int 32 32 32 32 32 32 32 32 32 32 ...
## $ R602 : int 3 3 3 3 3 3 3 3 3 3 ...
## $ R603 : int 32 32 32 32 NA 32 32 32 32 32 ...
## $ R604 : int 3 3 3 3 NA 2 3 3 3 3 ...
## $ R605 : int 0 0 0 0 4 0 0 0 0 0 ...
## $ R606 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R607 : int 1 1 1 1 0 1 1 1 1 1 ...
## $ R608 : int 5 5 5 1 0 5 5 5 5 5 ...
## $ R609 : int 5 5 5 5 0 5 5 5 5 5 ...
## $ R610 : int 3 3 3 3 0 3 3 3 3 3 ...
## $ R611 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R612 : int 3 3 3 8 0 3 3 3 3 8 ...
## $ R613 : int 8 8 8 8 0 1 8 8 8 8 ...
## $ R614 : int 3 3 3 8 0 25 3 3 3 8 ...
## $ R615 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R616 : int 0 0 5 5 0 0 0 0 0 5 ...
## $ R617 : int 0 0 5 5 0 0 0 0 0 5 ...
## $ R618 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R619 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R620 : int 0 0 3 0 0 0 0 0 0 0 ...
## $ R621 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R622 : int 0 0 0 0 0 0 0 0 0 0 ...
## $ R701 : int 1 5 5 5 0 5 5 1 5 1 ...
## $ R702_A : chr "A" "A" "" "A" ...
## $ R702_B : chr "" "" "" "" ...
## $ R702_C : chr "C" "" "C" "C" ...
## $ R702_D : chr "D" "" "D" "" ...
## $ R702_X : chr "" "" "" "" ...
## $ R703 : int 1 1 3 1 0 1 3 1 3 1 ...
## $ R704 : int 0 0 5 0 0 0 5 0 0 0 ...
## $ R705 : int 1 1 0 12 0 11 0 1 1 1 ...
## $ R706 : int 2 6 0 4 0 6 0 1 5 2 ...
## $ R707 : int 30 30 0 63 0 63 0 48 36 16 ...
## $ R708 : int 42 30 0 63 0 63 0 48 36 16 ...
## $ R801 : int 1 1 1 1 1 1 1 1 1 1 ...
## $ R802 : int 1 5 1 1 5 5 5 5 1 1 ...
## $ R807_A : chr "" "" "" "" ...
## $ R807_B : chr "" "" "" "" ...
## $ R807_C : chr "" "" "" "" ...
## $ R807_X : chr "X" "X" "X" "X" ...
## $ R808 : int 5 5 1 1 1 1 1 5 5 1 ...
## $ R809_A : chr "" "" "" "" ...
## $ R809_B : chr "" "" "" "" ...
## $ R809_C : chr "" "" "" "" ...
## $ R809_D : chr "" "" "D" "D" ...
## $ R809_E : chr "" "" "" "" ...
## $ R810_A : chr "" "" "A" "A" ...
## $ R810_B : chr "" "" "B" "" ...
## $ R810_C : chr "" "" "" "C" ...
## $ R810_D : chr "" "" "" "" ...
## $ R810_E : chr "" "" "E" "" ...
## $ R810_F : logi NA NA FALSE NA NA NA ...
## $ R811_A : chr "" "" "A" "" ...
## $ R811_B : chr "" "" "" "" ...
## $ R811_C : chr "" "" "" "" ...
## $ R811_D : chr "" "" "D" "D" ...
## $ R811_E : chr "" "" "" "" ...
## $ R811_F : logi NA NA NA NA NA NA ...
## $ R811_G : chr "" "" "" "" ...
## $ R811_H : chr "" "" "" "" ...
## $ R811_I : chr "" "" "" "" ...
## $ R811_J : chr "" "" "J" "J" ...
## $ R811_K : chr "" "" "" "" ...
## $ R811_L : chr "" "" "" "" ...
## $ R812 : int 5 5 5 5 0 5 5 5 5 5 ...
## $ R901 : int 5 5 1 1 1 5 5 5 5 1 ...
## $ R902 : int 0 0 1 1 1 0 0 0 0 2 ...
## $ R903 : int 0 0 1 0 0 0 0 0 0 2 ...
## $ R904 : int 0 0 1 7 7 0 0 0 0 1 ...
## $ R905 : int 5 5 5 5 5 5 5 5 5 5 ...
## [list output truncated]Membuat Violin Chart
#membuat violin chart untuk sebaran jumlah jam kerja pekerjaan utama penduduk Jawa Barat 2022
ggplot(data_susenas, aes(x = "", y = R708)) +
geom_violin(fill = "green") +
labs(title = "Distribusi Jumlah Jam Kerja Pekerjaan Utama Penduduk Jawa Barat 2022",
x = "Frekuensi Penduduk",
y = "Jumlah Jam Kerja") +
theme_minimal()
Membuat Histogram
#membuat histogram untuk sebaran jumlah jam kerja pekerjaan utama penduduk Jawa Barat 2022
ggplot(data_susenas)+
geom_histogram(aes(x=R708,fill= "Jam Kerja" ),color="#124076", alpha=0.6)+
labs(title="Histogram Sebaran Jumlah Jam Kerja Penduduk Jawa Barat 2022")+
xlab("Jam Kerja")+
ylab("Frekuensi Penduduk")+
xlim(0,100)+
ylim(0,8000)## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.## Warning: Removed 2 rows containing missing values (`geom_bar()`).