将时间序列中的时间精度从秒降低到分钟

Question

我有以下日期格式的财务时间序列数据：“%Y-%m-%d %H:%M:%S”我正在尝试有效地将其时间精度降低到分钟而不是秒。

样本数据：

  dd <- c("2014-02-23","2014-03-12", "2014-05-29")
    tt <- c("03:15:52", "03:49:17", "04:03:24", "05:30:19", "05:56:49",
    "06:14:04", "09:42:13", "11:57:25", "11:58:02", "12:12:49",
    "15:38:00", "15:44:21", "16:16:04")
    dt <- c(outer(dd,tt,paste))
    xx <- as.xts(seq_along(dt), as.POSIXct(dt))

XX 是用来演示我所做的事情的对象，我试图像这样修复岁差

xx1 <- as.xts(xx,substr(index(xx),1,16),format="%Y-%m-%d %H:%M")

这不起作用，然后我添加了 strftime() 函数来制作索引字符串，然后再获取我需要的部分。

xx1 <- as.xts(xx,substr(strftime(index(xx)),1,16),format="%Y-%m-%d %H:%M")

那也没用，我仍然可以得到完整的分辨率，包括秒部分。 我想要实现的是：

2014-02-23 03:15    
2014-02-23 03:49   
2014-02-23 04:03 

代替：

2014-02-23 03:15:52
2014-02-23 03:49:17 
2014-02-23 04:03:24 

align_time 函数将秒数向上移动到下一秒并保持秒数的精度

Answer 1

两个问题：

1. 基础类型是POSIXct，它被定义为自纪元以来的小数秒，因此您不仅有秒数，还有亚秒数——Windoze 上的毫秒，操作系统上的微秒，以X。所以你“无法摆脱（亚）秒”，但你可以查看round()，它有一个时间对象的方法。

2. 表示与显示不同。即使是亚秒级，您仍然可以按您想要的格式进行格式化，即显示为文本。

当 Roland 提交他的评论时，我只是在处理你的数据以显示 round() 和 trunc()：

R> head(round(index(xx), units="mins"))
[1] "2014-02-23 03:16:00 CST" "2014-02-23 03:49:00 CST"
[3] "2014-02-23 04:03:00 CST" "2014-02-23 05:30:00 CST"
[5] "2014-02-23 05:57:00 CST" "2014-02-23 06:14:00 CST"
R> head(trunc(index(xx), units="mins"))
[1] "2014-02-23 03:15:00 CST" "2014-02-23 03:49:00 CST"
[3] "2014-02-23 04:03:00 CST" "2014-02-23 05:30:00 CST"
[5] "2014-02-23 05:56:00 CST" "2014-02-23 06:14:00 CST"
R> 

Answer 2

strptime(dt, '%Y-%m-%d %H:%M')
#[1] "2014-02-23 03:15:00" "2014-03-12 03:15:00" "2014-05-29 03:15:00" "2014-02-23 03:49:00"
#[5] "2014-03-12 03:49:00" "2014-05-29 03:49:00" "2014-02-23 04:03:00" "2014-03-12 04:03:00"
#[9] "2014-05-29 04:03:00" "2014-02-23 05:30:00" "2014-03-12 05:30:00" "2014-05-29 05:30:00"