具有x軸的qplot突破到2個區域用於異常值

Question

我的數據“plot.dat”的一部分是

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

大多數數據都在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)