IMPORT DATA

library(readr)
## Warning: package 'readr' was built under R version 4.3.2
Data3 <- read_csv("E:/SMT 4/Visdat/2023 Maret JABAR - SUSENAS KOR Rumah Tangga.csv")
## New names:
## Rows: 25890 Columns: 199
## ── Column specification
## ──────────────────────────────────────────────────────── Delimiter: "," chr
## (18): R2002_A, R2002_B, R2002_C, R2002_D, R2204C_A, R2204C_B, R2204C_C,... dbl
## (180): ...1, URUT, PSU, SSU, WI1, WI2, R101, R102, R105, NUINFORT, R1701... lgl
## (1): R2204C_F
## ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## • `` -> `...1`
Data4 <- read.csv("E:/SMT 4/Visdat/2023 Maret JABAR - SUSENAS KP BP 4.1.csv")

Visualisasi Besaran

Bar Chart

Pada visualisasi Bar Chart ini ingin dilihat pemasukan apa yang mayoritas masyarakat Provinsi Jawa Barat jadikan sebagai sumber terbesar pembiayaan rumah tangga pada tahun 2023. Berikut penjabaran kode sumber pemasukan masyarakat Provinsi Jawab Barat.

1 : Anggota rumah tangga yang bekerja

2 : Kiriman uang/barang

3 : Investasi

4 : Pensiunan

library(dplyr)
## Warning: package 'dplyr' was built under R version 4.3.2
## 
## 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(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.2
library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.3.2
## Warning: package 'tibble' was built under R version 4.3.2
## Warning: package 'tidyr' was built under R version 4.3.2
## Warning: package 'purrr' was built under R version 4.3.2
## Warning: package 'stringr' was built under R version 4.3.2
## Warning: package 'forcats' was built under R version 4.3.2
## Warning: package 'lubridate' was built under R version 4.3.2
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.0
## ── 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
Data3 %>% count(R2101A) %>%
  ggplot()+
  geom_col(aes(x=fct_reorder(as.factor(R2101A),n),y=n), fill="orchid3", 
           width=0.4) +
    scale_y_continuous(expand = c(0,0))+
    coord_flip() +
    ggtitle("Sumber Terbesar Pembiayaan RT") +
    xlab("Sumber Terbesar Pembiayaan Rumah tangga") +
    ylab("Jumlah Responden") +
    theme_classic() +
    theme(plot.title = element_text(hjust = .5, size = 30))

Dari Bar Chart di atas dapat dikeahui urutan sumber pemasukan dari yang paling banyak dijadikan sumber terbesar pembiayaan rumah tangga oleh masyarakat Provinsi Jawa Barat pada tahun 2023 adalah (1) Anggota RT yang bekerja, (2) Kiriman uang/barang, (4) Investasi, dan (3) Pensiunan.

Lollipop Chart

Pada visualisasi Lollipop Chart ini ingin dilihat berapa kg daging sapi yang banyak masyarakat Kota Bekasi konsumsi dalam seminggu pada tahun 2023.

library(dplyr)
library(ggplot2)
library(tidyverse)
Sapi1 <- Data4 %>% filter(KODE == 56)
Sapi2 <- Sapi1 %>% filter(R102 == 75)
Sapi2 %>%
  count(B41K5) %>%
  arrange(desc(n)) %>%
  ggplot() +
  geom_segment(aes(x = fct_reorder(as.factor(B41K5), n), xend = fct_reorder(as.factor(B41K5), n), y = 0, yend = n), color = "darkorange2") +
  geom_point(aes(x = fct_reorder(as.factor(B41K5), n), y = n), color = "greenyellow", size = 2) +
  scale_y_continuous(expand = c(0, 0)) +
  coord_flip() +
  ggtitle("Konsumsi Daging Sapi di Kota Bekasi") +
  xlab("Jumlah Daging Sapi (Kg)") +
  ylab("Jumlah Responden") +
  theme_light() +
  theme(plot.title = element_text(hjust = 0.5))

Berdasarkan Lollipop Chart di atas, dapat diketahui bahwa masyarakat Kota Bekasi paling banyak mengonsumsi daging sapi adalah 0.5 kg dalam seminggu pada tahun 2023.

Visualisasi Sebaran

Boxplot

Pada visualisasi Boxplot kali ini ingin dilihat bagaimana sebaran konsumsi Beras masyarakat Provinsi Jawa Barat pada tahun 2023.

Beras <- Data4 %>% filter(KODE == 2)
library(ggplot2)
ggplot(Beras)+
  geom_boxplot(aes(y=B41K5))+
  labs(title="Sebaran Konsumsi Beras") +
  ylab("Konumsi Beras (Kg)")

Berdasarkan Boxplot di atas, didapatkan bahwa rata-rata konsumsi Beras masyarakat Provinsi Jawa Barat pada tahun 2023 adalah sebanyak kurang lebih 4 kg dalam seminggu. Selain itu, diketahui juga terdapat pencilan dengan nilai 50 kg beras dalam seminggu.

Violin Plot

Pada visualisasi Violin Plot ini ingin diketahui sebaran konsumsi Udang Lobster oleh masyarakat Provinsi Jawa Barat dalam seminggu pada tahun 2023.

library(tidyverse)
UdangLobster <- Data4 %>% filter(KODE == 37)
library(ggplot2)
ggplot(UdangLobster, aes(x = "", y = B41K5)) +
  geom_violin(fill = "darkolivegreen3") +
  labs(title = "Distribusi Konsumsi Udang Lobster",
       x = NULL,
       y = "Jumlah Konsumsi Udang Lobster") +
  theme_minimal()

Berdasarkan Violin Plot di atas, diketahui bahwa mayoritas masyarakat Provinsi Jawa Barat mengonsumsi Udang Lobster sebanyak 0.25 kg dan 0.5 kg dalam seminggu pada tahun 2023.

Visualisasi Komposisi

Treemap

Pada visualisasi Treemap ini ingin dilihat banyaknya konsumsi Lele masyarakat Provinsi Jawa Barat dalam seminggu pada tahun 2023 berdasarkan wilayah Kab/kota dan jumlah anggota rumah tangga.

Lele <- Data4 %>% filter(KODE == 30)
library(treemap)
## Warning: package 'treemap' was built under R version 4.3.2
treemap(Lele, 
        index=c("R102", "R301"), 
        vSize="B41K5",
        algorithm="pivotSize",
        palette="RdYlBu",
        title="Konsumsi Lele Berdasarkan Kab/Kota dan Jml Anggota RT",
        fontsize.title=15,
        fontsize.labels=12,
        fontcolor.labels="white")

Berdasarkan Treemap di atas, diketahui bahwa wilayah Kab/Kota yang paling banyak mengonsumsi Lele adalah Kab/Kota dengan kode 75 (Kota Bekasi) dengan jumlah anggota rumah tangga 4 orang. Wilayah Kab/Kota berikutnya adalah wilayah dengan kode 76 (Kota Depok) dengan jumlah anggota rumah tangga 4 orang dan wilayah dengan kode 16 (Kabupaten Bekasi) dengan jumlah anggota rumah tangga 4.

Mosaic Plot

Pada visualisasi Mosaic Plot ini ingin dilihat konsumsi Tuna masyarakat Provinsi Jawa Barat dalam seminggu pada tahun 2023 berdasarkan wilayah Perkotaan(1)/Pedesaan(2).

Tuna <- Data4 %>% filter(KODE == 19)
library(ggplot2)
library(ggmosaic)
## Warning: package 'ggmosaic' was built under R version 4.3.2
ggplot(Tuna) +
  geom_mosaic(aes(x = product(B41K5, R105), fill = R105 )) +
  scale_fill_brewer(palette = "Set2") +
  labs(title = "Konsumsi Tuna di Perkotaan & Pedesaan", 
       x = "Wilayah", y = "Jumlah Konsumsi Tuna (Kg)") +
  theme_classic()
## Warning: `unite_()` was deprecated in tidyr 1.2.0.
## ℹ Please use `unite()` instead.
## ℹ The deprecated feature was likely used in the ggmosaic package.
##   Please report the issue at <https://github.com/haleyjeppson/ggmosaic>.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Berdasarkan Mosaic Plot di atas, diketahui bahwa Lele paling banyak dikonsumsi oleh masyarakat Provinsi Jawa Barat pada tahun 2023 di wilayah perkotaan dengan jumlah konsumsi terbanyaknya adalah 0.5 kg dalam seminggu.