R中字符串到日期的转换的“标准明确日期”格式是什么？

请考虑以下

$ R --vanilla

> as.Date("01 Jan 2000")
Error in charToDate(x) :
    character string is not in a standard unambiguous format

但该日期显然是标准的明确格式。为什么会显示错误消息？

更糟糕的是，一个模棱两可的日期显然没有任何警告或错误就被接受，然后被错误地阅读！

> as.Date("01/01/2000")
[1] "0001-01-20"

我搜索并在[R]标记中找到包含此错误消息的28个其他问题。所有解决方案和解决方法都涉及指定iiuc格式。这个问题的不同之处在于，我要问的是，标准明确格式在哪里定义，并且可以更改吗？每个人都收到这些消息还是仅仅是我？也许与语言环境有关？

换句话说，是否有比指定格式更好的解决方案？

包含“ [R]标准明确格式”的29个问题

> sessionInfo()
R version 2.15.2 (2012-10-26)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United Kingdom.1252
[2] LC_CTYPE=English_United Kingdom.1252
[3] LC_MONETARY=English_United Kingdom.1252
[4] LC_NUMERIC=C
[5] LC_TIME=English_United Kingdom.1252

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

这是记录的行为。来自?as.Date：

格式：字符串。如果未指定，它将在第一个非“ NA”元素上尝试先执行““％Y-％m-％d”“，然后尝试执行”“％Y /％m /％d”“，并且如果两者都不起作用，则给出错误。

as.Date("01 Jan 2000")产生错误，因为格式不是上面列出的两种格式之一。 as.Date("01/01/2000")产生错误的答案，因为日期不是上面列出的两种格式之一。

我用“标准明确”来表示“ ISO-8601”（尽管as.Date不是那么严格，因为“％m /％d /％Y”不是ISO-8601）。

如果收到此错误，解决方案是使用中描述的格式指定日期（或日期时间）所用的格式?strptime。确保使用特别小心，如果你的数据包含日/月的名称和/或缩写，作为转换将取决于您的区域设置（见实例?strptime和读取?LC_TIME）。

换句话说，是否有比指定格式更好的解决方案？

是的，现在（即在2016年后期），这要归功于anytime::anydate从随时随地包。

请参阅以下内容，以获取上述示例：

R> anydate(c("01 Jan 2000", "01/01/2000", "2015/10/10"))
[1] "2000-01-01" "2000-01-01" "2015-10-10"
R> 

正如您所说，这些实际上是明确的，应该可以正常工作。通过anydate()他们做。没有格式。

作为@JoshuaUlrich答案的补充，这是function的定义as.Date.character：

as.Date.character
function (x, format = "", ...) 
{
    charToDate <- function(x) {
        xx <- x[1L]
        if (is.na(xx)) {
            j <- 1L
            while (is.na(xx) && (j <- j + 1L) <= length(x)) xx <- x[j]
            if (is.na(xx)) 
                f <- "%Y-%m-%d"
        }
        if (is.na(xx) || !is.na(strptime(xx, f <- "%Y-%m-%d", 
            tz = "GMT")) || !is.na(strptime(xx, f <- "%Y/%m/%d", 
            tz = "GMT"))) 
            return(strptime(x, f))
        stop("character string is not in a standard unambiguous format")
    }
    res <- if (missing(format)) 
        charToDate(x)
    else strptime(x, format, tz = "GMT")
    as.Date(res)
}
<bytecode: 0x265b0ec>
<environment: namespace:base>

所以基本上如果同时strptime(x, format="%Y-%m-%d")和strptime(x, format="%Y/%m/%d")抛出NA它被认为是不明确的，如果没有明确。

在不指定当前格式的情况下转换日期会很容易给您带来此错误。

这是一个例子：

sdate <- "2015.10.10"

在不指定格式的情况下进行转换：

date <- as.Date(sdate4) # ==> This will generate the same error"""Error in charToDate(x): character string is not in a standard unambiguous format""".

以指定格式转换：

date <- as.Date(sdate4, format = "%Y.%m.%d") # ==> Error Free Date Conversion.

不管日期是如何编码的，这对我来说都是完美的。

library(lubridate)
data$created_date1 <- mdy_hm(data$created_at)
data$created_date1 <- as.Date(data$created_date1)