R x轴中断为2个区域的qplot用于异常值

我的部分数据“plot.dat”是

---

在第0.2天和第1天很难看到关键的早期变化，因为我将有多个面板和生产线。是否有一种方法可以正常绘制从第0天到第14天的图表，并打破x轴，然后绘制第28天，就好像第28天是异常值一样

一种解决方案是使用对数刻度，使用

scale\u x\u log10（）

：

库（ggplot2）
p1
log2Exp   Days
  9.932601   0.0
  4.433500   0.2
  6.623776  1.0
  6.451625  2.0
  8.318600  3.0
  8.170948  5.0
  9.567554  7.0
  9.876911 14.0
 10.680653 28.0
qplot(Days, log2Exp, data = plot.dat,cex.lab=1.5, 
      cex.axis=2, geom=c("point", "line"))

library(ggplot2)
p1 <-qplot(Days, log2Exp, data = plot.dat,cex.lab=1.5, 
      cex.axis=2, geom=c("point", "line")) + scale_x_log10()

library(gridExtra)

p2 <- qplot(Days, log2Exp, data = plot.dat,cex.lab=1.5, 
      cex.axis=2, geom=c("point", "line"))

grid.arrange(p1,p2)