如何x-y散点图两个时间序列对象长度不等,频率不等使用ggplot2

时间:2013-07-26 16:50:21

标签: r ggplot2 time-series zoo scatter-plot

我有多个时间序列对象,涵盖不同的时间段,数据间隙,频率变化(一些小时数据,大约15分钟,大约1分钟)。

我正在尝试在x-y散点图中相互绘制不同的时间序列对象 - 以查看是否存在明显的相关性,并使用ggplot制作“漂亮”的图表进行演示。显然,人们只能同时绘制/比较xy所在的数据。

我能够获得基本图形的快速图形,但想要更具代表性的东西。

例如,这适用于基础R:

require(zoo)
x <- zoo(sort(rnorm(10)),as.POSIXct("2013/07/26")+1:10)
y <- zoo(sort(rnorm(30)),as.POSIXct("2013/07/26")+(1:30)/2)
plot(x,y)

并尝试对ggplot执行相同的操作失败:

data <- rbind(melt(fortify(x),id="Index"),melt(fortify(y),id="Index"))
ggplot(data,aes(x=x,y=y))+geom_point()
Don't know how to automatically pick scale for object of type zoo. Defaulting to continuous
Don't know how to automatically pick scale for object of type zoo. Defaulting to continuous
Error: Aesthetics must either be length one, or the same length as the dataProblems:x

欢迎提供更好的标题/描述的建议

1 个答案:

答案 0 :(得分:3)

这个怎么样:

aaa<-merge(x,y, all=FALSE)
ggplot(aaa,aes(x=x,y=y))+geom_point()    ?