# Create the first data frame.

emp.data <- data.frame(

   emp_id = c (1:5),

   emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),

   salary = c(623.3,515.2,611.0,729.0,843.25),

​

   start_date = as.Date(c("2019-01-01", "2020-09-23", "2014-11-15", "2014-05-11",

      "2015-03-27")),

   dept = c("IT","Operations","IT","HR","Finance"),

   stringsAsFactors = FALSE

)

​

# Create the second data frame

emp.newdata <-  data.frame(

   emp_id = c (6:8),

   emp_name = c("Rasmi","Pranab","Tusar"),

   salary = c(578.0,722.5,632.8),

   start_date = as.Date(c("2020-05-21","2020-07-30","2014-06-17")),

   dept = c("IT","Operations","Fianance"),

   stringsAsFactors = FALSE

)

​

# Bind the two data frames.

emp.finaldata <- rbind(emp.data,emp.newdata)

print(emp.finaldata)

​