Relational Data Set Sebagian Mahasiswa Teknik Informatika UIN Maulana Malik Ibrahim Malang Angkatan 2021

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

UIN Maulana Malik Ibrahim Malang - Teknik Informatika

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.4     v dplyr   1.0.8
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   2.0.1     v forcats 0.5.1

## Warning: package 'dplyr' 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(210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025), 'Nama Mahasiswa' = c("Ummi Kunhayati", "Imamatul Khoiriyah", "Salma Chesha Putri", "Nova Rahma", "Najah Muchsin Sanin", "Radina Mutia Haira", "Muizzul Azizah Oktavianing", "Salsabila Ramadanti", "Fauzil Hidayatullah", "Muhammad Amirul Muttaqin", "Firza Izzatul Mila", "Noviansyah Maulana", "Rafi Rabbani", "Muh. Miftahul Khair", "Daurin Nabilatul Munna"),
stringsAsFactors = FALSE)
Mahasiswa

##             NIM             Nama.Mahasiswa
## 1  210605110011             Ummi Kunhayati
## 2  210605110012         Imamatul Khoiriyah
## 3  210605110013         Salma Chesha Putri
## 4  210605110014                 Nova Rahma
## 5  210605110015        Najah Muchsin Sanin
## 6  210605110016         Radina Mutia Haira
## 7  210605110017 Muizzul Azizah Oktavianing
## 8  210605110018        Salsabila Ramadanti
## 9  210605110019        Fauzil Hidayatullah
## 10 210605110020   Muhammad Amirul Muttaqin
## 11 210605110021         Firza Izzatul Mila
## 12 210605110022         Noviansyah Maulana
## 13 210605110023               Rafi Rabbani
## 14 210605110024        Muh. Miftahul Khair
## 15 210605110025     Daurin Nabilatul Munna

Tabel Data Gender Mahasiswa

Gender <- data.frame(
   NIM = c(210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025), Gender = c("Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putra", "Putra", "Putri", "Putra", "Putra", "Putra", "Putri"),
stringsAsFactors = FALSE)
Gender

##             NIM Gender
## 1  210605110011  Putri
## 2  210605110012  Putri
## 3  210605110013  Putri
## 4  210605110014  Putri
## 5  210605110015  Putri
## 6  210605110016  Putri
## 7  210605110017  Putri
## 8  210605110018  Putri
## 9  210605110019  Putra
## 10 210605110020  Putra
## 11 210605110021  Putri
## 12 210605110022  Putra
## 13 210605110023  Putra
## 14 210605110024  Putra
## 15 210605110025  Putri

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  210605110011             Ummi Kunhayati  Putri
## 2  210605110012         Imamatul Khoiriyah  Putri
## 3  210605110013         Salma Chesha Putri  Putri
## 4  210605110014                 Nova Rahma  Putri
## 5  210605110015        Najah Muchsin Sanin  Putri
## 6  210605110016         Radina Mutia Haira  Putri
## 7  210605110017 Muizzul Azizah Oktavianing  Putri
## 8  210605110018        Salsabila Ramadanti  Putri
## 9  210605110019        Fauzil Hidayatullah  Putra
## 10 210605110020   Muhammad Amirul Muttaqin  Putra
## 11 210605110021         Firza Izzatul Mila  Putri
## 12 210605110022         Noviansyah Maulana  Putra
## 13 210605110023               Rafi Rabbani  Putra
## 14 210605110024        Muh. Miftahul Khair  Putra
## 15 210605110025     Daurin Nabilatul Munna  Putri

Tabel Data Daerah Tempat Lahir

TempatLahir <- data.frame(
   NIM = c(210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025),
'Tempat Lahir' = c("Baureno", "Bojonegoro", "Jakarta", "Tuban", "Mekkah", "Magetan", "Probolinggo", "Blitar", "Praya", "Gresik", "Jember", "Bekasi", "Jakarta", "Jakarta", "Kediri"),
stringsAsFactors = FALSE)
TempatLahir

##             NIM Tempat.Lahir
## 1  210605110011      Baureno
## 2  210605110012   Bojonegoro
## 3  210605110013      Jakarta
## 4  210605110014        Tuban
## 5  210605110015       Mekkah
## 6  210605110016      Magetan
## 7  210605110017  Probolinggo
## 8  210605110018       Blitar
## 9  210605110019        Praya
## 10 210605110020       Gresik
## 11 210605110021       Jember
## 12 210605110022       Bekasi
## 13 210605110023      Jakarta
## 14 210605110024      Jakarta
## 15 210605110025       Kediri

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  210605110011             Ummi Kunhayati  Putri      Baureno
## 2  210605110012         Imamatul Khoiriyah  Putri   Bojonegoro
## 3  210605110013         Salma Chesha Putri  Putri      Jakarta
## 4  210605110014                 Nova Rahma  Putri        Tuban
## 5  210605110015        Najah Muchsin Sanin  Putri       Mekkah
## 6  210605110016         Radina Mutia Haira  Putri      Magetan
## 7  210605110017 Muizzul Azizah Oktavianing  Putri  Probolinggo
## 8  210605110018        Salsabila Ramadanti  Putri       Blitar
## 9  210605110019        Fauzil Hidayatullah  Putra        Praya
## 10 210605110020   Muhammad Amirul Muttaqin  Putra       Gresik
## 11 210605110021         Firza Izzatul Mila  Putri       Jember
## 12 210605110022         Noviansyah Maulana  Putra       Bekasi
## 13 210605110023               Rafi Rabbani  Putra      Jakarta
## 14 210605110024        Muh. Miftahul Khair  Putra      Jakarta
## 15 210605110025     Daurin Nabilatul Munna  Putri       Kediri

Data Set dengan Key NIM dan Value Gender

Gender <- data.frame(
   NIM = c(210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020, 210605110021, 210605110022, 210605110023, 210605110024, 210605110026), gender = c("Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putra", "Putra", "Putri", "Putra", "Putra", "Putra", "Putri"),
stringsAsFactors = FALSE)
Gender

##             NIM gender
## 1  210605110011  Putri
## 2  210605110012  Putri
## 3  210605110013  Putri
## 4  210605110014  Putri
## 5  210605110015  Putri
## 6  210605110016  Putri
## 7  210605110017  Putri
## 8  210605110018  Putri
## 9  210605110019  Putra
## 10 210605110020  Putra
## 11 210605110021  Putri
## 12 210605110022  Putra
## 13 210605110023  Putra
## 14 210605110024  Putra
## 15 210605110026  Putri

Penerapan Data Set Inner Join

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

##             NIM             Nama.Mahasiswa gender
## 1  210605110011             Ummi Kunhayati  Putri
## 2  210605110012         Imamatul Khoiriyah  Putri
## 3  210605110013         Salma Chesha Putri  Putri
## 4  210605110014                 Nova Rahma  Putri
## 5  210605110015        Najah Muchsin Sanin  Putri
## 6  210605110016         Radina Mutia Haira  Putri
## 7  210605110017 Muizzul Azizah Oktavianing  Putri
## 8  210605110018        Salsabila Ramadanti  Putri
## 9  210605110019        Fauzil Hidayatullah  Putra
## 10 210605110020   Muhammad Amirul Muttaqin  Putra
## 11 210605110021         Firza Izzatul Mila  Putri
## 12 210605110022         Noviansyah Maulana  Putra
## 13 210605110023               Rafi Rabbani  Putra
## 14 210605110024        Muh. Miftahul Khair  Putra

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  210605110011             Ummi Kunhayati  Putri
## 2  210605110012         Imamatul Khoiriyah  Putri
## 3  210605110013         Salma Chesha Putri  Putri
## 4  210605110014                 Nova Rahma  Putri
## 5  210605110015        Najah Muchsin Sanin  Putri
## 6  210605110016         Radina Mutia Haira  Putri
## 7  210605110017 Muizzul Azizah Oktavianing  Putri
## 8  210605110018        Salsabila Ramadanti  Putri
## 9  210605110019        Fauzil Hidayatullah  Putra
## 10 210605110020   Muhammad Amirul Muttaqin  Putra
## 11 210605110021         Firza Izzatul Mila  Putri
## 12 210605110022         Noviansyah Maulana  Putra
## 13 210605110023               Rafi Rabbani  Putra
## 14 210605110024        Muh. Miftahul Khair  Putra
## 15 210605110025     Daurin Nabilatul Munna   <NA>

2. Right Join

rightjoin <- right_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
rightjoin

##             NIM             Nama.Mahasiswa gender
## 1  210605110011             Ummi Kunhayati  Putri
## 2  210605110012         Imamatul Khoiriyah  Putri
## 3  210605110013         Salma Chesha Putri  Putri
## 4  210605110014                 Nova Rahma  Putri
## 5  210605110015        Najah Muchsin Sanin  Putri
## 6  210605110016         Radina Mutia Haira  Putri
## 7  210605110017 Muizzul Azizah Oktavianing  Putri
## 8  210605110018        Salsabila Ramadanti  Putri
## 9  210605110019        Fauzil Hidayatullah  Putra
## 10 210605110020   Muhammad Amirul Muttaqin  Putra
## 11 210605110021         Firza Izzatul Mila  Putri
## 12 210605110022         Noviansyah Maulana  Putra
## 13 210605110023               Rafi Rabbani  Putra
## 14 210605110024        Muh. Miftahul Khair  Putra
## 15 210605110026                       <NA>  Putri

3. Full Join

fulljoin <- full_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
fulljoin

##             NIM             Nama.Mahasiswa gender
## 1  210605110011             Ummi Kunhayati  Putri
## 2  210605110012         Imamatul Khoiriyah  Putri
## 3  210605110013         Salma Chesha Putri  Putri
## 4  210605110014                 Nova Rahma  Putri
## 5  210605110015        Najah Muchsin Sanin  Putri
## 6  210605110016         Radina Mutia Haira  Putri
## 7  210605110017 Muizzul Azizah Oktavianing  Putri
## 8  210605110018        Salsabila Ramadanti  Putri
## 9  210605110019        Fauzil Hidayatullah  Putra
## 10 210605110020   Muhammad Amirul Muttaqin  Putra
## 11 210605110021         Firza Izzatul Mila  Putri
## 12 210605110022         Noviansyah Maulana  Putra
## 13 210605110023               Rafi Rabbani  Putra
## 14 210605110024        Muh. Miftahul Khair  Putra
## 15 210605110025     Daurin Nabilatul Munna   <NA>
## 16 210605110026                       <NA>  Putri

---

Referensi

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