R中的y轴断裂

Question

我是R的新手所以请原谅我的无知（1周后）。我试图生成一个散点图，在y轴上有一个断点，使它从0开始，然后在20开始之前断开（0到20之间没有数据点）我尝试了使用plotrix的各种命令（通过通过以前回答的问题）但它不会改变输出图。下面的代码生成了一个很好的绘图格式，以我想要的方式格式化，但我不知道下一步在哪里或做什么然后在y轴上产生中断（可能用//表示）。

Age_perception <- ggplot(mydata
                       , aes(x=Age_years, y=Perception)) + 
  coord_cartesian(ylim = c(0, 100))+
  geom_point()+ 
  labs(x='Age in years', y='Perception') + 
  geom_smooth(method=lm, se=FALSE, fullrange=TRUE, col = 'black') + 
  apatheme +  
  theme(text = element_text(size=20)) 
Age_perception