ggplot2：可视化断开的y轴

Question

我想绘制只有少量失控值的小值，并且不想改变轴刻度，而是制动它。

由于似乎没有内置支持在ggplot2中制动轴，我只是更改了轴标签并相应地修改了值：

library(ggplot2)

df <- data.frame(
  x=seq(1,10),
  y=c(1,5,10,64,3,11,40,640,3,11)
)

df$yn <- ifelse(df$y<=80,df$y,df$y*.1+40)

ggplot(df, aes(x=x,y=yn)) + geom_line() + geom_point() + 
  theme_classic() +
  scale_y_continuous(breaks=seq(10,110,10), labels = c(10, 20, 30, 40, 50, 60, 70, "", 500, 600, 700)) 

我唯一想改进的是视觉表现。我想要实现的是删除（如果可能）位置80的单个y轴刻度（未显示标签），并在轴上绘制一些水平线以说明断轴。这是一个伪造的版本，它看起来如何：

有没有办法隐藏单个刻度并绘制那些线？我只知道geom_hline，但我没有设法在整个x轴上画画。

[编辑]

不重复：我发现了关于不连续轴的问题。但是正如问题所说ggplot2无法做到这一点，我自己找到了答案并通过转换值并重命名我的标签来解决了不连续轴的问题。我的问题是插入一些小线并隐藏一个滴答，而不是关于如何实现不连续轴。