从xts索引获取时间

Question

我有一个 xts 对象 x。我想根据索引中的时间戳运行 for 循环直到某个时间。

> index(x)
[1] "2011-10-12 16:44:00 SAST"

假设只要索引中的时间小于 16:40:00，我就想运行循环。考虑到上面索引的格式，如何去掉时间部分？

Answer 1

这应该能让你到达你想去的地方。使用 format，您可以仅提取小时、分钟和秒部分。 ?strptime 的帮助页面提供了有关用于提取信息的符号的更多详细信息。

#if you don't have your string in an appropriate format yet
(x <- strptime("2011-10-12 16:44:00 SAST", format = "%Y-%m-%d %H:%M:%S"))
  [1] "2011-10-12 16:44:00"
class(x)
  [1] "POSIXlt" "POSIXt" 
(new.x <- format(x, format = "%H:%M:%S")) 
  [1] "16:44:00"

Answer 2

问题是使时区正确。在我的系统上，“SAST”的 tz 规范无效，但也许在您的系统上它会是：（

x[ index(x) < as.POSIXct( "2011-10-12 16:44:00", tz= SAST") ]

似乎是 UTC +2。）我收回我所说的关于我的系统无法识别它的内容。

 as.POSIXct( "2011-10-12 16:44:00", tz= "Africa/Johannesburg")
# [1] "2011-10-12 16:44:00 SAST"

所以使用：

x[ index(x) <= as.POSIXct( "2011-10-12 16:44:00", tz= "Africa/Johannesburg")]