Visualisasi Besaran
Beatrics Sahcayani Purba | X1004232086
2024-03-05
Data yang digunakan adalah data Susenas KOR Individu Tahun 2022 Bagian Pertama kolom R1108. Data ini berisikan Frekuensi Penduduk Jawa Barat Menjalani Rawat Jalan pada tahun 2022. Visualisasi yang diberikan memuat frekuensi rawat jalan penduduk Jawa Barat. Jenis visualisasi yang digunakan adalah Bar Chart dan Lollipop 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
data_susenas <- read.csv("D:/visdat/susenas.csv", header = TRUE, sep=",")
#menampilkan isi dari file yang sudah dieskpor
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 Bar Chart
#membuat bar chart frekuensi rawat jalan penduduk jawa barat 2022
ggplot(data_susenas, aes(x = R1108)) +
geom_bar(fill = "steelblue") +
labs(title = "Frekuensi Rawat Jalan Penduduk Jawa Barat 2022", x = "Frekuensi", y = "Jumlah Penduduk") +
theme_classic() +
xlim(0,5) +
ylim(0,8000)## Warning: Removed 113 rows containing non-finite values (`stat_count()`).## Warning: Removed 2 rows containing missing values (`geom_bar()`).
coord_flip()## <ggproto object: Class CoordFlip, CoordCartesian, Coord, gg>
## aspect: function
## backtransform_range: function
## clip: on
## default: FALSE
## distance: function
## expand: TRUE
## is_free: function
## is_linear: function
## labels: function
## limits: list
## modify_scales: function
## range: function
## render_axis_h: function
## render_axis_v: function
## render_bg: function
## render_fg: function
## setup_data: function
## setup_layout: function
## setup_panel_guides: function
## setup_panel_params: function
## setup_params: function
## train_panel_guides: function
## transform: function
## super: <ggproto object: Class CoordFlip, CoordCartesian, Coord, gg>Membuat Lollipop Chart
#membuat lolipop chart Frekuensi Rawat Jalan
data_susenas %>%
count(R1108) %>%
arrange(desc(n)) %>% # gunakan arrange(n) untuk mengurutkan sebaliknya
ggplot() +
geom_segment(aes(x = fct_reorder(as.factor(R1108), n), xend = fct_reorder(as.factor(R1108), n), y = 0, yend = n), color = "green") +
geom_point(aes(x = fct_reorder(as.factor(R1108), n), y = n), color = "red", size = 2) +
scale_y_continuous(expand = c(0, 0)) +
coord_flip() +
ggtitle("Frekuensi Rawat Jalan") +
xlab("Frekuensi Rawat Jalan") +
ylab("Banyak Penduduk") +
theme_light() +
theme(plot.title = element_text(hjust = 0.5))