组合日期和因子以生成POSIXct日期时间并剥离成列

Question

我有一个POSIXct对象，我想只将该对象的日期与存储在因子对象中的时间结合起来。这是代码：

 originalDate<- as.POSIXct("2014-10-27 13:39:01.885")

 time<- factor("13:30:00.994")
 class(time)
 time

 #I'd like to combine the date from "originalDate" and the time from "time" 
  #so is of the type POSIXct and is --> 2014-10-27 13:30:00.994

一旦我有了新的POSIXct对象，我需要将小时，分钟，秒和毫秒分成列。

有什么想法吗？

Answer 1

也许

temp <- paste(as.Date(doriginalDate), time)
temp
## [1] "2014-10-27 13:30:00.994"
as.numeric(strsplit(format(as.POSIXct(temp), "%H:%M:%OS3"), ":|\\.")[[1]])
## [1]  13  30   0 993