我有從 excel 檔案匯入的以下列。
dates <- structure(list(ServiceDate = c("44433", "44497", "44400", "44513",
"44501", "44398", "44501", "44496", "44432", "44513", "44389",
"44513", "44515", "44513", "44515", "NULL", "44501", "44432",
"44512", "44470")), row.names = c(NA, -20L), class = c("tbl_df",
"tbl", "data.frame"))
但是當我嘗試進行一些更傳統的日期轉換時，我無法獲得正確的格式。
anydate(date$ServiceDate)
[1] "4443-01-01" "4449-01-01" "4440-01-01" "4451-01-01" "4450-01-01" "4439-01-01" "4450-01-01" "4449-01-01" "4443-01-01" "4451-01-01" "4438-01-01"
[12] "4451-01-01" "4451-01-01" "4451-01-01" "4451-01-01" NA "4450-01-01" "4443-01-01" "4451-01-01" "4447-01-01"
我知道我可以更改實際檔案中的格式，但是有很多這樣的檔案，我需要代碼中的解決方案。
這是我想要的輸出
uj5u.com熱心網友回復：
由于它是Excel的日期，轉換為數值，并使用as_date與origin
library(lubridate)
as_date(as.numeric(dates$ServiceDate), origin = '1899-12-30')
或者另一種方式是
openxlsx::convertToDate(dates$ServiceDate)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/366060.html