Relational Data Set Mahasiswa Semester 2 Teknik Informatika UIN Malik Ibrahim Malang Tahun 2022

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()

1. Nilai ekspor

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.35955

plot(Nilai_Ekspor$NilaiExpor,type = "l", col= "red")

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.35202

plot(Nilai_Impor$NilaiImpor,type = "l", col= "blue")

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.35202

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.35202

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.35202

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.35202