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

Prodi : Teknik Informatika

Lembaga : UIN Maulana Malik Ibrahim Malang

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

## ✓ ggplot2 3.3.2     ✓ purrr   0.3.4
## ✓ tibble  3.0.4     ✓ dplyr   1.0.2
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.0

Tabel Data NIM dan Nama Mahasiswa Teknik Informatika Semester 2

Mahasiswa <- data.frame(
  NIM = c(210605110001, 210605110002, 210605110003, 210605110004, 210605110005, 210605110006, 210605110007, 210605110008, 210605110009, 210605110010, 210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020 ), 'Nama Mahasiswa' = c("Rizky Rasyid Nurrachmad", "Briyana Qusnul Kholifah", "Roudlotul Hannah", "Khalif Akbar Rapsanjani", "Nurul Izzah", "Nabila Mahdiya Putri", "Maulidya Rahmah", "Shafira Halmahera", "Heny Rimadana", "Muhammad Daffa P.S", "Ummi Kunhayati", "Imamatul Khoiriyah", "Salma Chesha Putri", "Nova Rahma Yunida", "Najah Muchsin Sanin", "Radina Mutia Haira", "Muizzul Azizah O.p", "Salsabila Ramadanti N.", "Fauzil Hidayatullah", "Muhammad Amirul Muttaqin"),
stringsAsFactors = FALSE)
Mahasiswa

##             NIM           Nama.Mahasiswa
## 1  210605110001  Rizky Rasyid Nurrachmad
## 2  210605110002  Briyana Qusnul Kholifah
## 3  210605110003         Roudlotul Hannah
## 4  210605110004  Khalif Akbar Rapsanjani
## 5  210605110005              Nurul Izzah
## 6  210605110006     Nabila Mahdiya Putri
## 7  210605110007          Maulidya Rahmah
## 8  210605110008        Shafira Halmahera
## 9  210605110009            Heny Rimadana
## 10 210605110010       Muhammad Daffa P.S
## 11 210605110011           Ummi Kunhayati
## 12 210605110012       Imamatul Khoiriyah
## 13 210605110013       Salma Chesha Putri
## 14 210605110014        Nova Rahma Yunida
## 15 210605110015      Najah Muchsin Sanin
## 16 210605110016       Radina Mutia Haira
## 17 210605110017       Muizzul Azizah O.p
## 18 210605110018   Salsabila Ramadanti N.
## 19 210605110019      Fauzil Hidayatullah
## 20 210605110020 Muhammad Amirul Muttaqin

Tabel Data Gender

gender <- data.frame(
   NIM = c(210605110001, 210605110002, 210605110003, 210605110004, 210605110005, 210605110006, 210605110007, 210605110008, 210605110009, 210605110010, 210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020 ), gender = c("Putra", "Putri", "Putri", "Putra", "Putri", "Putri", "Putri", "Putri", "Putri", "Putra", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putra", "Putra" ),
stringsAsFactors = FALSE)
gender

##             NIM gender
## 1  210605110001  Putra
## 2  210605110002  Putri
## 3  210605110003  Putri
## 4  210605110004  Putra
## 5  210605110005  Putri
## 6  210605110006  Putri
## 7  210605110007  Putri
## 8  210605110008  Putri
## 9  210605110009  Putri
## 10 210605110010  Putra
## 11 210605110011  Putri
## 12 210605110012  Putri
## 13 210605110013  Putri
## 14 210605110014  Putri
## 15 210605110015  Putri
## 16 210605110016  Putri
## 17 210605110017  Putri
## 18 210605110018  Putri
## 19 210605110019  Putra
## 20 210605110020  Putra

library(dplyr)
mahasiswagenap1 <- merge(
  x = Mahasiswa,
  y = gender,
  by = 'NIM',
  all = TRUE
)
mahasiswagenap1

##             NIM           Nama.Mahasiswa gender
## 1  210605110001  Rizky Rasyid Nurrachmad  Putra
## 2  210605110002  Briyana Qusnul Kholifah  Putri
## 3  210605110003         Roudlotul Hannah  Putri
## 4  210605110004  Khalif Akbar Rapsanjani  Putra
## 5  210605110005              Nurul Izzah  Putri
## 6  210605110006     Nabila Mahdiya Putri  Putri
## 7  210605110007          Maulidya Rahmah  Putri
## 8  210605110008        Shafira Halmahera  Putri
## 9  210605110009            Heny Rimadana  Putri
## 10 210605110010       Muhammad Daffa P.S  Putra
## 11 210605110011           Ummi Kunhayati  Putri
## 12 210605110012       Imamatul Khoiriyah  Putri
## 13 210605110013       Salma Chesha Putri  Putri
## 14 210605110014        Nova Rahma Yunida  Putri
## 15 210605110015      Najah Muchsin Sanin  Putri
## 16 210605110016       Radina Mutia Haira  Putri
## 17 210605110017       Muizzul Azizah O.p  Putri
## 18 210605110018   Salsabila Ramadanti N.  Putri
## 19 210605110019      Fauzil Hidayatullah  Putra
## 20 210605110020 Muhammad Amirul Muttaqin  Putra

Tabel Data Tempat

tempat <- data.frame(
   NIM = c(210605110001, 210605110002, 210605110003, 210605110004, 210605110005, 210605110006, 210605110007, 210605110008, 210605110009, 210605110010, 210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020 ),
tempat = c("Malang", "Grobogan", "Lamongan", "Bekasi", "Jakarta", "Surabaya", "Jombang", "Jombang", "Kalimantan", "Pasuruan", "Baureno", "Bojonegoro", "Jakarta", "Tuban", "Mekkah", "Magetan", "Probolinggo", "Blitar", "Praya", "Gresik"),
stringsAsFactors = FALSE)
tempat

##             NIM      tempat
## 1  210605110001      Malang
## 2  210605110002    Grobogan
## 3  210605110003    Lamongan
## 4  210605110004      Bekasi
## 5  210605110005     Jakarta
## 6  210605110006    Surabaya
## 7  210605110007     Jombang
## 8  210605110008     Jombang
## 9  210605110009  Kalimantan
## 10 210605110010    Pasuruan
## 11 210605110011     Baureno
## 12 210605110012  Bojonegoro
## 13 210605110013     Jakarta
## 14 210605110014       Tuban
## 15 210605110015      Mekkah
## 16 210605110016     Magetan
## 17 210605110017 Probolinggo
## 18 210605110018      Blitar
## 19 210605110019       Praya
## 20 210605110020      Gresik

library(dplyr)
mahasiswagenap2 <- merge(
  x = mahasiswagenap1,
  y = tempat,
  by = 'NIM',
  all = TRUE
  )
mahasiswagenap2

##             NIM           Nama.Mahasiswa gender      tempat
## 1  210605110001  Rizky Rasyid Nurrachmad  Putra      Malang
## 2  210605110002  Briyana Qusnul Kholifah  Putri    Grobogan
## 3  210605110003         Roudlotul Hannah  Putri    Lamongan
## 4  210605110004  Khalif Akbar Rapsanjani  Putra      Bekasi
## 5  210605110005              Nurul Izzah  Putri     Jakarta
## 6  210605110006     Nabila Mahdiya Putri  Putri    Surabaya
## 7  210605110007          Maulidya Rahmah  Putri     Jombang
## 8  210605110008        Shafira Halmahera  Putri     Jombang
## 9  210605110009            Heny Rimadana  Putri  Kalimantan
## 10 210605110010       Muhammad Daffa P.S  Putra    Pasuruan
## 11 210605110011           Ummi Kunhayati  Putri     Baureno
## 12 210605110012       Imamatul Khoiriyah  Putri  Bojonegoro
## 13 210605110013       Salma Chesha Putri  Putri     Jakarta
## 14 210605110014        Nova Rahma Yunida  Putri       Tuban
## 15 210605110015      Najah Muchsin Sanin  Putri      Mekkah
## 16 210605110016       Radina Mutia Haira  Putri     Magetan
## 17 210605110017       Muizzul Azizah O.p  Putri Probolinggo
## 18 210605110018   Salsabila Ramadanti N.  Putri      Blitar
## 19 210605110019      Fauzil Hidayatullah  Putra       Praya
## 20 210605110020 Muhammad Amirul Muttaqin  Putra      Gresik

Tabel Data Jumlah Kelompok

jumlah <- data.frame(
  NIM = c(210605110001, 210605110002, 210605110003, 210605110004, 210605110005, 210605110006, 210605110007, 210605110008, 210605110009, 210605110010, 210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020 ),
  'Jumlah Kelompok' = c(7,10,14,19,5,9,17,13,4,11,8,16,18,3,20,25,14,19,6,9),
  stringsAsFactors = FALSE
)
jumlah

##             NIM Jumlah.Kelompok
## 1  210605110001               7
## 2  210605110002              10
## 3  210605110003              14
## 4  210605110004              19
## 5  210605110005               5
## 6  210605110006               9
## 7  210605110007              17
## 8  210605110008              13
## 9  210605110009               4
## 10 210605110010              11
## 11 210605110011               8
## 12 210605110012              16
## 13 210605110013              18
## 14 210605110014               3
## 15 210605110015              20
## 16 210605110016              25
## 17 210605110017              14
## 18 210605110018              19
## 19 210605110019               6
## 20 210605110020               9

library(dplyr)
mahasiswagenap3 <- merge(
  x = mahasiswagenap2,
  y = jumlah,
  by = 'NIM',
  all = TRUE
  )
mahasiswagenap3

##             NIM           Nama.Mahasiswa gender      tempat Jumlah.Kelompok
## 1  210605110001  Rizky Rasyid Nurrachmad  Putra      Malang               7
## 2  210605110002  Briyana Qusnul Kholifah  Putri    Grobogan              10
## 3  210605110003         Roudlotul Hannah  Putri    Lamongan              14
## 4  210605110004  Khalif Akbar Rapsanjani  Putra      Bekasi              19
## 5  210605110005              Nurul Izzah  Putri     Jakarta               5
## 6  210605110006     Nabila Mahdiya Putri  Putri    Surabaya               9
## 7  210605110007          Maulidya Rahmah  Putri     Jombang              17
## 8  210605110008        Shafira Halmahera  Putri     Jombang              13
## 9  210605110009            Heny Rimadana  Putri  Kalimantan               4
## 10 210605110010       Muhammad Daffa P.S  Putra    Pasuruan              11
## 11 210605110011           Ummi Kunhayati  Putri     Baureno               8
## 12 210605110012       Imamatul Khoiriyah  Putri  Bojonegoro              16
## 13 210605110013       Salma Chesha Putri  Putri     Jakarta              18
## 14 210605110014        Nova Rahma Yunida  Putri       Tuban               3
## 15 210605110015      Najah Muchsin Sanin  Putri      Mekkah              20
## 16 210605110016       Radina Mutia Haira  Putri     Magetan              25
## 17 210605110017       Muizzul Azizah O.p  Putri Probolinggo              14
## 18 210605110018   Salsabila Ramadanti N.  Putri      Blitar              19
## 19 210605110019      Fauzil Hidayatullah  Putra       Praya               6
## 20 210605110020 Muhammad Amirul Muttaqin  Putra      Gresik               9

Data Set dengan Catatan: Key “NIM” dan Value “Gender”

Gender <- data.frame(
   NIM = c(210605110001, 210605110002, 210605110003, 210605110004, 210605110005, 210605110006, 210605110007, 210605110008, 210605110009, 210605110010, 210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110021 ), gender = c("Putra", "Putri", "Putri", "Putra", "Putri", "Putri", "Putri", "Putri", "Putri", "Putra", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putri", "Putra", "Putra" ),
stringsAsFactors = FALSE)
Gender

##             NIM gender
## 1  210605110001  Putra
## 2  210605110002  Putri
## 3  210605110003  Putri
## 4  210605110004  Putra
## 5  210605110005  Putri
## 6  210605110006  Putri
## 7  210605110007  Putri
## 8  210605110008  Putri
## 9  210605110009  Putri
## 10 210605110010  Putra
## 11 210605110011  Putri
## 12 210605110012  Putri
## 13 210605110013  Putri
## 14 210605110014  Putri
## 15 210605110015  Putri
## 16 210605110016  Putri
## 17 210605110017  Putri
## 18 210605110018  Putri
## 19 210605110019  Putra
## 20 210605110021  Putra

Penerapan Data Set Inner Join

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

##             NIM          Nama.Mahasiswa gender
## 1  210605110001 Rizky Rasyid Nurrachmad  Putra
## 2  210605110002 Briyana Qusnul Kholifah  Putri
## 3  210605110003        Roudlotul Hannah  Putri
## 4  210605110004 Khalif Akbar Rapsanjani  Putra
## 5  210605110005             Nurul Izzah  Putri
## 6  210605110006    Nabila Mahdiya Putri  Putri
## 7  210605110007         Maulidya Rahmah  Putri
## 8  210605110008       Shafira Halmahera  Putri
## 9  210605110009           Heny Rimadana  Putri
## 10 210605110010      Muhammad Daffa P.S  Putra
## 11 210605110011          Ummi Kunhayati  Putri
## 12 210605110012      Imamatul Khoiriyah  Putri
## 13 210605110013      Salma Chesha Putri  Putri
## 14 210605110014       Nova Rahma Yunida  Putri
## 15 210605110015     Najah Muchsin Sanin  Putri
## 16 210605110016      Radina Mutia Haira  Putri
## 17 210605110017      Muizzul Azizah O.p  Putri
## 18 210605110018  Salsabila Ramadanti N.  Putri
## 19 210605110019     Fauzil Hidayatullah  Putra

Penerapan Data Set Outer Join

1. A left joint

leftjoin <- left_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
leftjoin

##             NIM           Nama.Mahasiswa gender
## 1  210605110001  Rizky Rasyid Nurrachmad  Putra
## 2  210605110002  Briyana Qusnul Kholifah  Putri
## 3  210605110003         Roudlotul Hannah  Putri
## 4  210605110004  Khalif Akbar Rapsanjani  Putra
## 5  210605110005              Nurul Izzah  Putri
## 6  210605110006     Nabila Mahdiya Putri  Putri
## 7  210605110007          Maulidya Rahmah  Putri
## 8  210605110008        Shafira Halmahera  Putri
## 9  210605110009            Heny Rimadana  Putri
## 10 210605110010       Muhammad Daffa P.S  Putra
## 11 210605110011           Ummi Kunhayati  Putri
## 12 210605110012       Imamatul Khoiriyah  Putri
## 13 210605110013       Salma Chesha Putri  Putri
## 14 210605110014        Nova Rahma Yunida  Putri
## 15 210605110015      Najah Muchsin Sanin  Putri
## 16 210605110016       Radina Mutia Haira  Putri
## 17 210605110017       Muizzul Azizah O.p  Putri
## 18 210605110018   Salsabila Ramadanti N.  Putri
## 19 210605110019      Fauzil Hidayatullah  Putra
## 20 210605110020 Muhammad Amirul Muttaqin   <NA>

2. A right joint

rightjoin <- right_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
rightjoin

##             NIM          Nama.Mahasiswa gender
## 1  210605110001 Rizky Rasyid Nurrachmad  Putra
## 2  210605110002 Briyana Qusnul Kholifah  Putri
## 3  210605110003        Roudlotul Hannah  Putri
## 4  210605110004 Khalif Akbar Rapsanjani  Putra
## 5  210605110005             Nurul Izzah  Putri
## 6  210605110006    Nabila Mahdiya Putri  Putri
## 7  210605110007         Maulidya Rahmah  Putri
## 8  210605110008       Shafira Halmahera  Putri
## 9  210605110009           Heny Rimadana  Putri
## 10 210605110010      Muhammad Daffa P.S  Putra
## 11 210605110011          Ummi Kunhayati  Putri
## 12 210605110012      Imamatul Khoiriyah  Putri
## 13 210605110013      Salma Chesha Putri  Putri
## 14 210605110014       Nova Rahma Yunida  Putri
## 15 210605110015     Najah Muchsin Sanin  Putri
## 16 210605110016      Radina Mutia Haira  Putri
## 17 210605110017      Muizzul Azizah O.p  Putri
## 18 210605110018  Salsabila Ramadanti N.  Putri
## 19 210605110019     Fauzil Hidayatullah  Putra
## 20 210605110021                    <NA>  Putra

3. A full joint

fulljoin <- full_join(Mahasiswa,Gender)

## Joining, by = "NIM"

## Joining, by = "NIM"
fulljoin

##             NIM           Nama.Mahasiswa gender
## 1  210605110001  Rizky Rasyid Nurrachmad  Putra
## 2  210605110002  Briyana Qusnul Kholifah  Putri
## 3  210605110003         Roudlotul Hannah  Putri
## 4  210605110004  Khalif Akbar Rapsanjani  Putra
## 5  210605110005              Nurul Izzah  Putri
## 6  210605110006     Nabila Mahdiya Putri  Putri
## 7  210605110007          Maulidya Rahmah  Putri
## 8  210605110008        Shafira Halmahera  Putri
## 9  210605110009            Heny Rimadana  Putri
## 10 210605110010       Muhammad Daffa P.S  Putra
## 11 210605110011           Ummi Kunhayati  Putri
## 12 210605110012       Imamatul Khoiriyah  Putri
## 13 210605110013       Salma Chesha Putri  Putri
## 14 210605110014        Nova Rahma Yunida  Putri
## 15 210605110015      Najah Muchsin Sanin  Putri
## 16 210605110016       Radina Mutia Haira  Putri
## 17 210605110017       Muizzul Azizah O.p  Putri
## 18 210605110018   Salsabila Ramadanti N.  Putri
## 19 210605110019      Fauzil Hidayatullah  Putra
## 20 210605110020 Muhammad Amirul Muttaqin   <NA>
## 21 210605110021                     <NA>  Putra

REFERENSI:

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

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

Imamatul Khoiriyah/Prof. Dr. Suhartono, M.Kom

16 Februari 2022

Tabel Data NIM dan Nama Mahasiswa Teknik Informatika Semester 2

Tabel Data Gender

Tabel Data Tempat

Tabel Data Jumlah Kelompok

Data Set dengan Catatan: Key “NIM” dan Value “Gender”

Penerapan Data Set Inner Join

Penerapan Data Set Outer Join

1. A left joint

2. A right joint

3. A full joint

REFERENSI: