R情节跳跃信心区域

我正在尝试创建一个信任乐队的情节,每年更新一次.

这是我试图创建的情节的一个例子:

一些可重现的数据如下:

x_axis <- seq(1,24)
confidence_low_yr_1 <- c(seq(40,by=15, length.out = 12),rep(NA,12))
confidence_high_yr_1 <- c(seq(140,by=15, length.out = 12),rep(NA,12))
confidence_low_yr_2 <- c(rep(NA,11),seq(250,by=15, length.out = 13))
confidence_high_yr_2 <- c(rep(NA,11),seq(315,by=15, length.out = 13))

当我试图绘制线条时,我收到了关于长度不匹配的错误.我猜这与NA值有关.我不知道该怎么做,所以任何帮助都会受到赞赏.另一个问题是在线之间填充.

这甚至可能吗？