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