Relational Data Set Gempa Bumi dan Tsunami di Pulau Jawa Pada Tahun 2018

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Tabel Data Terjadinya Gempa Bumi di Pulau Jawa

gempabumi <- data.frame(
  Provinsi = c("DKI Jakarta", "Banten", "Jawa Barat", "DI Yogyakarta", "Jawa Tengah", "Jawa Timur"),
  "Desa Terdampak Gempa Bumi"= c(2, 325, 1427, 69, 757, 333),
  stringsAsFactors = FALSE)
gempabumi

##        Provinsi Desa.Terdampak.Gempa.Bumi
## 1   DKI Jakarta                         2
## 2        Banten                       325
## 3    Jawa Barat                      1427
## 4 DI Yogyakarta                        69
## 5   Jawa Tengah                       757
## 6    Jawa Timur                       333

Tabel Data Terjadinya Tsunami di Pulau Jawa

tsunami <- data.frame(
  Provinsi = c("DKI Jakarta", "Banten", "Jawa Barat", "DI Yogyakarta", "Jawa Tengah", "Jawa Timur"),
  "Desa Terdampak Tsunami"= c("-", 2, 2, "-", "-", 2),
  stringsAsFactors = FALSE)
tsunami

##        Provinsi Desa.Terdampak.Tsunami
## 1   DKI Jakarta                      -
## 2        Banten                      2
## 3    Jawa Barat                      2
## 4 DI Yogyakarta                      -
## 5   Jawa Tengah                      -
## 6    Jawa Timur                      2

Menggabungkan Data Provinsi di Pulau Jawa dengan Data Banyak Desa yang Terdampak

library(dplyr)
datagabungan <- merge(
  x = gempabumi,
  y = tsunami,
  by = 'Provinsi',
  all = TRUE
)
datagabungan

##        Provinsi Desa.Terdampak.Gempa.Bumi Desa.Terdampak.Tsunami
## 1        Banten                       325                      2
## 2 DI Yogyakarta                        69                      -
## 3   DKI Jakarta                         2                      -
## 4    Jawa Barat                      1427                      2
## 5   Jawa Tengah                       757                      -
## 6    Jawa Timur                       333                      2

Inner Joins antara Data Provinsi di Pulau Jawa dengan Data Banyak Desa yang Terdampak

InnerJoins <- gempabumi %>% 
  inner_join(tsunami, by = "Provinsi")
InnerJoins

##        Provinsi Desa.Terdampak.Gempa.Bumi Desa.Terdampak.Tsunami
## 1   DKI Jakarta                         2                      -
## 2        Banten                       325                      2
## 3    Jawa Barat                      1427                      2
## 4 DI Yogyakarta                        69                      -
## 5   Jawa Tengah                       757                      -
## 6    Jawa Timur                       333                      2

Outer Joins antara Data Provinsi di Pulau Jawa dengan Data Banyak desa yang Terdampak

1. A Left Join

leftjoin <- left_join(gempabumi,tsunami)

## Joining, by = "Provinsi"

leftjoin

##        Provinsi Desa.Terdampak.Gempa.Bumi Desa.Terdampak.Tsunami
## 1   DKI Jakarta                         2                      -
## 2        Banten                       325                      2
## 3    Jawa Barat                      1427                      2
## 4 DI Yogyakarta                        69                      -
## 5   Jawa Tengah                       757                      -
## 6    Jawa Timur                       333                      2

2. A Right Join

rightjoin <- right_join(gempabumi,tsunami)

## Joining, by = "Provinsi"

rightjoin

##        Provinsi Desa.Terdampak.Gempa.Bumi Desa.Terdampak.Tsunami
## 1   DKI Jakarta                         2                      -
## 2        Banten                       325                      2
## 3    Jawa Barat                      1427                      2
## 4 DI Yogyakarta                        69                      -
## 5   Jawa Tengah                       757                      -
## 6    Jawa Timur                       333                      2

3. A FUll Join

fulljoin <- full_join(gempabumi,tsunami)

## Joining, by = "Provinsi"

fulljoin

##        Provinsi Desa.Terdampak.Gempa.Bumi Desa.Terdampak.Tsunami
## 1   DKI Jakarta                         2                      -
## 2        Banten                       325                      2
## 3    Jawa Barat                      1427                      2
## 4 DI Yogyakarta                        69                      -
## 5   Jawa Tengah                       757                      -
## 6    Jawa Timur                       333                      2