使用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

您可以使用此命令重置这些轴。

在初始的plot命令中，set xaxt = "n"这将确保plot函数不会标记轴。

然后，您可以像上面提到的那样绘制abline(v=70)。

然后使用axis(1,at=seq(60,80,by=1),las=1) 1代表x轴，并在at属性中提到您想要的x limits。我已经把60到80作为一个例子。