Algoritma dan Struktur Data

Tugas 3

Email             : noviaalbl02@gmail.com
RPubs            : https://rpubs.com/noviaanita/
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 R

1.1 Buat sebuah list untuk menyimpan 5 orang teman dekatmu

list0 = list()
list1 = list("Dhira","Rika","Meme","Sita","Dewi")
print(c(list0,list1))

## [[1]]
## [1] "Dhira"
## 
## [[2]]
## [1] "Rika"
## 
## [[3]]
## [1] "Meme"
## 
## [[4]]
## [1] "Sita"
## 
## [[5]]
## [1] "Dewi"

1.2 Pilihlah satu orang dari list tersebut yang menjadi teman paling dekatmu dengan menggunakan index

list2 = list("Dhira","Rika","Meme","Sita","Dewi")
print(list2[1])

## [[1]]
## [1] "Dhira"

1.3 Gantilah satu orang yang tidak begitu dekat denganmu dengan teman baru yang kamu temui baru-baru ini

list3 = list("Dhira","Rika","Dewi","Sita","Meme")
list3[3] = "Selena"

print(list3)

## [[1]]
## [1] "Dhira"
## 
## [[2]]
## [1] "Rika"
## 
## [[3]]
## [1] "Selena"
## 
## [[4]]
## [1] "Sita"
## 
## [[5]]
## [1] "Meme"

1.4 Bagaimana caranya anda menghitung banyak teman yang ada dalam list tersebut

length(list3)

## [1] 5

2 Buatlah contoh menyimpan sekumpulan tuple dengan R dengan mengikuti instruksi berikut:

2.1 Buatlah Tuple dengan 5 item didalamnya

library(sets)
tuple = tuple("Buku" , "Pulpen" , "Stip x" , "Pensil" , "Penghapus")

print(tuple)

## ("Buku", "Pulpen", "Stip x", "Pensil", "Penghapus")

tuple1 = tuple("Jam tangan", "Anting", "Kalung", "kacamata", "Dompet")

print(tuple1)

## ("Jam tangan", "Anting", "Kalung", "kacamata", "Dompet")

2.2 Perlihatkan cara Mengakses Nilai Tuple

library(sets
        )
tuple = tuple("Buku","Pulpen","Stip x","Pensil","Penghapus")

print(c(tuple[3]))

## ("Stip x")

library(sets)

tuple1 = tuple("Jam tangan", "Anting", "Kalung", "kacamata", "Dompet")

print(c(tuple1[2]))

## ("Anting")

2.3 Bagaimana anda melakukan Slicing Nilai Tuple

tuple = tuple("Buku", "Pulpen", "Stip x", "Pensil", "Penghapus")

print(tuple[3:5])

## ("Stip x", "Pensil", "Penghapus")

tuple1 = tuple("Jam tangan", "Anting", "Kalung", "kacamata", "Dompet")

print(tuple1[4:5])

## ("kacamata", "Dompet")

2.4 Nested Tuple

tuple = tuple("Buku", "Pulpen", "Stip x", "Pensil", "Penghapus")
tuple1 = tuple("Jam tangan", "Anting", "Kalung", "kacamata", "Dompet")
tuple2 = c(tuple, tuple1) 

print(tuple2)

## ("Buku", "Pulpen", "Stip x", "Pensil", "Penghapus", "Jam tangan",
##  "Anting", "Kalung", "kacamata", "Dompet")

tuple3 = rep(tuple, 2)
print(tuple3)

## ("Buku", "Pulpen", "Stip x", "Pensil", "Penghapus", "Buku", "Pulpen",
##  "Stip x", "Pensil", "Penghapus")

2.5 Unpacking Sequence

tuple = tuple("Buku", "Pulpen", "Stip x", "Pensil", "Penghapus")
names (tuple) = c("index1", "index2", "index3", "index4", "index5") 

print(tuple)

## (index1 = "Buku", index2 = "Pulpen", index3 = "Stip x", index4 =
##  "Pensil", index5 = "Penghapus")

tuple1 = tuple("Jam tangan", "Anting", "Kalung", "kacamata", "Dompet")
names (tuple1) = c("index1", "index2", "index3", "index4", "index5")

print(tuple1)

## (index1 = "Jam tangan", index2 = "Anting", index3 = "Kalung", index4 =
##  "kacamata", index5 = "Dompet")

3 Buatlah contoh menyimpan sekumpulan Dictionary dengan R, yang memuat type data float, integer, character, dan logical, list, tuple, dictionary dengan mengikuti instruksi berikut:

3.1 Akses suatu nilai Item dari Dictionary

library(Dict)

## 
## Attaching package: 'Dict'

## The following object is masked from 'package:sets':
## 
##     %>%

library(Dict)
Biodata = dict(
  nama = "Novia Anita",
  umur = as.integer(19),
  hobi = list("makan","baca wattpad","tidur"),
  Single = FALSE,
  sosmed = tuple(facebook = "novia labola",
                 instagram = "novia_labola"))

print(Biodata$get('sosmed')['instagram'])

## (instagram = "novia_labola")

cat("Nama saya adalah :", Biodata$get('nama'))

## Nama saya adalah : Novia Anita

3.2 Ubah suatu Nilai Item pada Dictionary

Biodata['nama'] = "Calon Istri Idaman"
print(Biodata$get('nama'))

## [1] "Calon Istri Idaman"

3.3 Menambahkan Item ke Dictionary

Biodata$add(umur=18L)
print(Biodata)

## # A tibble: 5 x 2
##   key    value     
##   <chr>  <list>    
## 1 hobi   <list [3]>
## 2 nama   <chr [1]> 
## 3 Single <lgl [1]> 
## 4 sosmed <tuple>   
## 5 umur   <int [1]>

3.4 Menghapus Item dari Dictionary

Biodata$remove('hobi')
print(Biodata)

## # A tibble: 4 x 2
##   key    value    
##   <chr>  <list>   
## 1 nama   <chr [1]>
## 2 Single <lgl [1]>
## 3 sosmed <tuple>  
## 4 umur   <int [1]>

4 Silahkan untuk menemukan operasi Pengindeksan, Pengirisan, dan Subsetting Data Frame dengan Menggunkan R.

# Membentuk Data Frame 1
df1_R = data.frame(kode = c (1:5), 
                   'Nama' = c ("Dhira", "Dewi", "Meme", "Rica", "Naufal"), 
                   'Angkatan Sekolah' = c ("2021", "2021", "2021", "2020", "2020"), 
                   'Jurusan' = c ("Keperawatan", "Keperawatan", "Teklabmed", "Farmasi", "Tkj"), 
                   'Kampus' = c ("ITKES WHS", "UNMUL", "UMKT", "UNMUL", "POLTEKKES KALTIM")
                   )
# Membentuk Data Frame 2 
df2_R = data.frame(kode = c (6:10),
                   'Nama' = c ("Novia", "Indah", "Maulida", "Nia", "Vindy"),
                   'Angkatan Sekolah' = c ("2021", "2021", "2021", "2021", "2021"),
                   'Jurusan' = c ("Keperawatan", "Keperawatan", "Keperawatan", "Keperawatan", "Keperawatan"),
                   'Kampus' = c ("Matana University","STIK Budi Kemuliaan","POLTEKKES KALTIM","STIKSAM Samarinda","UNMUL")
 
                    )
print(df1_R)   

##   kode   Nama Angkatan.Sekolah     Jurusan           Kampus
## 1    1  Dhira             2021 Keperawatan        ITKES WHS
## 2    2   Dewi             2021 Keperawatan            UNMUL
## 3    3   Meme             2021   Teklabmed             UMKT
## 4    4   Rica             2020     Farmasi            UNMUL
## 5    5 Naufal             2020         Tkj POLTEKKES KALTIM

print(df2_R)

##   kode    Nama Angkatan.Sekolah     Jurusan              Kampus
## 1    6   Novia             2021 Keperawatan   Matana University
## 2    7   Indah             2021 Keperawatan STIK Budi Kemuliaan
## 3    8 Maulida             2021 Keperawatan    POLTEKKES KALTIM
## 4    9     Nia             2021 Keperawatan   STIKSAM Samarinda
## 5   10   Vindy             2021 Keperawatan               UNMUL

4.1 Menggabungkan dua data frame

df3_R <- rbind(df1_R,df2_R)
df3_R

##    kode    Nama Angkatan.Sekolah     Jurusan              Kampus
## 1     1   Dhira             2021 Keperawatan           ITKES WHS
## 2     2    Dewi             2021 Keperawatan               UNMUL
## 3     3    Meme             2021   Teklabmed                UMKT
## 4     4    Rica             2020     Farmasi               UNMUL
## 5     5  Naufal             2020         Tkj    POLTEKKES KALTIM
## 6     6   Novia             2021 Keperawatan   Matana University
## 7     7   Indah             2021 Keperawatan STIK Budi Kemuliaan
## 8     8 Maulida             2021 Keperawatan    POLTEKKES KALTIM
## 9     9     Nia             2021 Keperawatan   STIKSAM Samarinda
## 10   10   Vindy             2021 Keperawatan               UNMUL

head(df3_R)                                                # Mencetak enam baris pertama

##   kode   Nama Angkatan.Sekolah     Jurusan            Kampus
## 1    1  Dhira             2021 Keperawatan         ITKES WHS
## 2    2   Dewi             2021 Keperawatan             UNMUL
## 3    3   Meme             2021   Teklabmed              UMKT
## 4    4   Rica             2020     Farmasi             UNMUL
## 5    5 Naufal             2020         Tkj  POLTEKKES KALTIM
## 6    6  Novia             2021 Keperawatan Matana University

tail(df3_R)                                               # Mencetak enam baris terakhir

##    kode    Nama Angkatan.Sekolah     Jurusan              Kampus
## 5     5  Naufal             2020         Tkj    POLTEKKES KALTIM
## 6     6   Novia             2021 Keperawatan   Matana University
## 7     7   Indah             2021 Keperawatan STIK Budi Kemuliaan
## 8     8 Maulida             2021 Keperawatan    POLTEKKES KALTIM
## 9     9     Nia             2021 Keperawatan   STIKSAM Samarinda
## 10   10   Vindy             2021 Keperawatan               UNMUL

4.2 Ekstraksi Data Frame

typeof(df3_R)                                               # Cek tipe data

## [1] "list"

class(df3_R)                                                # Cek tipe data

## [1] "data.frame"

df3_R[1,5]                                                 # ekstrak elemen di baris ke-1 dan kolom ke-5 

## [1] "ITKES WHS"

df3_R$Nama                                                 # ekstrak spesifik kolom (`nama`)

##  [1] "Dhira"   "Dewi"    "Meme"    "Rica"    "Naufal"  "Novia"   "Indah"  
##  [8] "Maulida" "Nia"     "Vindy"

df3_R[,c('Nama','Jurusan')]                                # ekstrak spesifik kolom (`nama, jurusan`)

##       Nama     Jurusan
## 1    Dhira Keperawatan
## 2     Dewi Keperawatan
## 3     Meme   Teklabmed
## 4     Rica     Farmasi
## 5   Naufal         Tkj
## 6    Novia Keperawatan
## 7    Indah Keperawatan
## 8  Maulida Keperawatan
## 9      Nia Keperawatan
## 10   Vindy Keperawatan

df3_R[1:5,]                                                # ekstrak lima baris pertama df3_R 

##   kode   Nama Angkatan.Sekolah     Jurusan           Kampus
## 1    1  Dhira             2021 Keperawatan        ITKES WHS
## 2    2   Dewi             2021 Keperawatan            UNMUL
## 3    3   Meme             2021   Teklabmed             UMKT
## 4    4   Rica             2020     Farmasi            UNMUL
## 5    5 Naufal             2020         Tkj POLTEKKES KALTIM

df3_R[,1:4]                                                # ekstrak empat kolom pertama df3_R

##    kode    Nama Angkatan.Sekolah     Jurusan
## 1     1   Dhira             2021 Keperawatan
## 2     2    Dewi             2021 Keperawatan
## 3     3    Meme             2021   Teklabmed
## 4     4    Rica             2020     Farmasi
## 5     5  Naufal             2020         Tkj
## 6     6   Novia             2021 Keperawatan
## 7     7   Indah             2021 Keperawatan
## 8     8 Maulida             2021 Keperawatan
## 9     9     Nia             2021 Keperawatan
## 10   10   Vindy             2021 Keperawatan

subset(df3_R, select=5)                                   # ekstrak/subset spesifik kolom

##                 Kampus
## 1            ITKES WHS
## 2                UNMUL
## 3                 UMKT
## 4                UNMUL
## 5     POLTEKKES KALTIM
## 6    Matana University
## 7  STIK Budi Kemuliaan
## 8     POLTEKKES KALTIM
## 9    STIKSAM Samarinda
## 10               UNMUL

subset(df3_R, select= c(2,3))                              # ekstrak/subset kolom kedua dan ketiga 

##       Nama Angkatan.Sekolah
## 1    Dhira             2021
## 2     Dewi             2021
## 3     Meme             2021
## 4     Rica             2020
## 5   Naufal             2020
## 6    Novia             2021
## 7    Indah             2021
## 8  Maulida             2021
## 9      Nia             2021
## 10   Vindy             2021

subset(df3_R, select= c(4:5))                               # ekstrak/subset kolom tertentu

##        Jurusan              Kampus
## 1  Keperawatan           ITKES WHS
## 2  Keperawatan               UNMUL
## 3    Teklabmed                UMKT
## 4      Farmasi               UNMUL
## 5          Tkj    POLTEKKES KALTIM
## 6  Keperawatan   Matana University
## 7  Keperawatan STIK Budi Kemuliaan
## 8  Keperawatan    POLTEKKES KALTIM
## 9  Keperawatan   STIKSAM Samarinda
## 10 Keperawatan               UNMUL

5 Buatlah operasi Ganti Nama Variabel pada suatu Data Frame dengan menggunakan R

rename_1<-df3_R
names(rename_1)<-c("no",
                "Nama",
                "Angkatan Sekolah",
                "Jurusan",
                "Kampus") 
rename_1

##    no    Nama Angkatan Sekolah     Jurusan              Kampus
## 1   1   Dhira             2021 Keperawatan           ITKES WHS
## 2   2    Dewi             2021 Keperawatan               UNMUL
## 3   3    Meme             2021   Teklabmed                UMKT
## 4   4    Rica             2020     Farmasi               UNMUL
## 5   5  Naufal             2020         Tkj    POLTEKKES KALTIM
## 6   6   Novia             2021 Keperawatan   Matana University
## 7   7   Indah             2021 Keperawatan STIK Budi Kemuliaan
## 8   8 Maulida             2021 Keperawatan    POLTEKKES KALTIM
## 9   9     Nia             2021 Keperawatan   STIKSAM Samarinda
## 10 10   Vindy             2021 Keperawatan               UNMUL