Algoritma & Struktur Data
Tugas 3
Sharon Gracia Edward (20214520002)
September 09, 2021
Email : sharon.edward@student.matanauniversity.ac.id
RPubs : https://rpubs.com/sharongracia/
Jurusan : Fisika Medis
Address : ARA Center, Matana University Tower
Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.
1 Membuat program dengan list
list0 = list() #list kosong
list1 = list("Ainun", "Yeni", "Evelin", "Kent", "Nicolas") #list 5 teman dekat Sharon
print(list1[2]) #satu orang teman yang paling dekat## [[1]]
## [1] "Yeni"list1[4] = "Novia" #mengganti yang tidak terlalu dekat dengan orang yang baru ditemui
print(list1) #list yang sudah diganti## [[1]]
## [1] "Ainun"
##
## [[2]]
## [1] "Yeni"
##
## [[3]]
## [1] "Evelin"
##
## [[4]]
## [1] "Novia"
##
## [[5]]
## [1] "Nicolas"length(list1) #banyak orang dalam list## [1] 52 Membuat tuple
library(sets)
tuple0 = tuple() #tuple kosong
tuple1 = tuple("Halo","semua","nama","saya","Sharon.") #membuat tuple 5 item
print(tuple1[5]) #mengakses nilai tuple## ("Sharon.")tuple2 = tuple("Saya","adalah","mahasiswa","Universitas","Matana") #membuat tuple 5 item
print(tuple2[1:3]) #slicing tuple## ("Saya", "adalah", "mahasiswa")tuple3 = c(tuple1, tuple2) #nested tuple
print(tuple3)## ("Halo", "semua", "nama", "saya", "Sharon.", "Saya", "adalah",
## "mahasiswa", "Universitas", "Matana")print(paste(tuple1)) #unpacking sequence## [1] "Halo" "semua" "nama" "saya" "Sharon."3 Menyimpan sekumpulan Dictionary
library(Dict)##
## Attaching package: 'Dict'## The following object is masked from 'package:sets':
##
## %>%biodata = dict(
Nama = "Sharon Gracia",
Umur = as.integer(17),
Tinggi = (163),
Warna = list("merah", "hitam", "biru"),
WNI = TRUE,
Sosialmedia = tuple(facebook= "sharongracia",
instagram= "shaarr21")
)
cat("Nama saya adalah :", biodata$get('Nama')) #mengakses suatu nilai item dari dictionary## Nama saya adalah : Sharon Graciabiodata["Nama"] = "Sharon Gracia Edward" #mengubah suatu nilai item pada dictionary
biodata$get("Nama")## [1] "Sharon Gracia Edward"biodata$add(Namakecil = "eren") #menambah suatu item ke dictionary
print(biodata) #dictionary setelah menambah namakecil## # A tibble: 7 x 2
## key value
## <chr> <list>
## 1 Nama <chr [1]>
## 2 Sosialmedia <tuple>
## 3 Tinggi <dbl [1]>
## 4 Umur <int [1]>
## 5 Warna <list [3]>
## 6 WNI <lgl [1]>
## 7 Namakecil <chr [1]>biodata$remove("Nama") #menghapus suatu item dari dictionary
print(biodata) #dictionary setelah menghapus nama## # A tibble: 6 x 2
## key value
## <chr> <list>
## 1 Sosialmedia <tuple>
## 2 Tinggi <dbl [1]>
## 3 Umur <int [1]>
## 4 Warna <list [3]>
## 5 WNI <lgl [1]>
## 6 Namakecil <chr [1]>4 Operasi pengindeksan, pengirisan, dan subsetting data frame
df1_R <- data.frame(kode = c(1:5),
nama = c("Jeffry", "Tasya", "Natan", "Gracia", "Angel"),
uang_saku = c(565.9,678.0,332.7,476.1,539.8),
tanggal_lahir = as.Date(c("2001-06-24", "2003-04-29", "2003-06-10", "2004-01-21", "2002-02-26")),
prodi = c("akuntansi", "arsitektur", "akuntansi", "manajemen", "arsitektur"), stringsAsFactors = F)
print(df1_R) #hasil df1## kode nama uang_saku tanggal_lahir prodi
## 1 1 Jeffry 565.9 2001-06-24 akuntansi
## 2 2 Tasya 678.0 2003-04-29 arsitektur
## 3 3 Natan 332.7 2003-06-10 akuntansi
## 4 4 Gracia 476.1 2004-01-21 manajemen
## 5 5 Angel 539.8 2002-02-26 arsitekturtypeof(df1_R) #cek tipe data df1## [1] "list"class(df1_R) #cek tipe data df1## [1] "data.frame"df1_R[2,4] #ekstrak elemen di baris ke-2 kolom ke-4## [1] "2003-04-29"df1_R$prodi #ekstrak kolom prodi## [1] "akuntansi" "arsitektur" "akuntansi" "manajemen" "arsitektur"df1_R[,c('nama','tanggal_lahir')] #ekstrak kolom nama dan tanggal lahir## nama tanggal_lahir
## 1 Jeffry 2001-06-24
## 2 Tasya 2003-04-29
## 3 Natan 2003-06-10
## 4 Gracia 2004-01-21
## 5 Angel 2002-02-26df1_R[1:4,] #ekstrak empat baris pertama## kode nama uang_saku tanggal_lahir prodi
## 1 1 Jeffry 565.9 2001-06-24 akuntansi
## 2 2 Tasya 678.0 2003-04-29 arsitektur
## 3 3 Natan 332.7 2003-06-10 akuntansi
## 4 4 Gracia 476.1 2004-01-21 manajemendf1_R[,1:4] #ekstrak empat kolom pertama## kode nama uang_saku tanggal_lahir
## 1 1 Jeffry 565.9 2001-06-24
## 2 2 Tasya 678.0 2003-04-29
## 3 3 Natan 332.7 2003-06-10
## 4 4 Gracia 476.1 2004-01-21
## 5 5 Angel 539.8 2002-02-26subset(df1_R, select = uang_saku) #ekstrak kolom uang saku## uang_saku
## 1 565.9
## 2 678.0
## 3 332.7
## 4 476.1
## 5 539.8subset(df1_R, select = 4) #ekstrak kolom ke-4## tanggal_lahir
## 1 2001-06-24
## 2 2003-04-29
## 3 2003-06-10
## 4 2004-01-21
## 5 2002-02-26subset(df1_R, select = c(1,2)) #ekstrak kolom pertama dan kedua## kode nama
## 1 1 Jeffry
## 2 2 Tasya
## 3 3 Natan
## 4 4 Gracia
## 5 5 Angelsubset(df1_R, select = c(2:4)) #ekstrak kolom ke-2 sampai ke-4## nama uang_saku tanggal_lahir
## 1 Jeffry 565.9 2001-06-24
## 2 Tasya 678.0 2003-04-29
## 3 Natan 332.7 2003-06-10
## 4 Gracia 476.1 2004-01-21
## 5 Angel 539.8 2002-02-265 Operasi ganti nama variabel pada data frame
mahasiswa_1 <- df1_R #ganti nama data frame
names(mahasiswa_1)<-c( #ganti nama variabel data frame
"No",
"Nama",
"Uang_Jajan",
"Tgl_Lahir",
"PRODI"
)
mahasiswa_1## No Nama Uang_Jajan Tgl_Lahir PRODI
## 1 1 Jeffry 565.9 2001-06-24 akuntansi
## 2 2 Tasya 678.0 2003-04-29 arsitektur
## 3 3 Natan 332.7 2003-06-10 akuntansi
## 4 4 Gracia 476.1 2004-01-21 manajemen
## 5 5 Angel 539.8 2002-02-26 arsitektur