RStudio Plot、par関数で複数のグラフの重ね合わせが出来ません。

Question

##症状
RStudioにおいてグラフの重ね合わせを行おうとしましたがうまくいきません。
どなたかアドバイスを頂けませんでしょうか。
よろしくお願いいたします。

###サンプルコードでは問題なく動作します

plot(sin, lty=2)                                      
par(new=T)                                            
plot(cos)

結果↓

###うまくいかないパターン
データはXTS形式です。

#> x
#           Volume
#2019-01-04 264920
#2019-01-07 196290
#2019-01-08 194150
#2019-01-09  19510
#2019-01-10 299800
#2019-01-11  43260
#> y
#           Close
#2019-01-04  1539
#2019-01-07  1582
#2019-01-08  1592
#2019-01-09  1608
#2019-01-10  1594
#2019-01-11  1601

#ここから検証用
library(quantmod)

x <- {
  x.mat <- matrix(1:5, ncol = 1)
  rownames(x.mat) <- as.character(as.Date("2012-12-31") + 1:5)
  as.xts(x.mat)
} 
y <- {
  x.mat <- matrix(10:6, ncol = 1)
  rownames(x.mat) <- as.character(as.Date("2012-12-31") + 1:5)
  as.xts(x.mat)
} 

plot(x)
par(new = T)
plot(y)

###結果↓グラフが２つ

![]

よろしくお願いいたします。