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