r - {plotrix} - gap.plot - 线未连接到图表的上面板，y 轴中断

Question

我有一个数据集，其中包含一个比其他点高得多的点；我试图gap.plot在不引入不必要的空白的情况下在图表上显示这一点。但是，我的线图跳过了图表顶部面板中的点，使其孤立。

代码如下：

year<-c(2001:2015)
y<-c(30, 13, 0, 0, 0, 1, 5, 309, 7, 1, 58, 1, 62, 69, 49)
par(bty="n") #Deletes box
gap.plot(
  year,y
  , type="b" 
  , ylim=c(0,325)
  , gap=c(100,275)
  , gap.axis="y"
  , xaxt = "n"
  , xtics =NA
  , xticlab=NA
  , xlim =c(2001,2015)
  , xlab="Year"
  , ylab="Positive Samples"
  , pch=15

)
axis(1,at=c(2001:2015))
abline(h=seq(100,103), col="white",lwd=5) #Eliminates horizontal lines
axis.break(axis=2,breakpos=100,style="slash")

我最终得到下图： 我做错了什么？