Contoh Relational Data Set dari Beberapa Mahasiswa Teknik Informatika UIN Maulana Malik Ibrahim Malang Angkatan 2021

Mata Kuliah : Linear Algebra (C)

Dosen Pengampu : Prof. Dr. Suhartono, M.Kom

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Fakultas : Sains dan Teknologi

Jurusan : Teknik Informatika

NIM : 210605110034

Tabel Data Mahasiswa Teknik Informatika

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

## Warning: package 'tibble' was built under R version 4.1.2

## 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(210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035, 210605110036, 2106051100137, 210605110038, 210605110039, 210605110040, 210605110041, 210605110042, 210605110043, 210605110044), 'Nama Mahasiswa' = c("Siti Rofidatus Saidah", "Dwi Putri Adilah", "Mutiara Aprilia Dzakiroh", "Muhammad Sulthon Khairudin", "Hilmi Zuhri Adi Brata", "Muhammad Zea Al Ghifari", "Hamzah Faizal Asyhari", "Kholilur Rohman", "Vivin Octavia Cahyani", "Ade Ray", "Muhammad Ihya' Ulumuddin Al Hazmi", "Rizqy Alfajri", "Hajratul Aswad", "Arvin Azaria Munsyi", "Fitria Susanti"),
stringsAsFactors = FALSE)
Mahasiswa

##             NIM                    Nama.Mahasiswa
## 1  2.106051e+11             Siti Rofidatus Saidah
## 2  2.106051e+11                  Dwi Putri Adilah
## 3  2.106051e+11          Mutiara Aprilia Dzakiroh
## 4  2.106051e+11        Muhammad Sulthon Khairudin
## 5  2.106051e+11             Hilmi Zuhri Adi Brata
## 6  2.106051e+11           Muhammad Zea Al Ghifari
## 7  2.106051e+11             Hamzah Faizal Asyhari
## 8  2.106051e+12                   Kholilur Rohman
## 9  2.106051e+11             Vivin Octavia Cahyani
## 10 2.106051e+11                           Ade Ray
## 11 2.106051e+11 Muhammad Ihya' Ulumuddin Al Hazmi
## 12 2.106051e+11                     Rizqy Alfajri
## 13 2.106051e+11                    Hajratul Aswad
## 14 2.106051e+11               Arvin Azaria Munsyi
## 15 2.106051e+11                    Fitria Susanti

Tabel Data Gender Mahasiswa

Gender <- data.frame(
   NIM = c(210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035, 210605110036, 210605110037, 210605110038, 210605110039, 210605110040, 210605110041, 210605110042, 210605110043, 210605110044), Gender = c("Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Laki-laki", "Laki-laki", "Laki-laki", "Laki-laki", "Perempuan", "Laki-laki", "Laki-laki", "Laki-laki", "Perempuan", "Laki-laki", "Perempuan"),
stringsAsFactors = FALSE)
Gender

##             NIM    Gender
## 1  210605110030 Perempuan
## 2  210605110031 Perempuan
## 3  210605110032 Perempuan
## 4  210605110033 Laki-laki
## 5  210605110034 Laki-laki
## 6  210605110035 Laki-laki
## 7  210605110036 Laki-laki
## 8  210605110037 Laki-laki
## 9  210605110038 Perempuan
## 10 210605110039 Laki-laki
## 11 210605110040 Laki-laki
## 12 210605110041 Laki-laki
## 13 210605110042 Perempuan
## 14 210605110043 Laki-laki
## 15 210605110044 Perempuan

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  2.106051e+11             Siti Rofidatus Saidah Perempuan
## 2  2.106051e+11                  Dwi Putri Adilah Perempuan
## 3  2.106051e+11          Mutiara Aprilia Dzakiroh Perempuan
## 4  2.106051e+11        Muhammad Sulthon Khairudin Laki-laki
## 5  2.106051e+11             Hilmi Zuhri Adi Brata Laki-laki
## 6  2.106051e+11           Muhammad Zea Al Ghifari Laki-laki
## 7  2.106051e+11             Hamzah Faizal Asyhari Laki-laki
## 8  2.106051e+11                              <NA> Laki-laki
## 9  2.106051e+11             Vivin Octavia Cahyani Perempuan
## 10 2.106051e+11                           Ade Ray Laki-laki
## 11 2.106051e+11 Muhammad Ihya' Ulumuddin Al Hazmi Laki-laki
## 12 2.106051e+11                     Rizqy Alfajri Laki-laki
## 13 2.106051e+11                    Hajratul Aswad Perempuan
## 14 2.106051e+11               Arvin Azaria Munsyi Laki-laki
## 15 2.106051e+11                    Fitria Susanti Perempuan
## 16 2.106051e+12                   Kholilur Rohman      <NA>

Tabel Data Daerah Tempat Lahir

TempatLahir <- data.frame(
   NIM = c(210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035, 210605110036, 210605110037, 210605110038, 210605110039, 210605110040, 210605110041, 210605110042, 210605110043, 210605110044),
'Tempat Lahir' = c("Malang", "Senuro", "Pasuruan", "Bekasi", "Madiun", "Mataram", "Malang", "Probolinggo", "Grobogan", "Probolinggo", "Lamongan", "Duri", "Samili", "Sampang", "Bangkalan"),
stringsAsFactors = FALSE)
TempatLahir

##             NIM Tempat.Lahir
## 1  210605110030       Malang
## 2  210605110031       Senuro
## 3  210605110032     Pasuruan
## 4  210605110033       Bekasi
## 5  210605110034       Madiun
## 6  210605110035      Mataram
## 7  210605110036       Malang
## 8  210605110037  Probolinggo
## 9  210605110038     Grobogan
## 10 210605110039  Probolinggo
## 11 210605110040     Lamongan
## 12 210605110041         Duri
## 13 210605110042       Samili
## 14 210605110043      Sampang
## 15 210605110044    Bangkalan

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  2.106051e+11             Siti Rofidatus Saidah Perempuan       Malang
## 2  2.106051e+11                  Dwi Putri Adilah Perempuan       Senuro
## 3  2.106051e+11          Mutiara Aprilia Dzakiroh Perempuan     Pasuruan
## 4  2.106051e+11        Muhammad Sulthon Khairudin Laki-laki       Bekasi
## 5  2.106051e+11             Hilmi Zuhri Adi Brata Laki-laki       Madiun
## 6  2.106051e+11           Muhammad Zea Al Ghifari Laki-laki      Mataram
## 7  2.106051e+11             Hamzah Faizal Asyhari Laki-laki       Malang
## 8  2.106051e+11                              <NA> Laki-laki  Probolinggo
## 9  2.106051e+11             Vivin Octavia Cahyani Perempuan     Grobogan
## 10 2.106051e+11                           Ade Ray Laki-laki  Probolinggo
## 11 2.106051e+11 Muhammad Ihya' Ulumuddin Al Hazmi Laki-laki     Lamongan
## 12 2.106051e+11                     Rizqy Alfajri Laki-laki         Duri
## 13 2.106051e+11                    Hajratul Aswad Perempuan       Samili
## 14 2.106051e+11               Arvin Azaria Munsyi Laki-laki      Sampang
## 15 2.106051e+11                    Fitria Susanti Perempuan    Bangkalan
## 16 2.106051e+12                   Kholilur Rohman      <NA>         <NA>

Data Set Dengan Key NIM dan Value Gender

Gender <- data.frame(
   NIM = c(210605110030, 210605110031, 210605110032, 210605110033, 210605110034, 210605110035, 210605110036, 210605110037, 210605110038, 210605110039, 210605110040, 210605110041, 210605110042, 210605110043, 210605110044), gender = c("Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Laki-laki", "Laki-laki", "Laki-laki", "Laki-laki", "Perempuan", "Laki-laki", "Laki-laki", "Laki-laki", "Perempuan", "Laki-laki", "Perempuan"),
stringsAsFactors = FALSE)
Gender

##             NIM    gender
## 1  210605110030 Perempuan
## 2  210605110031 Perempuan
## 3  210605110032 Perempuan
## 4  210605110033 Laki-laki
## 5  210605110034 Laki-laki
## 6  210605110035 Laki-laki
## 7  210605110036 Laki-laki
## 8  210605110037 Laki-laki
## 9  210605110038 Perempuan
## 10 210605110039 Laki-laki
## 11 210605110040 Laki-laki
## 12 210605110041 Laki-laki
## 13 210605110042 Perempuan
## 14 210605110043 Laki-laki
## 15 210605110044 Perempuan

Penerapan Data Set Inner Join

InnerJoin <- Mahasiswa %>%
  inner_join(Gender, by = "NIM")
InnerJoin

##             NIM                    Nama.Mahasiswa    gender
## 1  210605110030             Siti Rofidatus Saidah Perempuan
## 2  210605110031                  Dwi Putri Adilah Perempuan
## 3  210605110032          Mutiara Aprilia Dzakiroh Perempuan
## 4  210605110033        Muhammad Sulthon Khairudin Laki-laki
## 5  210605110034             Hilmi Zuhri Adi Brata Laki-laki
## 6  210605110035           Muhammad Zea Al Ghifari Laki-laki
## 7  210605110036             Hamzah Faizal Asyhari Laki-laki
## 8  210605110038             Vivin Octavia Cahyani Perempuan
## 9  210605110039                           Ade Ray Laki-laki
## 10 210605110040 Muhammad Ihya' Ulumuddin Al Hazmi Laki-laki
## 11 210605110041                     Rizqy Alfajri Laki-laki
## 12 210605110042                    Hajratul Aswad Perempuan
## 13 210605110043               Arvin Azaria Munsyi Laki-laki
## 14 210605110044                    Fitria Susanti Perempuan

Penerapan Data Set Outer Join

1. Left Join

leftjoin <- left_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
leftjoin

##             NIM                    Nama.Mahasiswa    gender
## 1  2.106051e+11             Siti Rofidatus Saidah Perempuan
## 2  2.106051e+11                  Dwi Putri Adilah Perempuan
## 3  2.106051e+11          Mutiara Aprilia Dzakiroh Perempuan
## 4  2.106051e+11        Muhammad Sulthon Khairudin Laki-laki
## 5  2.106051e+11             Hilmi Zuhri Adi Brata Laki-laki
## 6  2.106051e+11           Muhammad Zea Al Ghifari Laki-laki
## 7  2.106051e+11             Hamzah Faizal Asyhari Laki-laki
## 8  2.106051e+12                   Kholilur Rohman      <NA>
## 9  2.106051e+11             Vivin Octavia Cahyani Perempuan
## 10 2.106051e+11                           Ade Ray Laki-laki
## 11 2.106051e+11 Muhammad Ihya' Ulumuddin Al Hazmi Laki-laki
## 12 2.106051e+11                     Rizqy Alfajri Laki-laki
## 13 2.106051e+11                    Hajratul Aswad Perempuan
## 14 2.106051e+11               Arvin Azaria Munsyi Laki-laki
## 15 2.106051e+11                    Fitria Susanti Perempuan

2. Right Join

rightjoin <- right_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
rightjoin

##             NIM                    Nama.Mahasiswa    gender
## 1  210605110030             Siti Rofidatus Saidah Perempuan
## 2  210605110031                  Dwi Putri Adilah Perempuan
## 3  210605110032          Mutiara Aprilia Dzakiroh Perempuan
## 4  210605110033        Muhammad Sulthon Khairudin Laki-laki
## 5  210605110034             Hilmi Zuhri Adi Brata Laki-laki
## 6  210605110035           Muhammad Zea Al Ghifari Laki-laki
## 7  210605110036             Hamzah Faizal Asyhari Laki-laki
## 8  210605110038             Vivin Octavia Cahyani Perempuan
## 9  210605110039                           Ade Ray Laki-laki
## 10 210605110040 Muhammad Ihya' Ulumuddin Al Hazmi Laki-laki
## 11 210605110041                     Rizqy Alfajri Laki-laki
## 12 210605110042                    Hajratul Aswad Perempuan
## 13 210605110043               Arvin Azaria Munsyi Laki-laki
## 14 210605110044                    Fitria Susanti Perempuan
## 15 210605110037                              <NA> Laki-laki

3. Full Join

fulljoin <- full_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
fulljoin

##             NIM                    Nama.Mahasiswa    gender
## 1  2.106051e+11             Siti Rofidatus Saidah Perempuan
## 2  2.106051e+11                  Dwi Putri Adilah Perempuan
## 3  2.106051e+11          Mutiara Aprilia Dzakiroh Perempuan
## 4  2.106051e+11        Muhammad Sulthon Khairudin Laki-laki
## 5  2.106051e+11             Hilmi Zuhri Adi Brata Laki-laki
## 6  2.106051e+11           Muhammad Zea Al Ghifari Laki-laki
## 7  2.106051e+11             Hamzah Faizal Asyhari Laki-laki
## 8  2.106051e+12                   Kholilur Rohman      <NA>
## 9  2.106051e+11             Vivin Octavia Cahyani Perempuan
## 10 2.106051e+11                           Ade Ray Laki-laki
## 11 2.106051e+11 Muhammad Ihya' Ulumuddin Al Hazmi Laki-laki
## 12 2.106051e+11                     Rizqy Alfajri Laki-laki
## 13 2.106051e+11                    Hajratul Aswad Perempuan
## 14 2.106051e+11               Arvin Azaria Munsyi Laki-laki
## 15 2.106051e+11                    Fitria Susanti Perempuan
## 16 2.106051e+11                              <NA> Laki-laki

Referensi

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