Задать дополнительный вопрос о plot.xts()
форматировании.Я задал похожий вопрос несколько минут назад, на который был дан адекватный ответ.Код и распечатка включены ниже:
## Reformat UST time series
ust <- merge.xts(us.3m, us.6m, us.2y, us.3y, us.5y, us.10y, us.30y)
## Generate color schema for plot
asdf <- as.zoo(ust)
tsRainbow = rainbow(ncol(asdf))
## Plot bond yield evolution graph
plot.xts(ust, screens=1,
major.ticks="years",
main="U.S. Bond Yield Evolution", ylab="Bond Yield (%)",
major.format="%Y",
yaxis.right=FALSE, yaxis.left=TRUE,
grid.ticks.on="years", col=tsRainbow)
## Add legend to graph using same color schema
addLegend("topright",
legend.names=c("US 3M", "US 6M", "US 2Y", "US 3Y", "US 5Y", "US 10Y", "US 30Y"),
col=tsRainbow,
lty=c(1,1,1,1,1,1,1), lwd=c(2,2,2,2,2,2,2),
ncol=2, bg="white", bty="o")
Я хотел бы выполнить следующее:
- Добавить y- осевая метка, называемая
"Bond Yield (%)"
- Сделать метки для оси X в формате год.Вместо того, чтобы видеть
"Jan 01 1997"
, я хотел бы видеть "1997"
под помеченными галочками.
Я попытался выполнить задачу 1, используя традиционный аргумент ylab
в вызове plot.xts()
.Я попытался выполнить вторую задачу, используя аргумент major.format
в вызове plot.xts()
.Очевидно, что ни один из этих обходных путей не был успешным.
Я полагаю, что, вероятно, существует простое решение этой проблемы.Однако я не очень разбираюсь в составлении xts
наборов данных и буду признателен за помощь.