只保留一小时:分钟:来自" POSIXlt" " POSIXt"宾语

时间:2014-10-19 17:10:06

标签: r

我在R中制作一个情节(在一个情节中绘制三天的时间序列)。我有一个“POSIXlt”“POSIXt”矢量,我只需要保留没有年,月,日的时间(小时,分钟......)。

"2004-09-08 13:50:00 GMT" ---> 13:50:00
"2004-09-08 14:00:00 GMT" ---> 14:00:00
"2004-09-08 14:10:00 GMT" ---> 14:10:00
"2004-09-08 14:20:00 GMT" ---> 14:20:00
"2004-09-08 14:30:00 GMT" ---> 14:30:00

这可能吗?

我已经能够使向量中的所有元素具有相同的年/月/日。它适用于我的情节,但我不认为是合适的解决方案。

"2004-09-08 13:50:00 GMT" ---> "2014-10-19 13:50:00 GMT"
"2004-09-08 14:00:00 GMT" ---> "2014-10-19 14:00:00 GMT"
"2004-09-08 14:10:00 GMT" ---> "2014-10-19 14:10:00 GMT"
"2004-09-08 14:20:00 GMT" ---> "2014-10-19 14:20:00 GMT"
"2004-09-08 14:30:00 GMT" ---> "2014-10-19 14:30:00 GMT"

谢谢

1 个答案:

答案 0 :(得分:8)

假设我们有POSIXct值x

library(chron)

# input
y <- 1:5
x <- as.POSIXct(c("2004-09-08 13:50:00", "2004-09-08 14:00:00", "2004-09-08 14:10:00",
"2004-09-08 14:20:00", "2004-09-08 14:30:00"))

1)将它们转换为chron class "times"并绘制:

ti <- times(format(x, "%H:%M:%S"))
plot(y ~ ti)

2)或者你可以用动物园做到这一点:

library(zoo)

z <- zoo(y, x)

# convert index to "times" class and plot
zz <- z
time(zz) <- times(format(time(zz), "%H:%M:%S"))
plot(zz)

2a)或使用ggplot2与autoplot.zoo进行绘图:

library(ggplot2)
autoplot(zz) + scale_x_chron(format = "%H:%M")

2b)我们也可以通过标记而不是转换索引类来处理这个问题。这使用了zoo / ggplot2 / scales而不是chron时间,只是重新标记X轴:

library(scales)
autoplot(z) + scale_x_datetime(breaks = "10 min", labels = date_format("%H:%M"))