r - 在 y 轴上绘制两个范围

Question

我正在尝试编辑 y 轴，因此它只绘制从 -20 到 100 和 20 到 100 的范围。这是为了删除在 -25 和 +25 之间发生的大空白区域，因为我没有绘制数据在这个区域内。

以下是我到目前为止所管理的内容，希望有人能就我如何将 ylim 范围限制为仅在 -100:-20 和 20:100 之间绘制轴的建议

先感谢您

library(plotrix)
pdf("distance2gene.pdf")
data<-read.table("closest_gene_bed.txt",header=FALSE, sep="\t")
DM=data$V5
Distance=data$V15
col.vec=c(rep('olivedrab',length(Distance)))
ind=which(abs(Distance) < 5000)
col.vec[ind]= 'darkorchid4'
opt <- options(scipen = 10)
plot(Distance, DM, col= col.vec, pch = 16, cex  =.4,ylim=range(-100,100),xlim=c(-500000,500000))
axis(side = 2, at = c(-100,-75,-50,-25,0,25,50,75,100))
axis.break(axis=2, breakpos=0, brw=0.05, style="slash")
options(opt)

Answer 1

我刚刚看到您正在使用 plotrix 包：

您正在寻找的功能是?gap.plot

尝试类似：

library(plotrix)
set.seed(1)
y.up <- runif(100, 20, 100)
y.down <- runif(100, -100, -20)
gap.plot(1:200, c(y.up, y.down), gap=c(-20,20))

希望能帮助到你，

亚历克斯

Answer 2

同样的事情使用ggplot

set.seed(1)
y.up   <- runif(100, 20, 100)
y.down <- runif(100, -100, -20)

library(ggplot2)
library(reshape2)
df <- data.frame(x=seq_len(100),y.up,y.down)
gg <- melt(df,id="x")
ggplot(gg, aes(x=x,y=value))+geom_point()+facet_grid(variable~.,scales="free")