r - 带有 x 轴的 qplot 分成 2 个异常值区域

Question

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

   log2Exp 天数
  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

大多数数据位于 x 轴的前半部分（<=第 14 天）。如果我只是绘制图表使用

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

鉴于我将有多个面板和线路，很难在第 0.2 天和第 1 天看到关键的早期变化。有没有办法从第 0 天到第 14 天正常绘制图表并打破 x 轴然后绘制第 28 天，就好像第 28 天是异常值一样。

Answer 1

一种解决方案是使用对数刻度scale_x_log10()：

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)