如何使用xts將垂直色帶添加到圖表中？

Question

我有一個xts對象來自相當長的日常時間系列。我繪製了一個折線圖。

現在我想添加垂直色帶，也許可以直觀地檢測到一些季節性。

如何以特定顏色爲每年的每個季度添加顏色？ （例如，所有的Q1 =藍色，Q2 =綠色，Q3 =橙色，Q4 =淡紅色）

下面的圖表與我之後的圖表非常相似，但在這種情況下，1年的2年以上灰色。

Answer 1

沒有太多的信息去，這裏是用基礎R和mtcars數據集的臨時版本。

您可以使用rect函數繪製交替的彩色矩形。訣竅是使矩形比y值的範圍稍長一些，然後再用box在最後得到乾淨的線條。這裏使用的顏色取自循環值（加上4）。

玩這個代碼真的是最好的方式來看看它是如何工作的。

> data(mtcars) 
> plot(mtcars$mpg, type = 'n') 
> sapply(seq(0, 30, 10), function(x) rect(x, 0, x+5, 35, col = x+4)) 
> lines(mtcars$mpg) 
> box()