Relational Data Set Pada Nilai Ekspor dan Impor Migas di Tahun 2021
Noviansyah Maulana Ramadhan, Prof. Dr. Suhartono, M.Kom
4/24/2022
Universitas : Universitas Islam Negeri Maulana Malik Ibrahim Malang
Jurusan : Teknik Informatika
Pengeritan Relasional Data Set
Relational data set adalah kumpulan dari item data dengan hubungan yang telah ditentukan sebelumnya. 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.
Relational Data Set Nilai Ekspor dan Impor Migas di Tahun 2021
library(tidyverse)## Warning: package 'tidyverse' was built under R version 4.1.3## -- 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## Warning: package 'ggplot2' was built under R version 4.1.3## Warning: package 'tidyr' was built under R version 4.1.3## Warning: package 'readr' was built under R version 4.1.3## Warning: package 'purrr' was built under R version 4.1.3## Warning: package 'dplyr' was built under R version 4.1.3## Warning: package 'forcats' was built under R version 4.1.3## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()Tabel Data Nilai Ekspor Migas Tahun 2021
Nilai_EksporMigas <- data.frame(
Bulan = c("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember"),
NilaiEx_2021 = c(921.3, 854.2, 953.1, 823.4, 912.4, 1042.1, 1019.6, 1006.8, 922.3, 1135.6, 1182.1, 1103.1),
stringsAsFactors = FALSE)
Nilai_EksporMigas## Bulan NilaiEx_2021
## 1 Januari 921.3
## 2 Februari 854.2
## 3 Maret 953.1
## 4 April 823.4
## 5 Mei 912.4
## 6 Juni 1042.1
## 7 Juli 1019.6
## 8 Agustus 1006.8
## 9 September 922.3
## 10 Oktober 1135.6
## 11 November 1182.1
## 12 Desember 1103.1Visualisasi Data Nilai Ekspor Migas di Tahun 2021
plot(Nilai_EksporMigas$NilaiEx_2021,type = "l", col= "red")
Tabel Data Nilai Impor Migas di Tahun 2021
Nilai_ImporMigas <- data.frame(
Bulan = c("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember"),
NilaiIm_2021 = c(1231.8, 1324.3, 2159.1, 2123.4, 2322.0, 2697.8, 1593.7, 2149.2, 1536.8, 1988.1, 3125.0, 3277.8),
stringsAsFactors = FALSE)
Nilai_ImporMigas## Bulan NilaiIm_2021
## 1 Januari 1231.8
## 2 Februari 1324.3
## 3 Maret 2159.1
## 4 April 2123.4
## 5 Mei 2322.0
## 6 Juni 2697.8
## 7 Juli 1593.7
## 8 Agustus 2149.2
## 9 September 1536.8
## 10 Oktober 1988.1
## 11 November 3125.0
## 12 Desember 3277.8Visualisasi Data Nilai Impor Migas di Tahun 2021
plot(Nilai_ImporMigas$NilaiIm_2021,type = "l", col= "blue")
Inner Joins antara Nilai Expor dan nilai Impor di tahun 2021
InnerJoins <- Nilai_EksporMigas %>%
inner_join(Nilai_ImporMigas, by = "Bulan")
InnerJoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 921.3 1231.8
## 2 Februari 854.2 1324.3
## 3 Maret 953.1 2159.1
## 4 April 823.4 2123.4
## 5 Mei 912.4 2322.0
## 6 Juni 1042.1 2697.8
## 7 Juli 1019.6 1593.7
## 8 Agustus 1006.8 2149.2
## 9 September 922.3 1536.8
## 10 Oktober 1135.6 1988.1
## 11 November 1182.1 3125.0
## 12 Desember 1103.1 3277.8Outer Joins antara Nilai Expor dan nilai Impor di tahun 2021
1. A left joint
Leftjoins <- left_join(Nilai_EksporMigas,Nilai_ImporMigas)## Joining, by = "Bulan"## Joining, by = "Bulan"Leftjoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 921.3 1231.8
## 2 Februari 854.2 1324.3
## 3 Maret 953.1 2159.1
## 4 April 823.4 2123.4
## 5 Mei 912.4 2322.0
## 6 Juni 1042.1 2697.8
## 7 Juli 1019.6 1593.7
## 8 Agustus 1006.8 2149.2
## 9 September 922.3 1536.8
## 10 Oktober 1135.6 1988.1
## 11 November 1182.1 3125.0
## 12 Desember 1103.1 3277.82. A right joint
Rightjoins <- right_join(Nilai_EksporMigas,Nilai_ImporMigas)## Joining, by = "Bulan"## Joining, by = "Bulan"Rightjoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 921.3 1231.8
## 2 Februari 854.2 1324.3
## 3 Maret 953.1 2159.1
## 4 April 823.4 2123.4
## 5 Mei 912.4 2322.0
## 6 Juni 1042.1 2697.8
## 7 Juli 1019.6 1593.7
## 8 Agustus 1006.8 2149.2
## 9 September 922.3 1536.8
## 10 Oktober 1135.6 1988.1
## 11 November 1182.1 3125.0
## 12 Desember 1103.1 3277.83. A full joint
fullJoins <- full_join(Nilai_EksporMigas,Nilai_ImporMigas)## Joining, by = "Bulan"## Joining, by = "Bulan"fullJoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 921.3 1231.8
## 2 Februari 854.2 1324.3
## 3 Maret 953.1 2159.1
## 4 April 823.4 2123.4
## 5 Mei 912.4 2322.0
## 6 Juni 1042.1 2697.8
## 7 Juli 1019.6 1593.7
## 8 Agustus 1006.8 2149.2
## 9 September 922.3 1536.8
## 10 Oktober 1135.6 1988.1
## 11 November 1182.1 3125.0
## 12 Desember 1103.1 3277.8Visualisasi Relational Data Set
plot(InnerJoins$NilaiEx_2021, InnerJoins$NilaiIm_2021,type = "o", col= "purple")