1年期数据.xls-经管之家资源下载-人大经济论坛


所在主题： R 次坐标轴及标题以及边框的去除
文件名: 1年期数据.xls
资料下载链接地址: https://bbs.pinggu.org/a-1943304.html
附件大小: 130 KB 举报本内容
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') 复制代码如何添加次坐标的标签——“利率差”
熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。 2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。 3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。 (如有侵权，欢迎举报)

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

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