r - 将字符转换为日期

Question

我有一个带有以下格式日期的向量:

 dates <- c("01AUG2006","01DEC2006","01JUN2006","01MAY2007")

为了将此向量转换为 Date 类的对象，我编写了以下函数:

convert2Date <- function(x) {
  require(car)
  d <- substr(x,0,2)
  m.text <- substr(x,3,5)
  m <- Recode(m.text, "'JAN'=1 ;'FEB'=2;'MAR'=3;'APR'=4;'MAY'=5;'JUN'=6; 
                       'JUL'=7;'AUG'=8;'SEP'=9;'OCT'=10;'NOV'=11;'DEC'=12")
  y <- substr(x,6,9)
  out <- as.Date(paste(d,m,y,sep="/"),"%d/%m/%Y")
  out
}

使用示例日期变量:

test <- convert2Date(dates)
[1] "2006-08-01" "2006-12-01" "2006-06-01" "2007-05-01"
class(test)
[1] "Date"

这可行，但看起来有点麻烦，并且仅适用于这种特定格式。由于这可能是一个常见问题，因此必须有一种更简单、更通用的方法来做到这一点。有人有什么建议吗？非常感谢!

Answer 1

看起来好像

as.Date(dates,format="%d%b%Y")

工作正常吗？

[1] "2006-08-01" "2006-12-01" "2006-06-01" "2007-05-01"