Tugas 3

Mengenal Struktur Data

Email             : naftali.gunawan@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/naftalibrigitta/
Jurusan          : Statistika Bisnis
Address         : Perumahan Ciater Permai
                         Jl. Anggrek III, Blok A5 No. 10, RT 001, RW 004, Serpong, Tangerang Selatan, Banten 15310.

---

1 List

1.1 Buat sebuah list untuk menyimpan 5 orang teman dekatmu

list1 = list("baim", "jimy", "dhela", "sausan", "alicia")

print(list1)

## [[1]]
## [1] "baim"
## 
## [[2]]
## [1] "jimy"
## 
## [[3]]
## [1] "dhela"
## 
## [[4]]
## [1] "sausan"
## 
## [[5]]
## [1] "alicia"

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

print(list1[3])

## [[1]]
## [1] "dhela"

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

list1[2] = "natalie"
print(list1)

## [[1]]
## [1] "baim"
## 
## [[2]]
## [1] "natalie"
## 
## [[3]]
## [1] "dhela"
## 
## [[4]]
## [1] "sausan"
## 
## [[5]]
## [1] "alicia"

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

length(list1)

## [1] 5

2 Tuple

2.1 Buatlah Tuple dengan 5 item didalamnya

library(sets)
tuple2 = tuple("anjing", "kelinci", "entok", "bebek", "kucing")
print(tuple2)

## ("anjing", "kelinci", "entok", "bebek", "kucing")

2.2 Perlihatkan cara Mengakses Nilai Tuple

print(tuple2[2])

## ("kelinci")

2.3 Bagaimana anda melakukan Slicing Nilai Tuple

tuple7 = tuple("saya", "ini", "adalah", "anak", "anjing")
print(tuple7[2:5])

## ("ini", "adalah", "anak", "anjing")

2.4 Nested Tuple

tuple9 = c(tuple2 , tuple7)
print(tuple9)

## ("anjing", "kelinci", "entok", "bebek", "kucing", "saya", "ini",
##  "adalah", "anak", "anjing")

3 Dictionary

3.1 Akses suatu nilai Item dari Dictionary

library(Dict)

## 
## Attaching package: 'Dict'

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

naftalibrigitta = dict(
  nama = "Naftali Brigitta Gunawan", 
  umur = as.integer(18), 
  hobi = list("main game", "membaca komik", "menyiram tanaman"), 
  menikah = FALSE, 
  sosmed = tuple(instagram = "nbrigittag", 
                 facebook = "Naftali Brigitta")
)

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

## Nama saya adalah : Naftali Brigitta Gunawan

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

## (instagram = "nbrigittag")

3.2 Ubah suatu Nilai Item pada Dictionary

naftalibrigitta['sosmed']['facebook'] = "Naftali Brigitta yang profilnya mirror selfie"
print(naftalibrigitta$get('sosmed') ['facebook'])

## (facebook = "Naftali Brigitta yang profilnya mirror selfie")

3.3 Menambahkan Item ke Dictionary

naftalibrigitta$add("nama panggilan" = "Naf")
print(naftalibrigitta)

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

3.4 Menghapus Item dari Dictionary

naftalibrigitta$clear()
print(naftalibrigitta)

## # A tibble: 0 x 2
## # ... with 2 variables: key <chr>, value <list>

4 Data Frame

df1_R <- data.frame(kode = c (1:5), 
                     nama = c("Silvanna","Natasha","Julian","Moy","Kusdhiono"), 
                     gaji = c(500, 900, 700, 600, 800), 
              mulai_kerja =  as.Date(c("1972-08-30","1973-09-15","1978-07-06","1951-10-01","1952-01-06")), 
                     divisi = c ("DS","BS","BA","DA","CS"), stringsAsFactors = F )
print(df1_R)

##   kode      nama gaji mulai_kerja divisi
## 1    1  Silvanna  500  1972-08-30     DS
## 2    2   Natasha  900  1973-09-15     BS
## 3    3    Julian  700  1978-07-06     BA
## 4    4       Moy  600  1951-10-01     DA
## 5    5 Kusdhiono  800  1952-01-06     CS

5 Operasi

5.1 Pengindeksan, Pengirisan, Subsetting

typeof (df1_R) 

## [1] "list"

class (df1_R) 

## [1] "data.frame"

df1_R[1,5] 

## [1] "DS"

df1_R[,c('nama','gaji')] 

##        nama gaji
## 1  Silvanna  500
## 2   Natasha  900
## 3    Julian  700
## 4       Moy  600
## 5 Kusdhiono  800

df1_R[1:5,] 

##   kode      nama gaji mulai_kerja divisi
## 1    1  Silvanna  500  1972-08-30     DS
## 2    2   Natasha  900  1973-09-15     BS
## 3    3    Julian  700  1978-07-06     BA
## 4    4       Moy  600  1951-10-01     DA
## 5    5 Kusdhiono  800  1952-01-06     CS

6 Ganti Nama Variabel

df2_R <- df1_R
names(df2_R)<-c("Kode", 
                   "Nama",
                   "Gaji",
                   "Mulai Bekerja",
                   "Divisi")

print(df2_R)

##   Kode      Nama Gaji Mulai Bekerja Divisi
## 1    1  Silvanna  500    1972-08-30     DS
## 2    2   Natasha  900    1973-09-15     BS
## 3    3    Julian  700    1978-07-06     BA
## 4    4       Moy  600    1951-10-01     DA
## 5    5 Kusdhiono  800    1952-01-06     CS