从R中的不同日期格式获取月份

Question

我正在尝试这段代码，并弄清楚为什么在第二个实例中我没有得到日期月份。

event_text <- c("7-May","Aug-89")
month(strptime(event_text[1], format = "%d-%b"))
5 #fine
month(strptime(event_text[2], format = "%b-%y"))
NA #not fine

Answer 1

我们可以使用month.abb和一些正则表达式：

> months <- gsub("\d+|\-", "", event_text)
> which(month.abb %in% months)
[1] 5 8