R 着色ACF ggplot对象

我想用我选择的配色方案生产ACF

forecast软件包允许我创建ACF的ggplot2图形。除了ACF的线条和置信边界之外，我几乎可以改变结果图的每个方面

以下是示例代码和结果图：

acf <- forecast::ggAcf(rnorm(100))

acf + ggtitle("Autocorrelation Function (ACF)") + xlab("Lag") + ylab("ACF") +
  theme(
    panel.background = element_rect(fill="#5C5D67"),
    axis.title = element_text(colour="#FFFAFF", size = 12),
    axis.title.x = element_text(colour="#FFFAFF", size = 12),    
    axis.text = element_text(colour="#FFFAFF", size = 12),
    axis.text.y = element_text(colour="#FFFAFF", size = 12),
    panel.grid.minor = element_blank(),
    panel.grid.major = element_line(color="#1E1E1E"),
    plot.title = element_text(colour="white"),
    plot.background = element_rect(fill = "#1e1e1e")
  )

---

acfggAcf

功能基于

autoplot.acf

。您可以通过

forecast:：：autoplot.acf

查看该函数。当您这样做时，您将看到线段和水平线的颜色在函数中是硬编码的，没有控制它们的选项

要更改颜色而不创建自己的新功能，可以使用ggplot2中的函数在原始打印的顶部添加新图层。但是，您需要使用与

autoplot.acf

中相同的公式“手动”计算置信区间

library(forecast)
library(ggplot2)

# Calculate confidence interval limits
ci2 = qnorm((1 + .95)/2)/sqrt(length(rnorm(100)))

# Change line color to green, CI color to purple
ggAcf(rnorm(100)) +
    geom_segment(lineend = "butt", color = "green") +
    geom_hline(yintercept = 0, color = "green") +
    geom_hline(yintercept = c(ci2, -ci2), color = "purple", linetype = "dashed")

---

请注意，对于“在先前图层的顶部添加图层”的操作，您需要保持与原始绘图中的线型相同。

ggAcf功能基于

autoplot.acf

。您可以通过

forecast:：：autoplot.acf

查看该函数。当您这样做时，您将看到线段和水平线的颜色在函数中是硬编码的，没有控制它们的选项

要更改颜色而不创建自己的新功能，可以使用ggplot2中的函数在原始打印的顶部添加新图层。但是，您需要使用与

autoplot.acf

中相同的公式“手动”计算置信区间

library(forecast)
library(ggplot2)

# Calculate confidence interval limits
ci2 = qnorm((1 + .95)/2)/sqrt(length(rnorm(100)))

# Change line color to green, CI color to purple
ggAcf(rnorm(100)) +
    geom_segment(lineend = "butt", color = "green") +
    geom_hline(yintercept = 0, color = "green") +
    geom_hline(yintercept = c(ci2, -ci2), color = "purple", linetype = "dashed")

请注意，对于“在先前图层的顶部添加图层”的操作，要使其看起来正确，您需要保持线条类型与原始绘图中的相同