รูปแบบ“ วันที่ที่ไม่คลุมเครือมาตรฐาน” สำหรับการแปลงสตริงถึงวันที่ใน 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"

ฉันได้ค้นหาและพบคำถามอีก 28 ข้อในแท็ก [R] ที่มีข้อความแสดงข้อผิดพลาดนี้ ทั้งหมดนี้มีโซลูชันและวิธีแก้ปัญหาที่เกี่ยวข้องกับการระบุรูปแบบ iiuc คำถามนี้แตกต่างจากที่ฉันถามว่ารูปแบบมาตรฐานที่ไม่คลุมเครือถูกกำหนดไว้ที่ใดแล้วและสามารถเปลี่ยนแปลงได้หรือไม่ ทุกคนได้รับข้อความเหล่านี้หรือเป็นเพียงฉัน? บางทีมันอาจเกี่ยวข้องกับสถานที่?

กล่าวอีกนัยหนึ่งมีทางออกที่ดีกว่าการต้องระบุรูปแบบหรือไม่?

29 คำถามที่ประกอบด้วย "[R] รูปแบบมาตรฐานที่ไม่คลุมเครือ"

> 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:

รูปแบบ: สตริงอักขระ หากไม่ได้ระบุไว้ระบบจะลอง "% Y-% m-% d" "ตามด้วย"% Y /% m /% d "" ในองค์ประกอบแรกที่ไม่ใช่ "NA "และให้ข้อผิดพลาดหากไม่ทำงาน

as.Date("01 Jan 2000")ทำให้เกิดข้อผิดพลาดเนื่องจากรูปแบบไม่ใช่หนึ่งในสองรายการข้างต้น as.Date("01/01/2000")ให้คำตอบที่ไม่ถูกต้องเนื่องจากวันที่ไม่ได้อยู่ในรูปแบบหนึ่งในสองรูปแบบที่ระบุไว้ข้างต้น

ฉันใช้ "มาตรฐานไม่คลุมเครือ" เพื่อหมายถึง "ISO-8601" (แม้ว่าas.Dateจะไม่เข้มงวดขนาดนั้นก็ตามเนื่องจาก "% m /% d /% Y" ไม่ใช่ ISO-8601)

ถ้าคุณได้รับข้อผิดพลาดนี้แก้ปัญหาคือการระบุรูปแบบวันที่ของคุณ (หรือ datetimes) ?strptimeอยู่ในการใช้รูปแบบที่อธิบายไว้ใน อย่าลืมใช้ความระมัดระวังเป็นพิเศษหากข้อมูลของคุณมีชื่อวัน / เดือนและ / หรือตัวย่อเนื่องจากการแปลงจะขึ้นอยู่กับสถานที่ของคุณ (ดูตัวอย่างใน?strptimeและอ่าน?LC_TIME)

กล่าวอีกนัยหนึ่งมีทางออกที่ดีกว่าการต้องระบุรูปแบบหรือไม่?

ใช่ตอนนี้มีแล้ว (คือปลายปี 2559) ขอบคุณ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 นี่คือคำจำกัดความของฟังก์ชัน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)