如何更改 R 中 VAR 脉冲响应表的背景颜色？

Question

我非常感谢您对此的帮助！

以下是我的代码，它正在生成标准图形，但我想要的是更改白色背景的表格颜色。我不知道如何将 ggplot2 嵌入到我现有的代码中。

#脉冲响应GerIRF <- irf(VAR_aic, n.ahead = 20, ortho = TRUE)

GerIRF <- irf(VAR_aic, n.ahead = 20, ortho = TRUE)  plot(GerIRF$irf$FTSE100[,1],xlab="Periods after shock", ylab="Response of FTSE100 to FTSE100 ",xaxt="n",ylim=c(- 00.10,00.20),type='l') axis(1, at = 2:30, labels=1:29) lines(GerIRF$Lower$FTSE100[,1], col = "blue")  lines(GerIRF$Upper$FTSE100[,1], col = "green") 

谢谢您的帮助。

我确实尝试过 ggplot2，但我不知道如何将其与我现有的代码组合在一起

Answer 1

我建议首先以整齐的格式组织数据。然后，您就基本上准备好探索 ggplot2 的宇宙了。您可以在 R4ds 书 和 ggplot2：数据分析的优雅图形 (3e) 中找到 ggplot2 的基本介绍。下面我向您展示一个最小的可重复示例，重点关注您的问题。请注意，我们永远不会对这样的图感到满意，包括我们永远不会使用示例中显示的颜色。这个例子是在最大程度简化的意义上，仅用于说明原理。据我所知，就您而言，

xx

可能是

periode

，

yy

可能是

response

，

grp

可能是您的分组变量。

library(tidyverse)

dat <- tibble(
  xx = rep(1:20, each = 3),
  yy = rnorm(60, 0, 1),
  grp = rep(c("A", "B", "C"), times = 20)
  )

dat %>% 
  ggplot(aes(x = xx, y = yy, color = grp)) +
  geom_point() +
  geom_line(linetype = "dashed") +
  theme(
    panel.background = element_rect(fill = "lightblue", color = "lightblue"),
    plot.background = element_rect(fill = "grey90", color = "grey90")
  )