用plotrix包做双坐标轴图

library(plotrix)
x<-df$time                         ##df为22个股票交易日数据
y1<-df$开盘价

y2<-df$交易额

df如图：

xpos<-1:22
twoord.plot(xpos,y1,xpos,y2,lcol=4,rcol=2,rylim=c(40000,500000),

     xlab="time",ylab="开盘价",rylab="交易额",type=c("b","bar"),xticklab=x,halfwidth=0.2)       ##type中b为折线类型，bar为柱状图类型，xticklab设置横坐标标签，halfwidth设置柱的半宽

效果图如下：