Возможно, лучший оптимизированный вариант - использовать gsub
и заменить значение year
на:
gsub("(.*)/\\d{4}$","\\1","4/12/2017")
#[1] "4/12"
Предположим, вы получили data.frame в виде df
со столбцом даты в качестве date
тогда можно попробовать:
df$date <- gsub("(.*)/\\d{4}$","\\1",df$date)