library(lubridate) data$created_date1 <- mdy_hm(data$created_at) data$created_date1 <- as.Date(data$created_date1)