取引シグナルと価格の同時PLOT(折れ線とBARの２軸PLOT)

取引シグナル（y2, 1(買) or -1(売))と価格（y1)自身を同一グラフ上にPLOTする方法で躓いたのでメモ。
まず適当にデータ作成。

y1 <- 0:100 + 10*sin(seq(0,2*pi,2*pi*0.01))
y2 <- c(rep(-1,51),rep(1,50)) 
x <- 0:100

続いてこれをPLOT。色はお好みで。barplotでspace=0としている点、colとborderの値を揃えている点がミソで塗りつぶした感じを表現できる。

barplot(y2,col="blue",space = 0, border = "blue",xaxt="n",yaxt="n",xlab="",ylab="")
par(new=TRUE)
plot(x,y1, type="l", col = "red", lwd = 3)

PLOTするとこんな感じ。barplotをplotにすれば普通の2軸plotにもなる。