日期为两位数的年份

Question

如果出于某种原因将日期10.10.61 （DD.MM.YY）转换为as.Date(date, format="%d.%m.%y") ，则会将其转换为2061 -10-10 。

是否有一种优雅的方法可以纠正此问题，或者我必须手动将其切成薄片并在前面加上“ 19”吗？

我还尝试了Zoo程序包，该程序带来了相同（错误）的结果。

Answer 1

x = format(as.Date("10.10.61", "%d.%m.%y"), "19%y-%m-%d")
x = as.Date(x)
x
class(x)

Answer 2

请注意，单个sub将对字符串进行切片，并在年份前加上19，因此它并不繁琐：

as.Date(sub("(..)$", "19\\1", date), "%d.%m.%Y")
## [1] "1961-10-10"

chron可选地，chron软件包的默认截止日期为30，因此默认情况下将使用1961：

library(chron)
as.Date(dates(date, format = "d.m.y"))
## [1] "1961-10-10"

在chron中，年份扩展规则由"chron.year.expand"选项定义，该选项默认设置为year.expand函数，该函数的默认cut.off为30。有关更多信息，请参cut.off SO帖子： 添加正确的世纪迄今提供的年份为“无世纪年份”，％y

Answer 3

如果您所有的日期都在1900年代，那么您可以使用以下解决方案：

library(magrittr)
your_date = '10.10.61'
as.Date(your_date,format="%d.%m.%y") %>% format("19%y%m%d") %>% as.Date("%Y%m%d")