R 次坐标轴及标题 以及边框的去除

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. D<-read.csv('1年期数据.csv')
   
2. D$Date<-as.Date(D$Date)
   
3. str(D)
   
4. par(mar=c(4.1,4.1, 3.1, 4.1))
   
5. plot(D$Date,D$DF1Y,lty=2,col=1,type='l',ylab="汇率",xlab="",lwd=1.5,ylim=c(5.8,7))
   
6. lines(D$Date,D$St,lty=1,col=2,type='l',lwd=2)
   
7. par(new=TRUE)
   
8. plot(D$Date,D$Shibor1Y-D$Libor1Y,lty=3,col=3,type='l',yaxt="n",ylab="",xlab="",lwd=4)
   
9. axis(4)
   
10. legend("bottomright",legend=c("实际远期汇率","即期汇率","中美利率差"),lty=c(2,1,3),lwd=c(1.5,2,4),col=c(1,2,3),
    
11.        bty='o',cex=1,text.font=0.3,horiz=FALSE)
    
12. 
    
13. text(locator(1),'2012.04.16')
    
14. text(locator(1),'2014.03.17')

复制代码

如何添加次坐标的标签——“利率差”

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：坐标轴 坐标轴

如图

这里是数据。

刚才程序有的乱码。

1. D<-read.csv('1年期数据.csv')
   
2. D$Date<-as.Date(D$Date)
   
3. str(D)
   
4. par(mar=c(4.1,4.1, 3.1, 4.1))
   
5. plot(D$Date,D$DF1Y,lty=2,col=1,type='l',ylab="汇率",xlab="",lwd=1.5,ylim=c(5.8,7))
   
6. lines(D$Date,D$St,lty=1,col=2,type='l',lwd=2)
   
7. par(new=TRUE)
   
8. plot(D$Date,D$Shibor1Y-D$Libor1Y,lty=3,col=3,type='l',yaxt="n",ylab="",xlab="",lwd=4)
   
9. axis(4)
   
10. legend("bottomright",legend=c("实际远期汇率","即期汇率","中美利率差"),lty=c(2,1,3),lwd=c(1.5,2,4),col=c(1,2,3),
    
11.        bty='o',cex=1,text.font=0.3,horiz=FALSE)
    
12. 
    
13. text(locator(1),'2012.04.16')
    
14. text(locator(1),'2014.03.17')

复制代码

问题1：如何添加次坐标轴的标题
问题2：怎样可以使得图例放在图形的外面？

D<-read.csv('1年期数据.csv')
D$Date<-as.Date(D$Date)
str(D)
par(mar=c(4.1,4.1, 3.1, 4.1))
plot(D$Date,D$DF1Y,lty=2,col=1,type='l',ylab="汇率",xlab="",lwd=1.5,ylim=c(5.8,7))
lines(D$Date,D$St,lty=1,col=2,type='l',lwd=2)
par(new=TRUE)
plot(D$Date,D$Shibor1Y-D$Libor1Y,lty=3,col=3,type='l',yaxt="n",ylab="",xlab="",lwd=4)
axis(4)
legend("bottomright",legend=c("实际远期汇率","即期汇率","中美利率差"),lty=c(2,1,3),lwd=c(1.5,2,4),col=c(1,2,3),
       bty='o',cex=1,text.font=0.3,horiz=FALSE)

text(locator(1),'2012.04.16')
text(locator(1),'2014.03.17')

http://blog.163.com/zhoulili1987619@126/blog/static/35308201201481885113821/

1.双坐标轴问题，不支持用双坐标轴，违反了图表直观性原则，易产生混乱和混淆。
   对于外行人看，可以糊弄一下哈。

2.添加在图外的legend，这个可以实现：看下面代码：

1. set.seed(1)
   
2. par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)
   
3. plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2), bty='L')
   
4. legend("topright", inset=c(-0.2,0), legend=c("A","B"), pch=c(1,3), title="Group")

复制代码

mar是设置边距，8.1是为了让右边空出来，好放legend.

谢谢分享   太有用了  哈哈

谢谢。

这是不能在左边纵轴添加标题吗?