POSIXct 和 sapply 的向量

Question

如果您想将format 以外的函数应用于 POSIXct 对象列表怎么办？例如，假设我想取一个时间向量，将这些时间截断为小时，然后对每个时间应用一个任意函数。

> obs.times=as.POSIXct(c('2010-01-02 12:37:45','2010-01-02 08:45:45','2010-01-09 14:45:53'))
> obs.truncated=trunc(obs.times, units="hours")
> obs.truncated
[1] "2010-01-02 12:00:00 EST" "2010-01-02 08:00:00 EST"
[3] "2010-01-09 14:00:00 EST"

现在，我希望 obs.truncated 的长度为 3，但是

> length(obs.truncated)
[1] 9

所以你可以看到尝试apply 一个函数到这个向量是行不通的。 obs.truncated 的类是

> class(obs.truncated)
[1] "POSIXt"  "POSIXlt"

知道这里发生了什么吗？ apply 和 length 似乎将向量的第一个元素作为自己的列表。

Answer 1

这种 POSIXlt 的 length() 曾经被报告为 9，但最近得到了纠正。

另外，当我执行trunc(obs.times) 时，会发生错误的事情——trunc() 只对包含三个元素的字符串操作一次。你确实需要apply() 等。

下面是一个使用sapply() 进行组件重置的示例：

> sapply(obs.times, function(.) {
+ p <- as.POSIXlt(.); 
+ p$min <- p$sec <- 0; 
+ format(p) })
[1] "2010-01-02 12:00:00" "2010-01-02 08:00:00" "2010-01-09 14:00:00"
> 

而

> trunc(obs.times, units="hours")
[1] "2010-01-02 12:00:00 CST" "2010-01-02 08:00:00 CST"
[3] "2010-01-09 14:00:00 CST"
> class(trunc(obs.times, units="hours"))
[1] "POSIXt"  "POSIXlt"
> length(trunc(obs.times, units="hours"))
[1] 1
>