Pengoperasian Relational Data Set Mahasiswa Semester 2 Program Studi Teknik Informatika UIN Maulana Malik Ibrahim Malang Tahun 2022 Menggunakan RStudio
Nurul Izzah, Prof. Dr. Suhartono, M.Kom
8 Maret 2022
Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang
Jurusan : Teknik Informatika
library(tidyverse)## -- 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.7
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 2.0.1 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()Tabel Data NIM dan Nama Mahasiswa
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, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025, 210605110026, 210605110027, 210605110028, 210605110029 ), '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", "Firza Izzatul Mila", "Noviansyah Maulana Ramadhan", "Rafi Rabani Raihan", "Muh Miftahul Khair", "Daurin Nabilatul Munna", "Enggarani Wahyu Ekaputri", "Aldiana Damayanti", "Muhammad Tazkia Ikhsanul Ma'arif", "Jea Syafrida Nurlaili"),
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
## 21 210605110021 Firza Izzatul Mila
## 22 210605110022 Noviansyah Maulana Ramadhan
## 23 210605110023 Rafi Rabani Raihan
## 24 210605110024 Muh Miftahul Khair
## 25 210605110025 Daurin Nabilatul Munna
## 26 210605110026 Enggarani Wahyu Ekaputri
## 27 210605110027 Aldiana Damayanti
## 28 210605110028 Muhammad Tazkia Ikhsanul Ma'arif
## 29 210605110029 Jea Syafrida NurlailiTabel Data Jenis Kelamin Mahasiswa
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, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025, 210605110026, 210605110027, 210605110028, 210605110029 ), gender = c("Laki-laki", "Perempuan", "Perempuan", "Laki-laki", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Laki-laki", "Perempuan", "Laki-laki", "Laki-laki", "Laki-laki", "Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Perempuan" ),
stringsAsFactors = FALSE)
gender## NIM gender
## 1 210605110001 Laki-laki
## 2 210605110002 Perempuan
## 3 210605110003 Perempuan
## 4 210605110004 Laki-laki
## 5 210605110005 Perempuan
## 6 210605110006 Perempuan
## 7 210605110007 Perempuan
## 8 210605110008 Perempuan
## 9 210605110009 Perempuan
## 10 210605110010 Laki-laki
## 11 210605110011 Perempuan
## 12 210605110012 Perempuan
## 13 210605110013 Perempuan
## 14 210605110014 Perempuan
## 15 210605110015 Perempuan
## 16 210605110016 Perempuan
## 17 210605110017 Perempuan
## 18 210605110018 Perempuan
## 19 210605110019 Laki-laki
## 20 210605110020 Laki-laki
## 21 210605110021 Perempuan
## 22 210605110022 Laki-laki
## 23 210605110023 Laki-laki
## 24 210605110024 Laki-laki
## 25 210605110025 Perempuan
## 26 210605110026 Perempuan
## 27 210605110027 Perempuan
## 28 210605110028 Laki-laki
## 29 210605110029 PerempuanMenggabungkan Data NIM, Nama, dan Jenis Kelamin Mahasiswa
library(dplyr)
mahasiswa1 <- merge(
x = Mahasiswa,
y = gender,
by = 'NIM',
all = TRUE
)
mahasiswa1## NIM Nama.Mahasiswa gender
## 1 210605110001 Rizky Rasyid Nurrachmad Laki-laki
## 2 210605110002 Briyana Qusnul Kholifah Perempuan
## 3 210605110003 Roudlotul Hannah Perempuan
## 4 210605110004 Khalif Akbar Rapsanjani Laki-laki
## 5 210605110005 Nurul Izzah Perempuan
## 6 210605110006 Nabila Mahdiya Putri Perempuan
## 7 210605110007 Maulidya Rahmah Perempuan
## 8 210605110008 Shafira Halmahera Perempuan
## 9 210605110009 Heny Rimadana Perempuan
## 10 210605110010 Muhammad Daffa P.S Laki-laki
## 11 210605110011 Ummi Kunhayati Perempuan
## 12 210605110012 Imamatul Khoiriyah Perempuan
## 13 210605110013 Salma Chesha Putri Perempuan
## 14 210605110014 Nova Rahma Yunida Perempuan
## 15 210605110015 Najah Muchsin Sanin Perempuan
## 16 210605110016 Radina Mutia Haira Perempuan
## 17 210605110017 Muizzul Azizah O.p Perempuan
## 18 210605110018 Salsabila Ramadanti N. Perempuan
## 19 210605110019 Fauzil Hidayatullah Laki-laki
## 20 210605110020 Muhammad Amirul Muttaqin Laki-laki
## 21 210605110021 Firza Izzatul Mila Perempuan
## 22 210605110022 Noviansyah Maulana Ramadhan Laki-laki
## 23 210605110023 Rafi Rabani Raihan Laki-laki
## 24 210605110024 Muh Miftahul Khair Laki-laki
## 25 210605110025 Daurin Nabilatul Munna Perempuan
## 26 210605110026 Enggarani Wahyu Ekaputri Perempuan
## 27 210605110027 Aldiana Damayanti Perempuan
## 28 210605110028 Muhammad Tazkia Ikhsanul Ma'arif Laki-laki
## 29 210605110029 Jea Syafrida Nurlaili PerempuanTabel Data Tempat Tinggal Mahasiswa
tempattinggal <- data.frame(
NIM = c(210605110001, 210605110002, 210605110003, 210605110004, 210605110005, 210605110006, 210605110007, 210605110008, 210605110009, 210605110010, 210605110011, 210605110012, 210605110013, 210605110014, 210605110015, 210605110016, 210605110017, 210605110018, 210605110019, 210605110020, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025, 210605110026, 210605110027, 210605110028, 210605110029 ),
tempat = c("Malang", "Grobogan", "Lamongan", "Bekasi", "Jakarta", "Surabaya", "Jombang", "Jombang", "Kalimantan", "Pasuruan", "Baureno", "Bojonegoro", "Jakarta", "Tuban", "Mekkah", "Magetan", "Probolinggo", "Blitar", "Praya", "Gresik", "Jember", "Bekasi", "Jakarta", "Makassar", "Kediri", "Nganjuk", "Bekasi", "Kediri", "Blitar"),
stringsAsFactors = FALSE)
tempattinggal## 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
## 21 210605110021 Jember
## 22 210605110022 Bekasi
## 23 210605110023 Jakarta
## 24 210605110024 Makassar
## 25 210605110025 Kediri
## 26 210605110026 Nganjuk
## 27 210605110027 Bekasi
## 28 210605110028 Kediri
## 29 210605110029 BlitarMenggabungkan Data NIM, Nama, Jenis Kelamin, dan Tempat Tinggal
library(dplyr)
mahasiswa2 <- merge(
x = mahasiswa1,
y = tempattinggal,
by = 'NIM',
all = TRUE
)
mahasiswa2## NIM Nama.Mahasiswa gender tempat
## 1 210605110001 Rizky Rasyid Nurrachmad Laki-laki Malang
## 2 210605110002 Briyana Qusnul Kholifah Perempuan Grobogan
## 3 210605110003 Roudlotul Hannah Perempuan Lamongan
## 4 210605110004 Khalif Akbar Rapsanjani Laki-laki Bekasi
## 5 210605110005 Nurul Izzah Perempuan Jakarta
## 6 210605110006 Nabila Mahdiya Putri Perempuan Surabaya
## 7 210605110007 Maulidya Rahmah Perempuan Jombang
## 8 210605110008 Shafira Halmahera Perempuan Jombang
## 9 210605110009 Heny Rimadana Perempuan Kalimantan
## 10 210605110010 Muhammad Daffa P.S Laki-laki Pasuruan
## 11 210605110011 Ummi Kunhayati Perempuan Baureno
## 12 210605110012 Imamatul Khoiriyah Perempuan Bojonegoro
## 13 210605110013 Salma Chesha Putri Perempuan Jakarta
## 14 210605110014 Nova Rahma Yunida Perempuan Tuban
## 15 210605110015 Najah Muchsin Sanin Perempuan Mekkah
## 16 210605110016 Radina Mutia Haira Perempuan Magetan
## 17 210605110017 Muizzul Azizah O.p Perempuan Probolinggo
## 18 210605110018 Salsabila Ramadanti N. Perempuan Blitar
## 19 210605110019 Fauzil Hidayatullah Laki-laki Praya
## 20 210605110020 Muhammad Amirul Muttaqin Laki-laki Gresik
## 21 210605110021 Firza Izzatul Mila Perempuan Jember
## 22 210605110022 Noviansyah Maulana Ramadhan Laki-laki Bekasi
## 23 210605110023 Rafi Rabani Raihan Laki-laki Jakarta
## 24 210605110024 Muh Miftahul Khair Laki-laki Makassar
## 25 210605110025 Daurin Nabilatul Munna Perempuan Kediri
## 26 210605110026 Enggarani Wahyu Ekaputri Perempuan Nganjuk
## 27 210605110027 Aldiana Damayanti Perempuan Bekasi
## 28 210605110028 Muhammad Tazkia Ikhsanul Ma'arif Laki-laki Kediri
## 29 210605110029 Jea Syafrida Nurlaili Perempuan BlitarData 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, 210605110020, 210605110021, 210605110022, 210605110023, 210605110024, 210605110025, 210605110026, 210605110027, 210605110028, 210605110029 ), gender = c("Laki-laki", "Perempuan", "Perempuan", "Laki-laki", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Laki-laki", "Perempuan", "Laki-laki", "Laki-laki", "Laki-laki", "Perempuan", "Perempuan", "Perempuan", "Laki-laki", "Perempuan" ),
stringsAsFactors = FALSE)
Gender## NIM gender
## 1 210605110001 Laki-laki
## 2 210605110002 Perempuan
## 3 210605110003 Perempuan
## 4 210605110004 Laki-laki
## 5 210605110005 Perempuan
## 6 210605110006 Perempuan
## 7 210605110007 Perempuan
## 8 210605110008 Perempuan
## 9 210605110009 Perempuan
## 10 210605110010 Laki-laki
## 11 210605110011 Perempuan
## 12 210605110012 Perempuan
## 13 210605110013 Perempuan
## 14 210605110014 Perempuan
## 15 210605110015 Perempuan
## 16 210605110016 Perempuan
## 17 210605110017 Perempuan
## 18 210605110018 Perempuan
## 19 210605110019 Laki-laki
## 20 210605110020 Laki-laki
## 21 210605110021 Perempuan
## 22 210605110022 Laki-laki
## 23 210605110023 Laki-laki
## 24 210605110024 Laki-laki
## 25 210605110025 Perempuan
## 26 210605110026 Perempuan
## 27 210605110027 Perempuan
## 28 210605110028 Laki-laki
## 29 210605110029 PerempuanPenerapan Data Set Mahasiswa pada Inner Join
innerjoin <- Mahasiswa %>%
inner_join(Gender, by = "NIM")
innerjoin## NIM Nama.Mahasiswa gender
## 1 210605110001 Rizky Rasyid Nurrachmad Laki-laki
## 2 210605110002 Briyana Qusnul Kholifah Perempuan
## 3 210605110003 Roudlotul Hannah Perempuan
## 4 210605110004 Khalif Akbar Rapsanjani Laki-laki
## 5 210605110005 Nurul Izzah Perempuan
## 6 210605110006 Nabila Mahdiya Putri Perempuan
## 7 210605110007 Maulidya Rahmah Perempuan
## 8 210605110008 Shafira Halmahera Perempuan
## 9 210605110009 Heny Rimadana Perempuan
## 10 210605110010 Muhammad Daffa P.S Laki-laki
## 11 210605110011 Ummi Kunhayati Perempuan
## 12 210605110012 Imamatul Khoiriyah Perempuan
## 13 210605110013 Salma Chesha Putri Perempuan
## 14 210605110014 Nova Rahma Yunida Perempuan
## 15 210605110015 Najah Muchsin Sanin Perempuan
## 16 210605110016 Radina Mutia Haira Perempuan
## 17 210605110017 Muizzul Azizah O.p Perempuan
## 18 210605110018 Salsabila Ramadanti N. Perempuan
## 19 210605110019 Fauzil Hidayatullah Laki-laki
## 20 210605110020 Muhammad Amirul Muttaqin Laki-laki
## 21 210605110021 Firza Izzatul Mila Perempuan
## 22 210605110022 Noviansyah Maulana Ramadhan Laki-laki
## 23 210605110023 Rafi Rabani Raihan Laki-laki
## 24 210605110024 Muh Miftahul Khair Laki-laki
## 25 210605110025 Daurin Nabilatul Munna Perempuan
## 26 210605110026 Enggarani Wahyu Ekaputri Perempuan
## 27 210605110027 Aldiana Damayanti Perempuan
## 28 210605110028 Muhammad Tazkia Ikhsanul Ma'arif Laki-laki
## 29 210605110029 Jea Syafrida Nurlaili PerempuanPenerapan Data Set Mahasiswa pada Outer Join
1. Left Join
leftjoin <- left_join(Mahasiswa,Gender)## Joining, by = "NIM"2. Right Join
rightjoin <- right_join(Mahasiswa,Gender)## Joining, by = "NIM"3. Full Join
fulljoin <- full_join(Mahasiswa,Gender)## Joining, by = "NIM"Sumber :
https://rpubs.com/suhartono-uinmaliki/relational
summary(cars)## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00