多个时间序列作图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R作图很白痴，想问各位大侠，如何用R画出如下图像，需要满足如下条件：
（1）是两个时间序列（或多个）显示在同一个图形中；

（2）在图形中标示出红线代表UCPI，蓝线代表CCPI。
在此谢谢各位了！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏4 回帖

关键词：时间序列 CCPI 各位大侠 CPI UCP 标示 如何

最简易matplot()

楼上正解，或者你先画一个，另外一个用lines加上就行了

cnzxcxt1 发表于 2014-1-14 02:49
楼上正解，或者你先画一个，另外一个用lines加上就行了

没错

jgchen1966 发表于 2014-1-13 21:12
最简易matplot()

研究了一上午，还是没弄明白用matplot()怎么做，能不能详细点把代码也加上。具体参考如下图片，原数据也附上了。谢谢！

cnzxcxt1 发表于 2014-1-14 02:49
楼上正解，或者你先画一个，另外一个用lines加上就行了

那请问怎么添加数据标签呢，如以下提供的图像所示。

处理时间的比较麻烦
有更好的方法吗？

1. #读取数据及日期变换
   
2. dat <- read.csv("CPI.csv",header=T,stringsAsFactors=F)
   
3. date=matrix(unlist(strsplit(dat$obs,"M")),ncol=2,byrow=T)
   
4. date=paste(date[,1],date[,2],"01",sep="-")
   
5. date=as.Date(date,"%Y-%m-%d")
   
6. 
   
7. 
   
8. #画图及画坐标(坐标近似处理把每年都当365天)
   
9. matplot(date,dat[,c(2,3)],type="l",ylab="ccpi-ucpi",xaxt="n",col=1:2,lwd=1)
   
10. legend(11500,140,colnames(dat)[-1],col=1:2,lwd=1)
    
11. 
    
12. 
    
13. axis.Date(1,at=seq(date[1],date[length(date)],by=(date[length(date)]-date[1])/14),labels=F,tcl=-0.5)
    
14. axis.Date(1,at=seq(date[1],date[length(date)],by=(date[length(date)]-date[1])/56),labels=F,tcl=-0.25)
    
15. axis.Date(1,at=seq(date[1]+200,date[length(date)],by=365),labels=unique(format(date,"%y")),tcl=0)

复制代码

jmpamao 发表于 2014-1-14 19:45
处理时间的比较麻烦
有更好的方法吗？

谢谢~我主要想知道每个变量的标签是怎么加上的，真的没看懂。。能不能简单点？？

skytreee 发表于 2014-1-20 16:15
谢谢~我主要想知道每个变量的标签是怎么加上的，真的没看懂。。能不能简单点？？

首先，你的数据 日期为“2010M01"这种形式，得转换为2010-01-01，才能变为一个具体的数值， 年和月不是一个具体的值。

画图的时候，先把x轴空着，再画主轴线，14等分， 再画副轴线，14*4等分。最后是标示年。感觉居中就OK

jmpamao 发表于 2014-1-20 21:43
首先，你的数据 日期为“2010M01"这种形式，得转换为2010-01-01，才能变为一个具体的数值， 年和月不是一 ...

谢谢~~问题已解决！