我有一个CSV表,其中包含一个包含不同格式日期字符串的日期列。我想编写一个小函数,尝试将这些字符串转换为date对象。其想法是尝试不同的日期格式,直到可以解析日期:
parseDate <- function(date){
formats <- c("%d.%m.%y %H:%M", "%Y-%m-%d %H:%M:%S", "%m-%d-%Y-%H:%M:%S")
for(format in formats){
newDate <- strptime(date, format=format)
if(!is.na(newDate)){
return(newDate)
}
}
print(paste0("Invalid input: ", date))
return(NA)
}
column1 <- c("2014-11-14 14:20:16", "24.11.14 9:48", "24.11.14 9:49")
table <- data.frame(column1)
table$column1 = lapply(table$column1, FUN = parseDate)
问题是,我无法找到将此函数应用于列的正确方法。我尝试了lapply
、apply
和by
,这些函数中没有一个提供所需的输出。你能帮我一下吗?
发布于 2015-02-21 06:40:33
也许这是:
> do.call("c", lapply(table$column1, FUN = parseDate))
[1] "2014-11-14 14:20:16 AEDT" "2014-11-24 09:48:00 AEDT"
[3] "2014-11-24 09:49:00 AEDT"
发布于 2015-02-21 06:29:12
您可以尝试采用多种“格式”的parse_date_time
。
library(lubridate)
parse_date_time(table$column1, c("%d.%m.%y %H:%M", "%Y-%m-%d %H:%M:%S",
"%m-%d-%Y-%H:%M:%S"))
#[1] "2014-11-14 14:20:16 UTC" "2014-11-24 09:48:00 UTC"
#[3] "2014-11-24 09:49:00 UTC"
https://stackoverflow.com/questions/28646787
复制相似问题