R做两轴图的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教个R绘图的问题。
TDate是每天的日期序列，USGG10YR是美国10年期国债每天的收益率，DXY是每天的美元指数。
想做一个两轴曲线图同时展示两条曲线，代码如下。
遇到的问题是如果让lines添加的DXY这条曲线对应于右边的轴线？现在还是对应到左边的，因为DXY的数值都是几十，没法看了。
多谢。
plot(TDate,USGG10YR,type="l",ylim=c(0,5))
axis(4,at=0:5,labels=c(10,20,30,40,50,60))
lines(TDate,DXY,col="red")

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：labels Lines label date line labels 收益率 曲线图 美国

下面是个更少数据示例的代码。
不知道怎样让左轴和右轴的坐标值独立，并且lines添加的第二条线依照右轴显示？现在依然是根据左轴变动的，有的部分就在图外了。
多谢。

1. x <- c(0,1,2,3,4,5)
   
2. y1 <- c(0,3,2,5,4,1)
   
3. y2 <- c(5,4,3,7,8,3)
   
4. plot(x,y2,type="l")
   
5. axis(side=4,at=0:5,labels=c(0,1,2,3,4,5))
   
6. lines(x,y1,col="blue")

复制代码

plot(x, y2, type = "l")
par(new = TRUE)
plot(x, y1, type = "l")

多谢qoiqpwqr，R中用par(new = TRUE)让两张图叠加实现双坐标图效果。
下面是在叫《R-FAQ》的书中的一个例子，里面的示例数据比我列的好多了，贴出来。

不过作者这么说：“但不推荐使用双坐标图来进行数据描述，这样很容易造成误解。并且在R中做出并排图形作对比很容易，没有必要绘制双坐标图。”
不知道这种并排图形对比怎么做？作者并没有提到。有知道的朋友吗？

另外google到一篇《R语言中如何调用世界银行数据来比较金砖五国的GDP》的文章，感觉是这种类似的需求。里面提到有个扩展图形包ggplot2，不过网页链接打不开，郁闷。

1. year <- 1995:2005
   
2. x1 <- data.frame(year,GDP=sort(rnorm(11,1000,100)))
   
3. x2 <- data.frame(year,UR=rnorm(11,5,1))
   
4. par(mar=c(5,4,4,6)+0.1)
   
5. plot(x1,axes=FALSE,type="l")
   
6. axis(1,at=year,label=year);axis(2)
   
7. par(new=T,mar=c(10,4,10,6)+0.1)
   
8. plot(x2,axes=FALSE,xlab="",ylab="",col="red",type="b")
   
9. mtext("UR(%)",4,3,col="red")
   
10. axis(4,col="red",col.axis="red")

复制代码

foreseer201 发表于 2011-8-26 11:29
多谢qoiqpwqr，R中用par(new = TRUE)让两张图叠加实现双坐标图效果。
下面是在叫《R-FAQ》的书中的一个例子 ...

是的，因为双坐标轴的刻度不一样，看图时要先搞清楚哪个轴对应哪条线，其实反而比较麻烦。

可以尝试使用第4条坐标轴辅助

友情帮顶！