在R中断开轴并缩短图形

Question

我目前正在尝试添加轴断点并缩短x轴以使BA图（使用methcomp绘制）看起来有点整洁。

我已设法使用axis.break插入一个中断，但无法锻炼如何缩短或删除轴的一部分

library(MethComp)


comp <- read.csv("HIVVL.csv")
comp
co <- Meth(comp, y=c("Abbot","Qiagen"))

BA.plot(co, pl.type="", dif.type="const", grid=TRUE, eqn=FALSE, repl.conn=TRUE, xaxs="i", yaxs="i")

axis.break(axis=1, breakpos=1250000, style="slash", brw=0.02) 

我的比例从0到3000000，最后一个数据点大约是1000000，所以我希望从1250000到2750000之间休息。