# Create the 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")),

   stringsAsFactors = FALSE

)

# Extract Specific columns.

result <- data.frame(emp.data$emp_name,emp.data$salary)

print(result)

​