Universitas : UIN Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

Tabel Data Mahasiswa

Tabel Data NIM dan Nama Mahasiswa

library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.1.2
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.4     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 'tidyr' was built under R version 4.1.2
## Warning: package 'readr' was built under R version 4.1.2
## Warning: package 'purrr' was built under R version 4.1.2
## Warning: package 'dplyr' was built under R version 4.1.2
## Warning: package 'forcats' was built under R version 4.1.2
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
Mahasiswa <- data.frame( 
  NIM = c(210605110026, 210605110027, 210605110028, 210605110029, 210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035), 'Nama Mahasiswa' = c("ENGGARANI WAHYU EKAPUTRI", "ALDIANA DAMAYANTI", "M. TAZKIA IKSHANUL MA'ARIF", "JEA SYAFRIDA NURLAILI", "SITI ROFIDATUS SAIDAH", "DWI PUTRI ADILAH", "MUTIARA APRILLIA DZAKIROH", "MUHAMMAD SULTHON KHAIRUDIN", "HILMI ZUHRI ADI BRATA", "MUHAMMAD ZEA AL GHIFARI"),
stringsAsFactors = FALSE)
Mahasiswa
##             NIM             Nama.Mahasiswa
## 1  210605110026   ENGGARANI WAHYU EKAPUTRI
## 2  210605110027          ALDIANA DAMAYANTI
## 3  210605110028 M. TAZKIA IKSHANUL MA'ARIF
## 4  210605110029      JEA SYAFRIDA NURLAILI
## 5  210605110030      SITI ROFIDATUS SAIDAH
## 6  210605110031           DWI PUTRI ADILAH
## 7  210605110032  MUTIARA APRILLIA DZAKIROH
## 8  210605110033 MUHAMMAD SULTHON KHAIRUDIN
## 9  210605110034      HILMI ZUHRI ADI BRATA
## 10 210605110035    MUHAMMAD ZEA AL GHIFARI

Tabel Data Gender Mahasiswa

Gender <- data.frame(
   NIM = c(210605110026, 210605110027, 210605110028, 210605110029, 210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035), Gender = c("Putri", "Putri", "Putra", "Putri", "Putri", "Putri", "Putri", "Putra", "Putra", "Putra"),
stringsAsFactors = FALSE)
Gender
##             NIM Gender
## 1  210605110026  Putri
## 2  210605110027  Putri
## 3  210605110028  Putra
## 4  210605110029  Putri
## 5  210605110030  Putri
## 6  210605110031  Putri
## 7  210605110032  Putri
## 8  210605110033  Putra
## 9  210605110034  Putra
## 10 210605110035  Putra

Tabel Data Gabungan NIM, Nama, dan Gender

library(dplyr)
mahasiswagenap1 <- merge(
  x = Mahasiswa,
  y = Gender,
  by = 'NIM',
  all = TRUE
)
mahasiswagenap1
##             NIM             Nama.Mahasiswa Gender
## 1  210605110026   ENGGARANI WAHYU EKAPUTRI  Putri
## 2  210605110027          ALDIANA DAMAYANTI  Putri
## 3  210605110028 M. TAZKIA IKSHANUL MA'ARIF  Putra
## 4  210605110029      JEA SYAFRIDA NURLAILI  Putri
## 5  210605110030      SITI ROFIDATUS SAIDAH  Putri
## 6  210605110031           DWI PUTRI ADILAH  Putri
## 7  210605110032  MUTIARA APRILLIA DZAKIROH  Putri
## 8  210605110033 MUHAMMAD SULTHON KHAIRUDIN  Putra
## 9  210605110034      HILMI ZUHRI ADI BRATA  Putra
## 10 210605110035    MUHAMMAD ZEA AL GHIFARI  Putra

Tabel Data Daerah Tempat Lahir

TempatLahir <- data.frame(
   NIM = c(210605110026, 210605110027, 210605110028, 210605110029, 210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035), Tempat.Lahir = c("Nganjuk", "Bekasi", "Kediri", "Blitar", "Malang", "Senuro", "Pasuruan", "Bekasi", "Madiun", "Mataram"),
stringsAsFactors = FALSE)
TempatLahir
##             NIM Tempat.Lahir
## 1  210605110026      Nganjuk
## 2  210605110027       Bekasi
## 3  210605110028       Kediri
## 4  210605110029       Blitar
## 5  210605110030       Malang
## 6  210605110031       Senuro
## 7  210605110032     Pasuruan
## 8  210605110033       Bekasi
## 9  210605110034       Madiun
## 10 210605110035      Mataram

Tabel Data Gabungan NIM, Nama, Gender, dan Tempat Lahir

library(dplyr)
mahasiswagenap2 <- merge(
  x = mahasiswagenap1,
  y = TempatLahir,
  by = 'NIM',
  all = TRUE
  )
mahasiswagenap2
##             NIM             Nama.Mahasiswa Gender Tempat.Lahir
## 1  210605110026   ENGGARANI WAHYU EKAPUTRI  Putri      Nganjuk
## 2  210605110027          ALDIANA DAMAYANTI  Putri       Bekasi
## 3  210605110028 M. TAZKIA IKSHANUL MA'ARIF  Putra       Kediri
## 4  210605110029      JEA SYAFRIDA NURLAILI  Putri       Blitar
## 5  210605110030      SITI ROFIDATUS SAIDAH  Putri       Malang
## 6  210605110031           DWI PUTRI ADILAH  Putri       Senuro
## 7  210605110032  MUTIARA APRILLIA DZAKIROH  Putri     Pasuruan
## 8  210605110033 MUHAMMAD SULTHON KHAIRUDIN  Putra       Bekasi
## 9  210605110034      HILMI ZUHRI ADI BRATA  Putra       Madiun
## 10 210605110035    MUHAMMAD ZEA AL GHIFARI  Putra      Mataram

Data Set dengan Key NIM dan Value Gender

Gender <- data.frame(
   NIM = c(210605110026, 210605110027, 210605110028, 210605110029, 210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110036), gender = c("Putri", "Putri", "Putra", "Putri", "Putri", "Putri", "Putri", "Putra", "Putra", "Putra"),
stringsAsFactors = FALSE)
Gender
##             NIM gender
## 1  210605110026  Putri
## 2  210605110027  Putri
## 3  210605110028  Putra
## 4  210605110029  Putri
## 5  210605110030  Putri
## 6  210605110031  Putri
## 7  210605110032  Putri
## 8  210605110033  Putra
## 9  210605110034  Putra
## 10 210605110036  Putra

Penerapan Data Set Inner Join

InnerJoin <- Mahasiswa %>%
  inner_join(Gender, by = "NIM")
InnerJoin
##            NIM             Nama.Mahasiswa gender
## 1 210605110026   ENGGARANI WAHYU EKAPUTRI  Putri
## 2 210605110027          ALDIANA DAMAYANTI  Putri
## 3 210605110028 M. TAZKIA IKSHANUL MA'ARIF  Putra
## 4 210605110029      JEA SYAFRIDA NURLAILI  Putri
## 5 210605110030      SITI ROFIDATUS SAIDAH  Putri
## 6 210605110031           DWI PUTRI ADILAH  Putri
## 7 210605110032  MUTIARA APRILLIA DZAKIROH  Putri
## 8 210605110033 MUHAMMAD SULTHON KHAIRUDIN  Putra
## 9 210605110034      HILMI ZUHRI ADI BRATA  Putra

Penerapan Data Set Outer Join

1. Left Join

leftjoin <- left_join(Mahasiswa,Gender)
## Joining, by = "NIM"
leftjoin
##             NIM             Nama.Mahasiswa gender
## 1  210605110026   ENGGARANI WAHYU EKAPUTRI  Putri
## 2  210605110027          ALDIANA DAMAYANTI  Putri
## 3  210605110028 M. TAZKIA IKSHANUL MA'ARIF  Putra
## 4  210605110029      JEA SYAFRIDA NURLAILI  Putri
## 5  210605110030      SITI ROFIDATUS SAIDAH  Putri
## 6  210605110031           DWI PUTRI ADILAH  Putri
## 7  210605110032  MUTIARA APRILLIA DZAKIROH  Putri
## 8  210605110033 MUHAMMAD SULTHON KHAIRUDIN  Putra
## 9  210605110034      HILMI ZUHRI ADI BRATA  Putra
## 10 210605110035    MUHAMMAD ZEA AL GHIFARI   <NA>

2. Right Join

rightjoin <- right_join(Mahasiswa,Gender)
## Joining, by = "NIM"
rightjoin
##             NIM             Nama.Mahasiswa gender
## 1  210605110026   ENGGARANI WAHYU EKAPUTRI  Putri
## 2  210605110027          ALDIANA DAMAYANTI  Putri
## 3  210605110028 M. TAZKIA IKSHANUL MA'ARIF  Putra
## 4  210605110029      JEA SYAFRIDA NURLAILI  Putri
## 5  210605110030      SITI ROFIDATUS SAIDAH  Putri
## 6  210605110031           DWI PUTRI ADILAH  Putri
## 7  210605110032  MUTIARA APRILLIA DZAKIROH  Putri
## 8  210605110033 MUHAMMAD SULTHON KHAIRUDIN  Putra
## 9  210605110034      HILMI ZUHRI ADI BRATA  Putra
## 10 210605110036                       <NA>  Putra

3. Full Join

fulljoin <- full_join(Mahasiswa,Gender)
## Joining, by = "NIM"
fulljoin
##             NIM             Nama.Mahasiswa gender
## 1  210605110026   ENGGARANI WAHYU EKAPUTRI  Putri
## 2  210605110027          ALDIANA DAMAYANTI  Putri
## 3  210605110028 M. TAZKIA IKSHANUL MA'ARIF  Putra
## 4  210605110029      JEA SYAFRIDA NURLAILI  Putri
## 5  210605110030      SITI ROFIDATUS SAIDAH  Putri
## 6  210605110031           DWI PUTRI ADILAH  Putri
## 7  210605110032  MUTIARA APRILLIA DZAKIROH  Putri
## 8  210605110033 MUHAMMAD SULTHON KHAIRUDIN  Putra
## 9  210605110034      HILMI ZUHRI ADI BRATA  Putra
## 10 210605110035    MUHAMMAD ZEA AL GHIFARI   <NA>
## 11 210605110036                       <NA>  Putra

Referensi

https://rpubs.com/suhartono-uinmaliki/relational