使用R中的垂直线在图表上绘制间隔？

Question

install.packages("devtools")
library(devtools)
devtools::install_github("google/CausalImpact")
library(CausalImpact)

set.seed(1)
x1 <- 100 + arima.sim(model = list(ar = 0.999), n = 100)
y <- 1.2 * x1 + rnorm(100)
y[71:100] <- y[71:100] + 10
data <- cbind(y, x1)
pre.period <- c(1, 70)
post.period <- c(71, 100)
impact <- CausalImpact(data, pre.period, post.period)
plot(impact, "cumulative")

假设我希望图表显示从71到100的间隔，x刻度从第一个虚线开始，1对于如何做到这一点的任何想法？ 有没有人知道如何在图表上添加描绘间隔的第二条垂直虚线？谢谢。

Answer 1

您可以使用abline()向图表添加线条，参数v = 70在x = 70处设置垂直线。我不知道如何重新启动x-scale然而，这一点似乎不太可能，但也许其他人知道如何。

Answer 2

您可以使用此功能重置轴。

在初始绘图命令中，设置xaxt = "n"这可确保绘图功能不标记轴。

然后您可以如上所述绘制abline(v=70)。

然后使用axis(1,at=seq(60,80,by=1),las=1) 1代表x轴，在at属性中，提及您想要的x limits。我以60到80为例。