客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
bar<-barplot(gu[1:22,6],xlim=c(0.5,26),ylim=c(0,200000),ylab="交易量", col="blue",col.axis="blue",col.lab="blue") mtext(c(1:22),side=1,line=1,at=bar,cex=0.8,col="black")mtext("time",side =1,line=3,col="black") par(new=T) plot(bar,gu[1:22,2],axes=F,xlim=c(0.5,26),ylim=c(17,23),xlab="",ylab="", col="green",type="o") #ylim设置不好的话就会看不见折线 axis(4,col="red",col.ticks="red",col.axis="red")mtext("价格",side=4,line=3,col="red") par(new=T) plot(bar,gu[1:22,5],axes=F,xlim=c(0.5,26),ylim=c(17,23),xlab="",ylab="", col="red",type="o") legend("top",c('开盘价','收盘价'),col=3:2,lty=1) 效果如下 |
请发表评论