Tugas3

Pengenalan Struktur Data

Email             : calvin.riswandi@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/Calvinriswandy/
Jurusan          : Statistika
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 dan Python

1.1 Buat sebuah list untuk menyimpan 5 orang teman dekatmu

list0 = list()                                                      #Mem
list1 = list("Naftali","Jimy","Dimas","Biondy","Eldwin")

print(list1)

## [[1]]
## [1] "Naftali"
## 
## [[2]]
## [1] "Jimy"
## 
## [[3]]
## [1] "Dimas"
## 
## [[4]]
## [1] "Biondy"
## 
## [[5]]
## [1] "Eldwin"

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

list1 = list("Naftali","Jimy","Dimas","Biondy","Eldwin")
print(list1[3])

## [[1]]
## [1] "Dimas"

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

list1 = list("Naftali","Jimy","Dimas","Biondy","Eldwin")
list1[5] = "Ferdinand"

print(list1)

## [[1]]
## [1] "Naftali"
## 
## [[2]]
## [1] "Jimy"
## 
## [[3]]
## [1] "Dimas"
## 
## [[4]]
## [1] "Biondy"
## 
## [[5]]
## [1] "Ferdinand"

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

length(list1)

## [1] 5

2 Buatlah contoh menyimpan sekumpulan tuple dengan R dan Python, dengan mengikuti instruksi berikut

2.1 Buatlah Tuple dengan 5 item didalamnya

library(sets)
tuple2 = tuple("Motor","Mobil","Kereta","Bajai","Pesawat")  
print(tuple2)

## ("Motor", "Mobil", "Kereta", "Bajai", "Pesawat")

2.2 Perlihatkan cara Mengakses Nilai Tuple

print(tuple2[2])

## ("Mobil")

print(tuple2[5])

## ("Pesawat")

2.3 Bagaiman anda melakukan Slicing Nilai Tuple

tuple5 = tuple("Saya","Ingin","Pergi","Naik","Motor")
print(tuple5[2:5])

## ("Ingin", "Pergi", "Naik", "Motor")

2.4 Nested Tuple

tuple7 = rep(tuple5, 10)
tuple8 =c(tuple5, tuple2)

print(tuple7)

## ("Saya", "Ingin", "Pergi", "Naik", "Motor", "Saya", "Ingin", "Pergi",
##  "Naik", "Motor", "Saya", "Ingin", "Pergi", "Naik", "Motor", "Saya",
##  "Ingin", "Pergi", "Naik", "Motor", "Saya", "Ingin", "Pergi", "Naik",
##  "Motor", "Saya", "Ingin", "Pergi", "Naik", "Motor", "Saya", "Ingin",
##  "Pergi", "Naik", "Motor", "Saya", "Ingin", "Pergi", "Naik", "Motor",
##  "Saya", "Ingin", "Pergi", "Naik", "Motor", "Saya", "Ingin", "Pergi",
##  "Naik", "Motor")

print(tuple8)

## ("Saya", "Ingin", "Pergi", "Naik", "Motor", "Motor", "Mobil", "Kereta",
##  "Bajai", "Pesawat")

3 Buatlah contoh menyimpan sekumpulan Dictionary dengan R dan Python, 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':
## 
##     %>%

calvinriswandy = dict(
  nama = "Calvin Riswandi",                                  
  umur = as.integer(17),                                    
  hobi = list("main game", "olahraga"),            
  menikah = FALSE,
  sosmed = tuple(instagram= "cvnopp_")
)

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

## Nama saya adalah : Calvin Riswandi

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

## (instagram = "cvnopp_")

3.2 Ubah suatu Nilai Item pada Dictionary

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

## Nama saya adalah: Calvin Riswandi

print(calvinriswandy$get('hobi'))

## [[1]]
## [1] "main game"
## 
## [[2]]
## [1] "olahraga"

3.3 Menambahkan Item ke Dictionary

calvinriswandy["nama"] = "Calvin Riswandi"                 
print(calvinriswandy$get('nama'))

## [1] "Calvin Riswandi"

3.4 Menghapus Item dari Dictionary

calvinriswandy$remove("menikah")

print(calvinriswandy)

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

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

4.1

df1_R <- data.frame(kode = c (1:5),                                                                             # Memberi kode pada data frame 1-5
                    nama = c("Naftali","Jimy","Dimas","Biondy","Eldwin"),                                       # Memberi List berisi item nama
                    gaji = c("Rp4.000.000","Rp6.000.000","Rp6.800.000","Rp9.900.000","Rp3.500.000"),            # Memberi List berisi item gaji
                    mulai_kerja = as.Date(c("2001-01-11","2008-05-18","2007-10-30","2002-12-02","2003-08-25")), # Memberi List berisi item tanggal
                    divisi = c("Alfamart","Alfamart","Alfamart","Alfamart","Alfamart"), stringsAsFactors = F)                                
           # Memberi List berisi item divisi

print(df1_R)

##   kode    nama        gaji mulai_kerja   divisi
## 1    1 Naftali Rp4.000.000  2001-01-11 Alfamart
## 2    2    Jimy Rp6.000.000  2008-05-18 Alfamart
## 3    3   Dimas Rp6.800.000  2007-10-30 Alfamart
## 4    4  Biondy Rp9.900.000  2002-12-02 Alfamart
## 5    5  Eldwin Rp3.500.000  2003-08-25 Alfamart

df2_R <- data.frame(kode = c (6:10),                                                                            # Memberi kode pada data frame 1-5
                    nama = c("Abner","Naomi","Natalie","Noel","Angga"),                                         # Memberi List berisi item nama
                    gaji = c("Rp5.500.000","Rp7.600.000","Rp3.600.000","Rp4.350.000","Rp7.800.000"),            # Memberi List berisi item gaji
                    mulai_kerja = as.Date(c("2022-03-21","2022-01-12","2022-12-20","2022-09-02","2022-06-21")), # Memberi List berisi item tanggal
                    divisi = c("Indomaret","Indomaret","Indomaret","Indomaret","Indomaret"), stringsAsFactors = F)          
          # Memberi List berisi item divisi

print(df2_R)

##   kode    nama        gaji mulai_kerja    divisi
## 1    6   Abner Rp5.500.000  2022-03-21 Indomaret
## 2    7   Naomi Rp7.600.000  2022-01-12 Indomaret
## 3    8 Natalie Rp3.600.000  2022-12-20 Indomaret
## 4    9    Noel Rp4.350.000  2022-09-02 Indomaret
## 5   10   Angga Rp7.800.000  2022-06-21 Indomaret

typeof(df1_R)

## [1] "list"

class(df1_R)  

## [1] "data.frame"

df1_R[2,4]    

## [1] "2008-05-18"

df1_R$nama  

## [1] "Naftali" "Jimy"    "Dimas"   "Biondy"  "Eldwin"

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

##          gaji   divisi
## 1 Rp4.000.000 Alfamart
## 2 Rp6.000.000 Alfamart
## 3 Rp6.800.000 Alfamart
## 4 Rp9.900.000 Alfamart
## 5 Rp3.500.000 Alfamart

df1_R[ ,1:3]

##   kode    nama        gaji
## 1    1 Naftali Rp4.000.000
## 2    2    Jimy Rp6.000.000
## 3    3   Dimas Rp6.800.000
## 4    4  Biondy Rp9.900.000
## 5    5  Eldwin Rp3.500.000

df1_R[1:2, ] 

##   kode    nama        gaji mulai_kerja   divisi
## 1    1 Naftali Rp4.000.000  2001-01-11 Alfamart
## 2    2    Jimy Rp6.000.000  2008-05-18 Alfamart

subset(df1_R, select=c(1:5)) 

##   kode    nama        gaji mulai_kerja   divisi
## 1    1 Naftali Rp4.000.000  2001-01-11 Alfamart
## 2    2    Jimy Rp6.000.000  2008-05-18 Alfamart
## 3    3   Dimas Rp6.800.000  2007-10-30 Alfamart
## 4    4  Biondy Rp9.900.000  2002-12-02 Alfamart
## 5    5  Eldwin Rp3.500.000  2003-08-25 Alfamart

subset(df1_R, select=c(2,3))

##      nama        gaji
## 1 Naftali Rp4.000.000
## 2    Jimy Rp6.000.000
## 3   Dimas Rp6.800.000
## 4  Biondy Rp9.900.000
## 5  Eldwin Rp3.500.000

subset(df1_R, select = divisi)

##     divisi
## 1 Alfamart
## 2 Alfamart
## 3 Alfamart
## 4 Alfamart
## 5 Alfamart

subset(df1_R, select = 4)

##   mulai_kerja
## 1  2001-01-11
## 2  2008-05-18
## 3  2007-10-30
## 4  2002-12-02
## 5  2003-08-25

summary(df1_R)

##       kode       nama               gaji            mulai_kerja        
##  Min.   :1   Length:5           Length:5           Min.   :2001-01-11  
##  1st Qu.:2   Class :character   Class :character   1st Qu.:2002-12-02  
##  Median :3   Mode  :character   Mode  :character   Median :2003-08-25  
##  Mean   :3                                         Mean   :2004-10-04  
##  3rd Qu.:4                                         3rd Qu.:2007-10-30  
##  Max.   :5                                         Max.   :2008-05-18  
##     divisi         
##  Length:5          
##  Class :character  
##  Mode  :character  
##                    
##                    
## 

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

df2_R<-df1_R                                  # Merubah nama data frame df1_R menjadi df2_R
names(df2_R)<-c("Kode",                       # Merubah nama variable pada data frame df2_R
                   "Nama",
                   "Gaji",
                   "Mulai Bekerja",
                   "Divisi")

print(df2_R)

##   Kode    Nama        Gaji Mulai Bekerja   Divisi
## 1    1 Naftali Rp4.000.000    2001-01-11 Alfamart
## 2    2    Jimy Rp6.000.000    2008-05-18 Alfamart
## 3    3   Dimas Rp6.800.000    2007-10-30 Alfamart
## 4    4  Biondy Rp9.900.000    2002-12-02 Alfamart
## 5    5  Eldwin Rp3.500.000    2003-08-25 Alfamart