从一周到今天

Question

我有一个字符向量

x=c("Thu Jan 30 2020")

当我在 base 包中使用函数 as.Date 时，它​​返回 NA。

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

我做错了什么？

Answer 1

硬编码的解决方法

s <- unlist(strsplit(x, " "))[c(4, 2, 3)]
as.Date(paste0(
  replace(
    s,
    2,
    sprintf("%02d", match(s[2], month.abb))
  ),
  collapse = "-"
))