将正确的世纪添加到日期中，年份提供为“没有世纪的年份”，%y

Question

我有一个%d%b%y格式的生日文件。 一些例如。

# "01DEC71" "01AUG54" "01APR81" "01MAY81" "01SEP83" "01FEB59"

我试图将日期重新格式化为

o108$fmtbirth <- format(as.Date(o108$birth, "%d%b%y"), "%Y/%m/%d")

这就是结果

# "1971/12/01" "2054/08/01" "1981/04/01" "1981/05/01" "1983/09/01" "2059/02/01"

这些是生日，我看到 2054。从这个页面我看到 00 到 68 之间的年份值被编码为 20 世纪。 有没有办法切换这个，在我的情况下，我只想将 00 到 12 编码为 20。

Answer 1

1) 时间。 chron 默认使用 30，因此这会将它们首先转换为 Date（因为 chron 无法读取这些类型的日期），重新格式化为具有两位数年份的字符，转换为 chron 可以理解的格式，最后返回到日期。

library(chron)
xx <- c("01AUG11", "01AUG12", "01AUG13") # sample data
as.Date(chron(format(as.Date(xx, "%d%b%y"), "%m/%d/%y")))

这给出了 30 的截止值，但我们可以使用 chron 的chron.year.expand选项获得 13 的截止值：

library(chron)
options(chron.year.expand = 
     function (y, cut.off = 12, century = c(1900, 2000), ...) {
        chron:::year.expand(y, cut.off = cut.off, century = century, ...)
     }
)

然后重复原来的转换。 例如，假设我们已经运行了这个选项语句，我们将使用xx获得以下内容：

> as.Date(chron(format(as.Date(xx, "%d%b%y"), "%m/%d/%y")))
[1] "2011-08-01" "2012-08-01" "1913-08-01"

2) 仅日期。 这是一个不使用 chron 的替代方法。 如果想法是未来的日期真的要设置在 100 年前，您可能想用Sys.Date()替换"2012-12-31" ：

d <- as.Date(xx, "%d%b%y")
as.Date(ifelse(d > "2012-12-31", format(d, "19%y-%m-%d"), format(d)))

编辑：添加仅日期解决方案。

Answer 2

请参阅相关线程的响应：

format(as.Date("65-05-14", "%y-%m-%d"), "19%y-%m-%d")

Answer 3

o108$fmtbirth <- format(as.Date(o108$birth, "%d%b%y"), "%Y/%m/%d")

o108$fmtbirth <- as.Date(ifelse(o108$fmtbirth > Sys.Date(), 
                                format(o108$fmtbirth, "19%y-%m-%d"),
                                format(o108$fmtbirth)))