Изменение мм / дд / гггг и м / дд / гггг на гггг

Question

У меня есть набор данных с датами, записанными следующим образом:

5/18/12 12/20/10 2/17/08

et c

Есть ли способ преобразовать их в формат гггг? Я изо всех сил, потому что они не включают 0 перед месяцами, поэтому каждая дата имеет разное количество символов в длину.

Answer 1

Используя пакет lubridate, вам нужно преобразовать строку в даты, а затем вы можете просто извлечь год с меткой year function

library(lubridate)
dates <- c("5/18/12", "12/20/10", "2/17/08")
dates <- as_date(dates,format = "%m/%d/%y", tz = "UTC" )
year(dates)

, которая дает:

[1] 2012 2010 2008

Answer 2

Мы можем использовать as.Date с format в base R

format(as.Date(c("5/18/12", "12/20/10", "2/17/08"), "%m/%d/%y") , "%Y")
#[1] "2012" "2010" "2008"