Relational Data Set Nilai Ekspor dan Impor Tahun 2021
Prasetyo Putra Pratama, Prof Dr Suhartono M.kom
21/2/2022
Lembaga = Universitas Islam Negeri Maulana Malik Ibrahim Malang
Jurusan = Teknik Informatika
Pengertian Relational Data Set
Relational data set merupakan kumpulan item data dengan hubungan yang telah ditentukan sebelumnya. Berbagai item ini disusun menjadi satu set tabel dengan kolom dan baris. Tabel digunakan untuk menyimpan informasi tentang objek yang akan direpresentasikan dalam database. Tiap kolom pada tabel memuat jenis data tertentu dan bidang menyimpan nilai aktual atribut. Baris pada tabel merepresentasikan kumpulan nilai terkait dari satu objek atau entitas. Tiap baris pada tabel dapat ditandai dengan pengidentifikasi unik yang disebut kunci utama, dan baris di antara beberapa tabel dapat dibuat saling terkait menggunakan kunci asing. Data ini dapat diakses dengan berbagai cara tanpa menyusun ulang tabel basis data itu sendiri.
Berikut relational data set Nilai dan Impor Tahun 2021.
Relational Data Set Nilai Ekspor dan Impor Tahun 2021
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 Nilai Ekspor Tahun 2021
Nilai_Ekspor <- data.frame(
Bulan = c("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember"),
NilaiExpor2021 = c(15.293665753, 15.256165841, 18.354446838, 18.490725511, 16.932924239, 18.542418031, 19.385795116, 21.427076856, 20.605585917, 22.029688070, 22.844428637, 22.359545389),
stringsAsFactors = FALSE)
Nilai_Ekspor## Bulan NilaiExpor2021
## 1 Januari 15.29367
## 2 Februari 15.25617
## 3 Maret 18.35445
## 4 April 18.49073
## 5 Mei 16.93292
## 6 Juni 18.54242
## 7 Juli 19.38580
## 8 Agustus 21.42708
## 9 September 20.60559
## 10 Oktober 22.02969
## 11 November 22.84443
## 12 Desember 22.35955Visualisasi Data Nilai Ekspor Tahun 2021
plot(Nilai_Ekspor$NilaiExpor,type = "l", col= "black")
Tabel Data Nilai Impor Tahun 2021
Nilai_Impor <- data.frame(
Bulan = c("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember"),
NilaiImpor2021 = c(13.329901020, 13.264974634, 16.787511490, 16.204338764, 14.234815276, 17.218457483, 15.263122650, 16.678886850, 16.234148586, 16.293616090, 19.328188076, 21.352018156),
stringsAsFactors = FALSE)
Nilai_Impor## Bulan NilaiImpor2021
## 1 Januari 13.32990
## 2 Februari 13.26497
## 3 Maret 16.78751
## 4 April 16.20434
## 5 Mei 14.23482
## 6 Juni 17.21846
## 7 Juli 15.26312
## 8 Agustus 16.67889
## 9 September 16.23415
## 10 Oktober 16.29362
## 11 November 19.32819
## 12 Desember 21.35202Visualisasi Data Nilai Impor Tahun 2021
plot(Nilai_Impor$NilaiImpor,type = "l", col= "blue")
Inner Joins antara Nilai Expor dan nilai Impor di tahun 2021
InnerJoins <- Nilai_Ekspor %>%
inner_join(Nilai_Impor, by = "Bulan")
InnerJoins## Bulan NilaiExpor2021 NilaiImpor2021
## 1 Januari 15.29367 13.32990
## 2 Februari 15.25617 13.26497
## 3 Maret 18.35445 16.78751
## 4 April 18.49073 16.20434
## 5 Mei 16.93292 14.23482
## 6 Juni 18.54242 17.21846
## 7 Juli 19.38580 15.26312
## 8 Agustus 21.42708 16.67889
## 9 September 20.60559 16.23415
## 10 Oktober 22.02969 16.29362
## 11 November 22.84443 19.32819
## 12 Desember 22.35955 21.35202Outer Joins antara Nilai Expor dan nilai Impor di tahun 2021
1. A left joint
Leftjoins <- left_join(Nilai_Ekspor,Nilai_Impor)## Joining, by = "Bulan"Leftjoins## Bulan NilaiExpor2021 NilaiImpor2021
## 1 Januari 15.29367 13.32990
## 2 Februari 15.25617 13.26497
## 3 Maret 18.35445 16.78751
## 4 April 18.49073 16.20434
## 5 Mei 16.93292 14.23482
## 6 Juni 18.54242 17.21846
## 7 Juli 19.38580 15.26312
## 8 Agustus 21.42708 16.67889
## 9 September 20.60559 16.23415
## 10 Oktober 22.02969 16.29362
## 11 November 22.84443 19.32819
## 12 Desember 22.35955 21.352022. A right joint
Rightjoins <- right_join(Nilai_Ekspor,Nilai_Impor)## Joining, by = "Bulan"Rightjoins## Bulan NilaiExpor2021 NilaiImpor2021
## 1 Januari 15.29367 13.32990
## 2 Februari 15.25617 13.26497
## 3 Maret 18.35445 16.78751
## 4 April 18.49073 16.20434
## 5 Mei 16.93292 14.23482
## 6 Juni 18.54242 17.21846
## 7 Juli 19.38580 15.26312
## 8 Agustus 21.42708 16.67889
## 9 September 20.60559 16.23415
## 10 Oktober 22.02969 16.29362
## 11 November 22.84443 19.32819
## 12 Desember 22.35955 21.352023. A full joint
fullJoins <- full_join(Nilai_Ekspor,Nilai_Impor)## Joining, by = "Bulan"fullJoins## Bulan NilaiExpor2021 NilaiImpor2021
## 1 Januari 15.29367 13.32990
## 2 Februari 15.25617 13.26497
## 3 Maret 18.35445 16.78751
## 4 April 18.49073 16.20434
## 5 Mei 16.93292 14.23482
## 6 Juni 18.54242 17.21846
## 7 Juli 19.38580 15.26312
## 8 Agustus 21.42708 16.67889
## 9 September 20.60559 16.23415
## 10 Oktober 22.02969 16.29362
## 11 November 22.84443 19.32819
## 12 Desember 22.35955 21.35202Visualisasi Relational Data Set
plot(InnerJoins$NilaiExpor2021, InnerJoins$NilaiImpor2021,type = "o", col= "brown")