Tugas

Tugas 2

Email             : rizal.andriana@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/rizalandriana
Github           : https://github.com/rizalandriana
Jurusan          : Teknik Informatika
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

1 DUA DATA FRAME

producers <- data.frame(   
  surname =  c("Oswaldo","Noel","Dio","Bimo","Kocun"),    
  nationality = c("US","US","UK","US","Poland"),    
  stringsAsFactors=FALSE)

# Data Frame yang akan digabungkan
movies <- data.frame(    
  surname = c("Oswaldo",
              "Noel",
              "Dio",
              "Dio",
              "Oswaldo",
              "Bimo",
              "Kocun"),    
  title = c("Super 8",
            "Taxi Driver",
            "Psycho",
            "North by Northwest",
            "Catch Me If You Can",
            "Reservoir Dogs","Chinatown"),                
  stringsAsFactors=FALSE)

# Menggabungkan Dua Data Frame 
m1 <- merge(producers, movies, by.x = "surname")
m1

##   surname nationality               title
## 1    Bimo          US      Reservoir Dogs
## 2     Dio          UK              Psycho
## 3     Dio          UK  North by Northwest
## 4   Kocun      Poland           Chinatown
## 5    Noel          US         Taxi Driver
## 6 Oswaldo          US             Super 8
## 7 Oswaldo          US Catch Me If You Can

2 DATA FRAME

emp.data <- data.frame(
  No = c (1:5), 
  Nama = c("Ricki","Daan","Megi","Ryan","Budi"),
  Gaji = c(623.3,515.2,611.0,729.0,843.25), 
  
  Tanggal  = as.Date(c("2012-01-01", "2013-09-23", "2014-11-15", "2014-05-11",
                         "2015-03-27")),
  stringsAsFactors = FALSE
)

# Menambah kolom Departemen.
emp.data$dept <- c("IT","Operations","IT","HR","Finance")
v <- emp.data
print(v)

##   No  Nama   Gaji    Tanggal       dept
## 1  1 Ricki 623.30 2012-01-01         IT
## 2  2  Daan 515.20 2013-09-23 Operations
## 3  3  Megi 611.00 2014-11-15         IT
## 4  4  Ryan 729.00 2014-05-11         HR
## 5  5  Budi 843.25 2015-03-27    Finance

3 DATA FRAME 1

nama <- c("Ana","Banu", "Cici", "Dido", "Erik")
tahun <- c(1992,1995,1993,1999,1994)
lahir <- data.frame(nama, tahun)
lahir

##   nama tahun
## 1  Ana  1992
## 2 Banu  1995
## 3 Cici  1993
## 4 Dido  1999
## 5 Erik  1994

4 Mengganti nama Colom

# Data Frame Utama {Producers}
producers <- data.frame(   
  surname =  c("Oswaldo","Noel","Dio","Bimo","Kocun"),    
  nationality = c("US","US","UK","US","Poland"),    
  stringsAsFactors=FALSE)
  
# Data Frame yang akan digabungkan
movies <- data.frame(    
  surname = c("Oswaldo",
              "Noel",
              "Dio",
              "Dio",
              "Oswaldo",
              "Bimo",
              "Kocun"),    
  title = c("Super 8",
            "Taxi Driver",
            "Psycho",
            "North by Northwest",
            "Catch Me If You Can",
            "Reservoir Dogs","Chinatown"),                
  stringsAsFactors=FALSE)

# Menggabungkan Dua Data Frame 
m1 <- merge(producers, movies, by.x = "surname")
m1

##   surname nationality               title
## 1    Bimo          US      Reservoir Dogs
## 2     Dio          UK              Psycho
## 3     Dio          UK  North by Northwest
## 4   Kocun      Poland           Chinatown
## 5    Noel          US         Taxi Driver
## 6 Oswaldo          US             Super 8
## 7 Oswaldo          US Catch Me If You Can

# Mengganti nama kolom "movies" 
colnames(movies)[colnames(movies) == 'surname'] <- 'name'