Предполагая, что столбец rejected_at
- это просто текст, вы можете попробовать использовать sub
здесь:
x <- "12/30/2018 4:05:44 PM"
sub("/[^/]+$", "", x)
[1] "12/30"
Или, в вашем случае:
Job_applications$new_col <- sub("/[^/]+$", "", Job_applications$rejected_at)
Редактировать:
Если вы также хотели сохранить год, то мы можем попробовать использовать sub
с группой захвата, нацеленной на полную дату:
sub("(\\d+/\\d+/\\d+).*", "\\1", x)
[1] "12/30/2018"