r - 用 as.Date 克服 Y2K

Question

我有一个我知道过去的日期列表，但格式为 28/MAY/13 .用它们制作日期类的最接近的方法是基本的

dates <- as.Date(dates, format="%d/%b/%y")

它适用于所有日期，但早于 1968 年的日期除外，如 ?as.Date页面注释:

%y Year without century (00–99). On input, values 00 to 68 are prefixed by 20 and 69 to 99 by 19 – that is the behaviour specified by the 2004 and 2008 POSIX standards, but they do also say ‘it is expected that in a future version the default century inferred from a 2-digit year will change’.

Excel 在这方面做得更好一些，假设(在这种情况下是正确的)30 年以上的所有事物都是 1930 年等。但如果可能的话，我更愿意回到 1914 年。我如何要求 R 将所有日期解释为过去？

Answer 1

像这样的东西:

Sys.setlocale("LC_TIME", "English")

dates <- as.Date(c("28/MAY/13","28/MAY/14"), format="%d/%b/%y")
#[1] "2013-05-28" "2014-05-28"

sub100 <- function(x) {
  x <- as.POSIXlt(x)
  x$year <- x$year-100
  as.Date(x)
}


dates[dates > as.Date("2013-12-31")] <- sub100(dates[dates > as.Date("2013-12-31")])
#[1] "2013-05-28" "1914-05-28"