Снять ось Y легко, но она также удаляет ось X. Пара вариантов:
1) Легко - использовать plot.zoo
:
plot.zoo(Cl(SPY), yaxt="n", ylab="")
2) Хард-иш - взять кусочки от plot.xts
:
plot(Cl(SPY), axes=FALSE)
axis(1, at=xy.coords(.index(SPY), SPY[, 1])$x[axTicksByTime(SPY)],
label=names(axTicksByTime(SPY)), mgp = c(3, 2, 0))
3) Customize-ish - изменить plot.xts
, поэтому axes=
принимает вектор осей для построения и / или TRUE
/ FALSE
.