ggplot2自定义轴缩放

Question

我正在尝试在y轴上绘制Z分数并在x轴上绘制位置。 x轴是连续的并且非常长，具有相对小的区域，其中z是“有趣的”，即＆gt; 2.我想分割轴，移除Z与0不远的长区域，然后仅绘制Z> Z的周围区域。 2.我的数据位置是200000长，只有大约2000个位置有一个有趣的z分数。这就是我的df的样子;

 Position,Region,Height,Z
 3,orf1,10,0
 4,orf1,10,0.1
 5,orf1,10,0.1
 10,orf2,10,0
 11,orf2,10,-3
 12,orf2,10,-3
 16,orf3,10,0.1
 17,orf3,10,0.1
 18,orf3,10,0.1

 t1 <- ggplot(test, aes(x=Position, y=Z, colour=Z)) +
 geom_point(stat='identity') + ylim(-5,5) + 
 theme(legend.position='none') + scale_x_discrete(limit = c(0,5,8,15))

轴仍然完整地绘制。如果我不想绘制位置6-10和13-15如何在x轴上执行此操作？感谢

Answer 1

基于lukeA的评论 - 带有自由x轴的刻面图。缺点是所有子图都具有相同的大小。

require(ggplot2)

d <- read.table("clipboard",sep=",",header=T)
ggplot(d,aes(x=Position,y=Z)) 
  + geom_line() 
  + facet_grid(. ~ region,scales="free_x")