R 平面网格两段y轴

在下面的示例数据框中，我希望有2段y轴（y轴中断），以便更好地显示“lna1”中较小值的分辨率。我已经尝试过facet_wrap，但我想使用facet_网格来比较具有相同y尺度的基因

df<-data.frame(stimulation=rep(rep(c("a","b","c"), each=3),2),
           LNA=rep(c("lna1","lna2"),each=9), 
           foldchange=c(5,6,7,10,11,12,4,3,2,40,45,55,7,8,10,99,100,101))
n <- 3  
df<-do.call("rbind", replicate(n, df, simplify = FALSE))%>%
  mutate(genes=rep(c("gene1","gene2","gene3"), each=18))



ggplot(df, aes(x=LNA, y=foldchange,fill = stimulation))+
  geom_point() +
  geom_boxplot(alpha = 0.2) +
  theme(axis.text.x = element_text(angle = 60, hjust = 1)
        ,legend.background = element_rect(fill = "white", colour = NA)) +
  geom_hline(yintercept = 1) +
  scale_x_discrete(limits=c("lna1","lna2")) +
  facet_grid(stimulation~genes, scales="free")

---

dft无法在ggplot2中创建断轴。有关其他可能的解决方案的讨论，请参阅（可以执行断轴操作的软件包，以及如果希望保留在ggplot2中，显示此类数据的其他方式）谢谢Jan。虽然我不喜欢，但我必须绘制log2值。的可能重复似乎不可能，我绘制了log2转换值。没有办法在ggplot2中创建断轴。有关其他可能的解决方案的讨论，请参阅（可以执行断轴操作的软件包，以及如果希望保留在ggplot2中，显示此类数据的其他方式）。感谢Jan。虽然我不喜欢，但我必须绘制log2值。可能的重复似乎不可能，我绘制了log2转换值。