UIN Maulana Malik Ibrahim Malang Teknik Informatika

Data Relational

Data Relational adalah suatu model basis data yang menggunakan tabel dua dimensi, yang terdiri atas baris dan kolom untuk menggambarkan sebuah berkas data.

Model ini menunjukkan cara mengelola atau mengorganisasikan data secara fisik dalam memory sekunder, yang akan berdampak pula pada bagaimana kita mengelompokkan data dan membentuk keseluruhan data yang terkait dalam sistem yang kita buat.

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

Tabel Nama dan Jalur Masuk Universitas Alumni Kelas SCI SMA Negeri 1 Krian Tahun 2021

DataNamaSCI2021 <- data.frame(
  Nama = c("Rizka Fitriani" , "Eggidia Ratih Wulandari" , "Ellis Kusuma Wardani" , "Fahreza Muzaki" , "Elsa Aura Nabila" , "Firdya Annisa C.S" ,"Ghaly Firja Atha Nugroho" , "Ismatu Laila Syifa" , "Joseph Erandi ", "Maulidia Khoirun N", "Mochamad Taufiqul Hafizh", "Muhammad Naufal Adani", "Rahmadian Kahfi", "Narulitha Lyra","Revy Amelia S.","Safira Putri Ramadhani", "Vega Radindhi A.", "Violia Ruana N.S","Ziyan Imam Musa", "Reny Anggraini"),
  JalurMasuk = c("SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN", "SNMPTN"),
stringsAsFactors = FALSE)
DataNamaSCI2021
##                        Nama JalurMasuk
## 1            Rizka Fitriani     SNMPTN
## 2   Eggidia Ratih Wulandari     SNMPTN
## 3      Ellis Kusuma Wardani     SNMPTN
## 4            Fahreza Muzaki     SNMPTN
## 5          Elsa Aura Nabila     SNMPTN
## 6         Firdya Annisa C.S     SNMPTN
## 7  Ghaly Firja Atha Nugroho     SNMPTN
## 8        Ismatu Laila Syifa     SNMPTN
## 9            Joseph Erandi      SNMPTN
## 10       Maulidia Khoirun N     SNMPTN
## 11 Mochamad Taufiqul Hafizh     SNMPTN
## 12    Muhammad Naufal Adani     SNMPTN
## 13          Rahmadian Kahfi     SNMPTN
## 14           Narulitha Lyra     SNMPTN
## 15           Revy Amelia S.     SNMPTN
## 16   Safira Putri Ramadhani     SNMPTN
## 17         Vega Radindhi A.     SNMPTN
## 18         Violia Ruana N.S     SNMPTN
## 19          Ziyan Imam Musa     SNMPTN
## 20           Reny Anggraini     SNMPTN

Tabel Nama dan Universitas Alumni Kelas SCI SMA Negeri 1 Krian

DataUnivSCI2021 <- data.frame(
  Nama = c("Rizka Fitriani" , "Eggidia Ratih Wulandari" , "Ellis Kusuma Wardani" , "Fahreza Muzaki" , "Elsa Aura Nabila" , "Firdya Annisa C.S" ,"Ghaly Firja Atha Nugroho" , "Ismatu Laila Syifa" , "Joseph Erandi ", "Maulidia Khoirun N", "Mochamad Taufiqul Hafizh", "Muhammad Naufal Adani", "Rahmadian Kahfi", "Narulitha Lyra","Revy Amelia S.","Safira Putri Ramadhani", "Vega Radindhi A.", "Violia Ruana N.S","Ziyan Imam Musa", "Reny Anggraini"),
  Universitas = c("ITS", "UB", "UNAIR", "UB", "ITS", "UNESA", "ITB", "UNESA", "UB", "UM", "UNAIR", "UNAIR", "UNESA","UB", "UNEJ", "UNESA","UNESA", "UNESA", "UNEJ", "UB"),
stringsAsFactors = FALSE)
DataUnivSCI2021
##                        Nama Universitas
## 1            Rizka Fitriani         ITS
## 2   Eggidia Ratih Wulandari          UB
## 3      Ellis Kusuma Wardani       UNAIR
## 4            Fahreza Muzaki          UB
## 5          Elsa Aura Nabila         ITS
## 6         Firdya Annisa C.S       UNESA
## 7  Ghaly Firja Atha Nugroho         ITB
## 8        Ismatu Laila Syifa       UNESA
## 9            Joseph Erandi           UB
## 10       Maulidia Khoirun N          UM
## 11 Mochamad Taufiqul Hafizh       UNAIR
## 12    Muhammad Naufal Adani       UNAIR
## 13          Rahmadian Kahfi       UNESA
## 14           Narulitha Lyra          UB
## 15           Revy Amelia S.        UNEJ
## 16   Safira Putri Ramadhani       UNESA
## 17         Vega Radindhi A.       UNESA
## 18         Violia Ruana N.S       UNESA
## 19          Ziyan Imam Musa        UNEJ
## 20           Reny Anggraini          UB

Tabel Nama, Jalur Masuk dan Universitas Alumni Kelas SCI SMA Negeri 1 Krian

library(dplyr)
DataAlumniSCI2021 <- merge(
  x = DataNamaSCI2021,
  y = DataUnivSCI2021,
  by = 'Nama',
  all = TRUE
)
DataAlumniSCI2021
##                        Nama JalurMasuk Universitas
## 1   Eggidia Ratih Wulandari     SNMPTN          UB
## 2      Ellis Kusuma Wardani     SNMPTN       UNAIR
## 3          Elsa Aura Nabila     SNMPTN         ITS
## 4            Fahreza Muzaki     SNMPTN          UB
## 5         Firdya Annisa C.S     SNMPTN       UNESA
## 6  Ghaly Firja Atha Nugroho     SNMPTN         ITB
## 7        Ismatu Laila Syifa     SNMPTN       UNESA
## 8            Joseph Erandi      SNMPTN          UB
## 9        Maulidia Khoirun N     SNMPTN          UM
## 10 Mochamad Taufiqul Hafizh     SNMPTN       UNAIR
## 11    Muhammad Naufal Adani     SNMPTN       UNAIR
## 12           Narulitha Lyra     SNMPTN          UB
## 13          Rahmadian Kahfi     SNMPTN       UNESA
## 14           Reny Anggraini     SNMPTN          UB
## 15           Revy Amelia S.     SNMPTN        UNEJ
## 16           Rizka Fitriani     SNMPTN         ITS
## 17   Safira Putri Ramadhani     SNMPTN       UNESA
## 18         Vega Radindhi A.     SNMPTN       UNESA
## 19         Violia Ruana N.S     SNMPTN       UNESA
## 20          Ziyan Imam Musa     SNMPTN        UNEJ

Tabel Nama dan Jurusan Alumni Kelas SCI SMA Negeri 1 Krian

DataJurusanSCI2021 <- data.frame(
  Nama = c("Rizka Fitriani" , "Eggidia Ratih Wulandari" , "Ellis Kusuma Wardani" , "Fahreza Muzaki" , "Elsa Aura Nabila" , "Firdya Annisa C.S" ,"Ghaly Firja Atha Nugroho" , "Ismatu Laila Syifa" , "Joseph Erandi ", "Maulidia Khoirun N", "Mochamad Taufiqul Hafizh", "Muhammad Naufal Adani", "Rahmadian Kahfi", "Narulitha Lyra","Revy Amelia S.","Safira Putri Ramadhani", "Vega Radindhi A.", "Violia Ruana N.S","Ziyan Imam Musa", "Reny Anggraini"), 
  Jurusan = c("Biologi", "Agroekoteknologi", "Kimia", "Teknik Mesin" , "Desain Interior", "Pendidikan Biologi", "FTMD", "Matematika", "Sastra Inggris", "Pendidikan Fisika", "Sistem Informasi", "Teknik Biomedis", "Kimia","Teknik Lingkungan", "Pend. Dokter gigi", "Pend. Matematika","Teknik Mesin", "Teknik Informatika", "Teknik Sipil", "Ilmu Hukum"),
stringsAsFactors = FALSE)
DataJurusanSCI2021
##                        Nama            Jurusan
## 1            Rizka Fitriani            Biologi
## 2   Eggidia Ratih Wulandari   Agroekoteknologi
## 3      Ellis Kusuma Wardani              Kimia
## 4            Fahreza Muzaki       Teknik Mesin
## 5          Elsa Aura Nabila    Desain Interior
## 6         Firdya Annisa C.S Pendidikan Biologi
## 7  Ghaly Firja Atha Nugroho               FTMD
## 8        Ismatu Laila Syifa         Matematika
## 9            Joseph Erandi      Sastra Inggris
## 10       Maulidia Khoirun N  Pendidikan Fisika
## 11 Mochamad Taufiqul Hafizh   Sistem Informasi
## 12    Muhammad Naufal Adani    Teknik Biomedis
## 13          Rahmadian Kahfi              Kimia
## 14           Narulitha Lyra  Teknik Lingkungan
## 15           Revy Amelia S.  Pend. Dokter gigi
## 16   Safira Putri Ramadhani   Pend. Matematika
## 17         Vega Radindhi A.       Teknik Mesin
## 18         Violia Ruana N.S Teknik Informatika
## 19          Ziyan Imam Musa       Teknik Sipil
## 20           Reny Anggraini         Ilmu Hukum

Tabel Nama, Jalur Masuk, Universitas dan Jurusan Alumni Kelas SCI SMA Negeri 1 Krian

library(dplyr)
DataAlumni_Ipa42021 <- merge(
  x = DataAlumniSCI2021,
  y = DataJurusanSCI2021,
  by = 'Nama',
  all = TRUE)
DataAlumni_Ipa42021
##                        Nama JalurMasuk Universitas            Jurusan
## 1   Eggidia Ratih Wulandari     SNMPTN          UB   Agroekoteknologi
## 2      Ellis Kusuma Wardani     SNMPTN       UNAIR              Kimia
## 3          Elsa Aura Nabila     SNMPTN         ITS    Desain Interior
## 4            Fahreza Muzaki     SNMPTN          UB       Teknik Mesin
## 5         Firdya Annisa C.S     SNMPTN       UNESA Pendidikan Biologi
## 6  Ghaly Firja Atha Nugroho     SNMPTN         ITB               FTMD
## 7        Ismatu Laila Syifa     SNMPTN       UNESA         Matematika
## 8            Joseph Erandi      SNMPTN          UB     Sastra Inggris
## 9        Maulidia Khoirun N     SNMPTN          UM  Pendidikan Fisika
## 10 Mochamad Taufiqul Hafizh     SNMPTN       UNAIR   Sistem Informasi
## 11    Muhammad Naufal Adani     SNMPTN       UNAIR    Teknik Biomedis
## 12           Narulitha Lyra     SNMPTN          UB  Teknik Lingkungan
## 13          Rahmadian Kahfi     SNMPTN       UNESA              Kimia
## 14           Reny Anggraini     SNMPTN          UB         Ilmu Hukum
## 15           Revy Amelia S.     SNMPTN        UNEJ  Pend. Dokter gigi
## 16           Rizka Fitriani     SNMPTN         ITS            Biologi
## 17   Safira Putri Ramadhani     SNMPTN       UNESA   Pend. Matematika
## 18         Vega Radindhi A.     SNMPTN       UNESA       Teknik Mesin
## 19         Violia Ruana N.S     SNMPTN       UNESA Teknik Informatika
## 20          Ziyan Imam Musa     SNMPTN        UNEJ       Teknik Sipil

Data Set Menggunakan Key “NAMA” dan Value “Jurusan”

DataJurusanSCI2021 <- data.frame(
  Nama = c("Rizka Fitriani" , "Eggidia Ratih Wulandari" , "Ellis Kusuma Wardani" , "Fahreza Muzaki" , "Elsa Aura Nabila" , "Firdya Annisa C.S" ,"Ghaly Firja Atha Nugroho" , "Ismatu Laila Syifa" , "Joseph Erandi ", "Maulidia Khoirun N", "Mochamad Taufiqul Hafizh", "Muhammad Naufal Adani", "Rahmadian Kahfi", "Narulitha Lyra","Revy Amelia S.","Safira Putri Ramadhani", "Vega Radindhi A.", "Violia Ruana N.S","Ziyan Imam Musa", "Reny Anggraini"), 
  Jurusan = c("Biologi", "Agroekoteknologi", "Kimia", "Teknik Mesin" , "Desain Interior", "Pendidikan Biologi", "FTMD", "Matematika", "Sastra Inggris", "Pendidikan Fisika", "Sistem Informasi", "Teknik Biomedis", "Kimia","Teknik Lingkungan", "Pend. Dokter gigi", "Pend. Matematika","Teknik Mesin", "Teknik Informatika", "Teknik Sipil", "Ilmu Hukum"),
stringsAsFactors = FALSE)
DataJurusanSCI2021
##                        Nama            Jurusan
## 1            Rizka Fitriani            Biologi
## 2   Eggidia Ratih Wulandari   Agroekoteknologi
## 3      Ellis Kusuma Wardani              Kimia
## 4            Fahreza Muzaki       Teknik Mesin
## 5          Elsa Aura Nabila    Desain Interior
## 6         Firdya Annisa C.S Pendidikan Biologi
## 7  Ghaly Firja Atha Nugroho               FTMD
## 8        Ismatu Laila Syifa         Matematika
## 9            Joseph Erandi      Sastra Inggris
## 10       Maulidia Khoirun N  Pendidikan Fisika
## 11 Mochamad Taufiqul Hafizh   Sistem Informasi
## 12    Muhammad Naufal Adani    Teknik Biomedis
## 13          Rahmadian Kahfi              Kimia
## 14           Narulitha Lyra  Teknik Lingkungan
## 15           Revy Amelia S.  Pend. Dokter gigi
## 16   Safira Putri Ramadhani   Pend. Matematika
## 17         Vega Radindhi A.       Teknik Mesin
## 18         Violia Ruana N.S Teknik Informatika
## 19          Ziyan Imam Musa       Teknik Sipil
## 20           Reny Anggraini         Ilmu Hukum

Data Set Inner Join

innerJoin <- DataNamaSCI2021 %>%
  inner_join(DataJurusanSCI2021, by = "Nama")
innerJoin
##                        Nama JalurMasuk            Jurusan
## 1            Rizka Fitriani     SNMPTN            Biologi
## 2   Eggidia Ratih Wulandari     SNMPTN   Agroekoteknologi
## 3      Ellis Kusuma Wardani     SNMPTN              Kimia
## 4            Fahreza Muzaki     SNMPTN       Teknik Mesin
## 5          Elsa Aura Nabila     SNMPTN    Desain Interior
## 6         Firdya Annisa C.S     SNMPTN Pendidikan Biologi
## 7  Ghaly Firja Atha Nugroho     SNMPTN               FTMD
## 8        Ismatu Laila Syifa     SNMPTN         Matematika
## 9            Joseph Erandi      SNMPTN     Sastra Inggris
## 10       Maulidia Khoirun N     SNMPTN  Pendidikan Fisika
## 11 Mochamad Taufiqul Hafizh     SNMPTN   Sistem Informasi
## 12    Muhammad Naufal Adani     SNMPTN    Teknik Biomedis
## 13          Rahmadian Kahfi     SNMPTN              Kimia
## 14           Narulitha Lyra     SNMPTN  Teknik Lingkungan
## 15           Revy Amelia S.     SNMPTN  Pend. Dokter gigi
## 16   Safira Putri Ramadhani     SNMPTN   Pend. Matematika
## 17         Vega Radindhi A.     SNMPTN       Teknik Mesin
## 18         Violia Ruana N.S     SNMPTN Teknik Informatika
## 19          Ziyan Imam Musa     SNMPTN       Teknik Sipil
## 20           Reny Anggraini     SNMPTN         Ilmu Hukum

Penerapan Data Set Outer Join

1. Left Join

leftjoin <- left_join(DataNamaSCI2021,DataJurusanSCI2021)
## Joining, by = "Nama"
leftjoin
##                        Nama JalurMasuk            Jurusan
## 1            Rizka Fitriani     SNMPTN            Biologi
## 2   Eggidia Ratih Wulandari     SNMPTN   Agroekoteknologi
## 3      Ellis Kusuma Wardani     SNMPTN              Kimia
## 4            Fahreza Muzaki     SNMPTN       Teknik Mesin
## 5          Elsa Aura Nabila     SNMPTN    Desain Interior
## 6         Firdya Annisa C.S     SNMPTN Pendidikan Biologi
## 7  Ghaly Firja Atha Nugroho     SNMPTN               FTMD
## 8        Ismatu Laila Syifa     SNMPTN         Matematika
## 9            Joseph Erandi      SNMPTN     Sastra Inggris
## 10       Maulidia Khoirun N     SNMPTN  Pendidikan Fisika
## 11 Mochamad Taufiqul Hafizh     SNMPTN   Sistem Informasi
## 12    Muhammad Naufal Adani     SNMPTN    Teknik Biomedis
## 13          Rahmadian Kahfi     SNMPTN              Kimia
## 14           Narulitha Lyra     SNMPTN  Teknik Lingkungan
## 15           Revy Amelia S.     SNMPTN  Pend. Dokter gigi
## 16   Safira Putri Ramadhani     SNMPTN   Pend. Matematika
## 17         Vega Radindhi A.     SNMPTN       Teknik Mesin
## 18         Violia Ruana N.S     SNMPTN Teknik Informatika
## 19          Ziyan Imam Musa     SNMPTN       Teknik Sipil
## 20           Reny Anggraini     SNMPTN         Ilmu Hukum

2. Right Join

rightjoin <- right_join(DataNamaSCI2021,DataJurusanSCI2021)
## Joining, by = "Nama"
rightjoin
##                        Nama JalurMasuk            Jurusan
## 1            Rizka Fitriani     SNMPTN            Biologi
## 2   Eggidia Ratih Wulandari     SNMPTN   Agroekoteknologi
## 3      Ellis Kusuma Wardani     SNMPTN              Kimia
## 4            Fahreza Muzaki     SNMPTN       Teknik Mesin
## 5          Elsa Aura Nabila     SNMPTN    Desain Interior
## 6         Firdya Annisa C.S     SNMPTN Pendidikan Biologi
## 7  Ghaly Firja Atha Nugroho     SNMPTN               FTMD
## 8        Ismatu Laila Syifa     SNMPTN         Matematika
## 9            Joseph Erandi      SNMPTN     Sastra Inggris
## 10       Maulidia Khoirun N     SNMPTN  Pendidikan Fisika
## 11 Mochamad Taufiqul Hafizh     SNMPTN   Sistem Informasi
## 12    Muhammad Naufal Adani     SNMPTN    Teknik Biomedis
## 13          Rahmadian Kahfi     SNMPTN              Kimia
## 14           Narulitha Lyra     SNMPTN  Teknik Lingkungan
## 15           Revy Amelia S.     SNMPTN  Pend. Dokter gigi
## 16   Safira Putri Ramadhani     SNMPTN   Pend. Matematika
## 17         Vega Radindhi A.     SNMPTN       Teknik Mesin
## 18         Violia Ruana N.S     SNMPTN Teknik Informatika
## 19          Ziyan Imam Musa     SNMPTN       Teknik Sipil
## 20           Reny Anggraini     SNMPTN         Ilmu Hukum

3. Full Join

fulljoin <- full_join(DataNamaSCI2021,DataJurusanSCI2021)
## Joining, by = "Nama"
fulljoin
##                        Nama JalurMasuk            Jurusan
## 1            Rizka Fitriani     SNMPTN            Biologi
## 2   Eggidia Ratih Wulandari     SNMPTN   Agroekoteknologi
## 3      Ellis Kusuma Wardani     SNMPTN              Kimia
## 4            Fahreza Muzaki     SNMPTN       Teknik Mesin
## 5          Elsa Aura Nabila     SNMPTN    Desain Interior
## 6         Firdya Annisa C.S     SNMPTN Pendidikan Biologi
## 7  Ghaly Firja Atha Nugroho     SNMPTN               FTMD
## 8        Ismatu Laila Syifa     SNMPTN         Matematika
## 9            Joseph Erandi      SNMPTN     Sastra Inggris
## 10       Maulidia Khoirun N     SNMPTN  Pendidikan Fisika
## 11 Mochamad Taufiqul Hafizh     SNMPTN   Sistem Informasi
## 12    Muhammad Naufal Adani     SNMPTN    Teknik Biomedis
## 13          Rahmadian Kahfi     SNMPTN              Kimia
## 14           Narulitha Lyra     SNMPTN  Teknik Lingkungan
## 15           Revy Amelia S.     SNMPTN  Pend. Dokter gigi
## 16   Safira Putri Ramadhani     SNMPTN   Pend. Matematika
## 17         Vega Radindhi A.     SNMPTN       Teknik Mesin
## 18         Violia Ruana N.S     SNMPTN Teknik Informatika
## 19          Ziyan Imam Musa     SNMPTN       Teknik Sipil
## 20           Reny Anggraini     SNMPTN         Ilmu Hukum

Daftar Pustaka

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

https://www.sman1krian.sch.id