Relational Data Set Nilai Ekspor dan Impor Migas Tahun 2021
Muhammad Ridho
2/8/2022
Nama : Muhammad Ridho
NIM : 210605110102
Kelas : Liniear Algebra (C)
Dosen Pengempu : Prof. Dr. Suhartono, M.Kom
Universitas : 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 Ekspor dan Impor Migas Tahun 2021.
Relational Data Set Nilai Ekspor dan Impor Migas 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.7
## v tidyr 1.2.0 v stringr 1.4.0
## v readr 2.1.2 v forcats 0.5.1## Warning: package 'tidyr' was built under R version 4.1.3## Warning: package 'readr' 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(883.8, 860.6, 907.9, 962.4, 968.4, 1232.1, 1009.6, 1066.8, 932.8, 1025.3, 1332.4, 1093.4),
stringsAsFactors = FALSE)
Nilai_EksporMigas## Bulan NilaiEx_2021
## 1 Januari 883.8
## 2 Februari 860.6
## 3 Maret 907.9
## 4 April 962.4
## 5 Mei 968.4
## 6 Juni 1232.1
## 7 Juli 1009.6
## 8 Agustus 1066.8
## 9 September 932.8
## 10 Oktober 1025.3
## 11 November 1332.4
## 12 Desember 1093.4Visualisasi Data Nilai Ekspor Migas Tahun 2021
plot(Nilai_EksporMigas$NilaiEx_2021,type = "l", col= "red")
Tabel Data Nilai Impor Migas Tahun 2021
Nilai_ImporMigas <- data.frame(
Bulan = c("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember"),
NilaiIm_2021 = c(1551.8, 1304.3, 2279.1, 2023.4, 2062.0, 2297.8, 1793.7, 2049.2, 1866.8, 1898.1, 3025.0, 3377.8),
stringsAsFactors = FALSE)
Nilai_ImporMigas## Bulan NilaiIm_2021
## 1 Januari 1551.8
## 2 Februari 1304.3
## 3 Maret 2279.1
## 4 April 2023.4
## 5 Mei 2062.0
## 6 Juni 2297.8
## 7 Juli 1793.7
## 8 Agustus 2049.2
## 9 September 1866.8
## 10 Oktober 1898.1
## 11 November 3025.0
## 12 Desember 3377.8Visualisasi Data Nilai Impor Migas 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 883.8 1551.8
## 2 Februari 860.6 1304.3
## 3 Maret 907.9 2279.1
## 4 April 962.4 2023.4
## 5 Mei 968.4 2062.0
## 6 Juni 1232.1 2297.8
## 7 Juli 1009.6 1793.7
## 8 Agustus 1066.8 2049.2
## 9 September 932.8 1866.8
## 10 Oktober 1025.3 1898.1
## 11 November 1332.4 3025.0
## 12 Desember 1093.4 3377.8Outer 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 883.8 1551.8
## 2 Februari 860.6 1304.3
## 3 Maret 907.9 2279.1
## 4 April 962.4 2023.4
## 5 Mei 968.4 2062.0
## 6 Juni 1232.1 2297.8
## 7 Juli 1009.6 1793.7
## 8 Agustus 1066.8 2049.2
## 9 September 932.8 1866.8
## 10 Oktober 1025.3 1898.1
## 11 November 1332.4 3025.0
## 12 Desember 1093.4 3377.81. A left joint
Leftjoins <- left_join(Nilai_EksporMigas,Nilai_ImporMigas)## Joining, by = "Bulan"Leftjoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 883.8 1551.8
## 2 Februari 860.6 1304.3
## 3 Maret 907.9 2279.1
## 4 April 962.4 2023.4
## 5 Mei 968.4 2062.0
## 6 Juni 1232.1 2297.8
## 7 Juli 1009.6 1793.7
## 8 Agustus 1066.8 2049.2
## 9 September 932.8 1866.8
## 10 Oktober 1025.3 1898.1
## 11 November 1332.4 3025.0
## 12 Desember 1093.4 3377.82. A right joint
Rightjoins <- right_join(Nilai_EksporMigas,Nilai_ImporMigas)## Joining, by = "Bulan"Rightjoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 883.8 1551.8
## 2 Februari 860.6 1304.3
## 3 Maret 907.9 2279.1
## 4 April 962.4 2023.4
## 5 Mei 968.4 2062.0
## 6 Juni 1232.1 2297.8
## 7 Juli 1009.6 1793.7
## 8 Agustus 1066.8 2049.2
## 9 September 932.8 1866.8
## 10 Oktober 1025.3 1898.1
## 11 November 1332.4 3025.0
## 12 Desember 1093.4 3377.83. A full joint
fullJoins <- full_join(Nilai_EksporMigas,Nilai_ImporMigas)## Joining, by = "Bulan"fullJoins## Bulan NilaiEx_2021 NilaiIm_2021
## 1 Januari 883.8 1551.8
## 2 Februari 860.6 1304.3
## 3 Maret 907.9 2279.1
## 4 April 962.4 2023.4
## 5 Mei 968.4 2062.0
## 6 Juni 1232.1 2297.8
## 7 Juli 1009.6 1793.7
## 8 Agustus 1066.8 2049.2
## 9 September 932.8 1866.8
## 10 Oktober 1025.3 1898.1
## 11 November 1332.4 3025.0
## 12 Desember 1093.4 3377.8Visualisasi Relational Data Set
plot(InnerJoins$NilaiEx_2021, InnerJoins$NilaiIm_2021,type = "o", col= "purple")