R 突出显示时间序列中的绘图区域

我已经绘制了我的xts时间序列，如下所示：

library(xts)
data(sample_matrix)
prices <- as.xts(sample_matrix)[,"Close"]
pw_returns <- diff(log(prices))
plot(pw_returns, main="", col="darkblue", lwd=1)

库（xts）
数据（样本矩阵）
价格您可以使用
addPolygon（）
完成此操作。这将有助于创建一个包含着色区域上下限的中间对象

nr <- nrow(pw_returns)
shade <- cbind(upper = rep(1, nr), lower = rep(-1, nr))
shade <- xts(shade, index(pw_returns))

您可以使用
addPolygon（）
完成此操作。这将有助于创建一个包含着色区域上下限的中间对象

nr <- nrow(pw_returns)
shade <- cbind(upper = rep(1, nr), lower = rep(-1, nr))
shade <- xts(shade, index(pw_returns))

可能与@RobertoMoratore重复；不确定此处的图形是否为
ggplot2
。另外，@toyo10，请提供一个最小的可复制示例。我们没有返回的
pw_
对象。@Axeman，问题是在R中做的，而不是在基本图中。我认为上面的链接仍然适用。可能是@RobertoMoratore的副本；不确定此处的图形是否为
ggplot2
。另外，@toyo10，请提供一个最小的可复制示例。我们没有返回的
pw_
对象。@Axeman，问题是在R中做的，而不是在基本图中。我认为上面的链接仍然适用。