绘制具有不同大小的多个中断

Question

我想创建一个在y轴上具有不同大小间隔的多个中断的图。我能找到的最近的帖子是Show customised X-axis ticks in ggplot2但是它并没有完全解决我的问题。

 # dummy data

 require(ggplot2)
 require(reshape2)

 a<-rnorm(mean=15,sd=1.5, n=100)
 b<-rnorm(mean=1500,sd=150, n=100)
 df<-data.frame(a=a,b=b)
 df$x <- factor(seq(100), ordered = T)
 df.m <- melt(df)

 ggplot(data = df.m, aes(x = x, y=value, colour=variable, group=variable)) +
 geom_line() + scale_y_continuous(breaks = c(seq(from = 0, to = 20, by = 1),
 seq(from = 1100, to = max(y), by = 100))) + 
 theme(axis.text.x = element_text(angle = 90, hjust = 1))

问题是如何让第一组断点与第二组断开（因此可见）。

非常感谢任何指针，谢谢！

Answer 1

您可以尝试这样的事情：

# Rearrange the factors in the data.frame
df.m$variable <- factor(df.m$variable, levels = c("b", "a"))

ggplot(data = df.m, aes(x = x, y=value, colour=variable, group=variable)) +
    geom_line()  + facet_grid(variable~., scales = "free")

希望这有帮助