使用ggplot,如何自动设置时间序列图的x轴?

ggplot2不支持ts对象:只支持类日期和类POSIXct的时间。因此,您需要首先将数据转换为合适的类。

看看 http://had.co.nz/ggplot2/scale_date.html 例如。

我对从ts对象生成POSIX的函数的粗略尝试,假设周期为年:

tsdates <- function(ts){
  dur<-12%/%frequency(ts)
  years<-trunc(time(ts))
  months<-(cycle(ts)-1)*dur+1
  yr.mn<-as.data.frame(cbind(years,months))
  dt<-apply(yr.mn,1,function(r){paste(r[1],r[2],'01',sep='/')})
  as.POSIXct(dt,tz='UTC')
}

这可与ggplot一起使用,如下所示:

qplot(tsdates(presidents),presidents,geom='line')

一个更完整的解决方案需要能够列出多个时间序列。此外,能够根据观察时间自动对齐点也很好,这样我们就可以做以下事情:

qplot(presidents,lag(presidents))

时间序列数据来自?举个例子。

gnp <- ts(cumsum(1 + round(rnorm(100), 2)), start = c(1954, 7), frequency = 12)

new.date <- seq(as.Date(paste(c(start(gnp),1), collapse = "/")), by = "month", length.out = length(gnp))

seq函数可以处理日期对象。上面的示例提供了开始日期,指定了每月频率,并表示要创建的日期向量的长度。

希望这对使用ggplot2或其他东西之前的数据准备有帮助。

你可以把上面的例子合并成一个数据表。框架如下:

dat <- data.frame(date=new.date, value=gnp) 

这可以像这样绘制在ggplot中:

ggplot(data=dat) + geom_line(aes(date, gnp))

祝你一切顺利,

杰伊

这个怎么样?

密码

set.seed(12345)
dat <- ts(data=runif(n=10, min=50, max=100), frequency = 4, start = c(1959, 2))
df <- data.frame(date=as.Date(time(dat)), Y=as.matrix(dat))
library(ggplot2)
ggplot(data=df, mapping=aes(x=date, y=Y))+geom_point()

输出