Định dạng "ngày rõ ràng tiêu chuẩn" để chuyển đổi chuỗi thành ngày trong R là gì?

Vui lòng xem xét những điều sau

$ R --vanilla

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

Nhưng ngày đó rõ ràng là ở định dạng rõ ràng tiêu chuẩn. Tại sao thông báo lỗi?

Tệ hơn, một ngày không rõ ràng dường như được chấp nhận mà không có cảnh báo hoặc lỗi và sau đó đọc sai!

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

Tôi đã tìm kiếm và tìm thấy 28 câu hỏi khác trong thẻ [R] có chứa thông báo lỗi này. Tất cả đều có các giải pháp và cách giải quyết liên quan đến việc chỉ định định dạng, iiuc. Câu hỏi này khác ở chỗ tôi đang hỏi đâu là định dạng rõ ràng tiêu chuẩn được xác định và chúng có thể thay đổi được không? Mọi người có nhận được những tin nhắn này không hay chỉ tôi với? Có lẽ nó liên quan đến ngôn ngữ?

Nói cách khác, có giải pháp nào tốt hơn là cần chỉ định định dạng không?

29 câu hỏi có chứa "[R] định dạng rõ ràng chuẩn"

> 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

Đây là hành vi được ghi lại. Từ ?as.Date:

định dạng: Một chuỗi ký tự. Nếu không được chỉ định, nó sẽ thử '"% Y-% m-% d"' rồi '"% Y /% m /% d"' trên phần tử không phải'NA 'đầu tiên và đưa ra lỗi nếu cả hai đều không hoạt động.

as.Date("01 Jan 2000")dẫn đến lỗi vì định dạng không phải là một trong hai định dạng được liệt kê ở trên. as.Date("01/01/2000")đưa ra câu trả lời không chính xác vì ngày tháng không thuộc một trong hai định dạng được liệt kê ở trên.

Tôi lấy "tiêu chuẩn rõ ràng" có nghĩa là "ISO-8601" (mặc dù as.Datekhông nghiêm ngặt như vậy, vì "% m /% d /% Y" không phải là ISO-8601).

Nếu bạn nhận được lỗi này, giải pháp là chỉ định định dạng ngày (hoặc ngày giờ) của bạn, sử dụng các định dạng được mô tả trong ?strptime. Hãy chắc chắn sử dụng cẩn thận nếu dữ liệu của bạn chứa tên ngày / tháng và / hoặc chữ viết tắt, vì chuyển đổi sẽ phụ thuộc vào ngôn ngữ của bạn (xem các ví dụ trong ?strptimevà đọc ?LC_TIME).

Nói cách khác, có giải pháp nào tốt hơn là cần chỉ định định dạng không?

Vâng, bây giờ có (tức là vào cuối năm 2016), nhờ vào anytime::anydatetừ bất cứ lúc nào gói.

Xem phần sau để biết một số ví dụ từ trên:

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

Như bạn đã nói, những điều này trên thực tế không rõ ràng và chỉ nên hoạt động. Và thông qua anydate()họ làm. Không có định dạng.

Để bổ sung cho câu trả lời @JoshuaUlrich, đây là định nghĩa của hàm 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>

Vì vậy, về cơ bản nếu cả hai strptime(x, format="%Y-%m-%d")và strptime(x, format="%Y/%m/%d")ném một NAthì nó được coi là mơ hồ và nếu không nói là rõ ràng.

Việc chuyển đổi ngày tháng mà không chỉ định định dạng hiện tại có thể dễ gây ra lỗi này cho bạn.

Đây là một ví dụ:

sdate <- "2015.10.10"

Chuyển đổi mà không chỉ định Định dạng:

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

Chuyển đổi với Định dạng được chỉ định:

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

Điều này hoạt động hoàn hảo đối với tôi, không quan trọng ngày trước đó được mã hóa như thế nào.

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