我有一个包含许多文件(通过list.files
和读取lapply
)的文件夹,这些文件混合使用两位数和四位数字年份。80 年代和 90 年代的日期是两位数,2000 年代的日期是四位数字(但这些在每个文件中都混合在一起,所以我不能正则表达式文件名)。
有没有首选的方法来处理这个?我有以下临时解决方案。
vec1 <- c("06/30/97", "12/31/99", "01/01/2000", "05/25/2001")
vec2 <- as.POSIXlt(as.Date(vec1, "%m/%d/%Y"))
vec3 <- vec2
vec3$year <- ifelse(vec3$year < 100, vec3$year + 1900, vec3$year)
这似乎特别笨拙。这些情况有效,但这一定会正确调整 %y 到 %Y 吗?恐怕这会因为闰年之类的而悄然失败。谢谢!