2

我在Submitted.on列中的日期具有不同的格式，因此不得不分别转换各种格式，然后使用ifelseand将它们连接到一个新列中as.Date。但是，当我strptime在新列中也使用时间戳时，它会引发错误和警告消息。

data$Submitted.on[0:5]
#[1] 02-06-02 0:00       03/30/2010 23:15:12 
#[3] 11-05-09 6:28       07/29/2009 23:07:38 
#[5] 07-10-05 0:00

vec1 = as.character(strptime(data$Submitted.on, "%m/%d/%Y %H:%M:%S"))
vec1[0:5]
#[1] NA                    "2010-03-30 23:15:12"
#[3] NA                    "2009-07-29 23:07:38"
#[5] NA     

vec2 = as.character(strptime(data$Submitted.on, "%m-%d-%y %H:%M"))
vec2[0:5]
#[1] "2002-02-06 00:00:00"  NA                   
#[3] "2009-11-05 06:28:00"  NA                   
#[5] "2005-07-10 00:00:00"

data['new_format']=as.Date(ifelse(is.na(vec1),vec2,vec1))

data[0:5,'new_format']

#[1] "2002-02-06" "2010-03-30" "2009-11-05" "2009-07-29"
#[5] "2005-07-10"

使用as.Date效果很好，但是当我strptime也使用时间戳时，它会发出警告消息。

data['new_format']=strptime(ifelse(is.na(vec1),vec2,vec1),"%Y-%m-%d 
%H:%M:%S")

#Warning message:
#In `[<-.data.frame`(`*tmp*`, "new_format", value = list(sec = c(0,  :
#provided 11 variables to replace 1 variables

data[0:5,'new_format']
[1]  0 12  0 38  0

关于如何获得时间戳的任何帮助也将有很大帮助。

4

1 回答 1

1

我们可以parse_date_time使用lubridate

library(lubridate)
parse_date_time(data$Submitted.on, guess_formats(data$Submitted.on, 
       c("mdy HMS", "mdy MS")))
#[1] "2002-02-06 00:00:00 UTC" "2010-03-30 23:15:12 UTC" "2009-11-05 00:06:28 UTC" 
#[4] "2009-07-29 23:07:38 UTC" "2005-07-10 00:00:00 UTC"

关于 的使用ifelse，我们会反对这样做，因为strptime它提供了一个POSIXlt类。ifelse因此，可以使用索引方法代替，

v1 <- strptime(data$Submitted.on, "%m/%d/%Y %H:%M:%S", tz = "UTC")
v1[is.na(v1)] <- strptime(data$Submitted.on[is.na(v1)], "%m-%d-%y %H:%M", tz = "UTC")
v1
#[1] "2002-02-06 00:00:00 UTC" "2010-03-30 23:15:12 UTC" "2009-11-05 06:28:00 UTC"
#[4] "2009-07-29 23:07:38 UTC" "2005-07-10 00:00:00 UTC"

数据

data <- structure(list(Submitted.on = c("02-06-02 0:00", "03/30/2010 23:15:12", 
"11-05-09 6:28", "07/29/2009 23:07:38", "07-10-05 0:00")),
 .Names = "Submitted.on", row.names = c(NA, -5L), class = "data.frame")
于 2017-04-09T10:22:56.463 回答