qplot與x軸打入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)