请教时间序列作图~~十万火急啊！

我想画下面一幅图，请问R语言如何能实现？十分急！！！！万分感谢！！
数据文件： T-S-plot.xls (166 KB)

2014-8-15 10:14:47 上传

1. x=read.csv("tsplot.csv", header = T)
   
2. x$Date=as.Date(x$Date)
   
3. x$Year=as.numeric(format(x$Date, "%Y"))
   
4. x$Month=as.numeric(format(x$Date, "%m"))
   
5. x$md=as.numeric(format(x$Date, "%m%d"))
   
6. 
   
7. require(reshape2)
   
8. y=melt(x, measure.vars = c("Death", "Temperature"), id.vars = c("Year","Month","md"))
   
9. 
   
10. suppressMessages(require(ggplot2))
    
11. q <- ggplot(y, aes(x=md, y=value, colour=variable))
    
12. q+geom_point() + facet_grid( variable~Year , scales="free_y")+geom_smooth()+labs(x="", y="")+coord_cartesian(xlim=c(101,1231))

复制代码

你想解决什么问题？没看明白。

论坛币还可以加。。。。

有大牛能解决这个问题吗？

论坛币再加100，有大牛出现吗？

占个板凳看大牛，楼主是想用移动平均，然后用年分开？

workerfei01 发表于 2014-8-25 21:34
占个板凳看大牛，楼主是想用移动平均，然后用年分开？

没要求那么高，只要求画两张散点图就可以了，但横坐标要如图那样。

ddinghzau 发表于 2014-8-26 00:03

膜拜！！大哥，横坐标能修改成我那图的那种样式吗？

ddinghzau 发表于 2014-8-26 00:03

大哥，您把修改后的代码设置收费吧，我再给您加两百币！！