请问在R语言中如何设置坐标轴打断

有时候会遇到一个系列的数据不在一个数量级上，又要在图上同时反映出大数据和小数据的变化规律，就需要绘制下面这种坐标轴（Y轴）断开的图表。

在Origin中坐标轴选项卡中直接有break选项，但在R语言中没有相关的函数或者选项。请问各位大牛，R语言能否做出下面这种图，在50到900处纵轴被打断。谢谢各位！



图片及说明来源  http://www.yelinsky.com/blog/archives/331.html

Find a very close example to your problem from web and paste it here.

###########################
# x-values
x <- 1:4

# small y-values with corresponding standard errors
meansarr <- c(14.9, 18.2, 14.5, 18.3)
searr <- c(0.47, 1.27, 1.22, 0.49)

# large values
meanslay <- c(36.4, 39.0, 35.3, 38.6)
selay <- c(0.51, 0.34, 0.57, 0.40)

library(plotrix)

# plot small values
plot(x, meansarr, ylim=c(12, 30), axes=F, type="b", xlab="", ylab="Day")
arrows(x, meansarr-searr, x, meansarr+searr, code = 3, angle = 90,
       length = 0.03)
box()

# x-axis
axis(1, tck=0.01, las=1, at=1:4,
     labels=c("1998", "1999", "2002", "2003"), mgp=c(3, 0.5, 0))

# y-axis
axis(2,at=c(12, 14, 16, 18, 20, 24, 26, 28,
            30),labels=c("12","14","16","18","20", "34","36","38","40"))


# break axis
axis.break(2, 22, style="zigzag")

# add large values to same plot
par(new=TRUE)
plot(x, meanslay, ylim=c(30, 40), type="b", xlab="", ylab="Day", axes=F)
arrows(x, meanslay-selay, x, meanslay+selay, code = 3, angle = 90,
       length = 0.03)

我也想知道这个问题，顶一下

Check the axis.break() function in the plotrix package. I cannot see your plot above and the link is blocked by the firewall...

同求，楼上的不对，没有axis.break

看懂了,先安装并加载plotrix库，然后就有了 axis.break

library(plotrix)
plot(...)
axis.break(...)

学习了，谢谢bobguy

也发现了不足，若是制作一副图，在图中增加折断符号，但是设计不了折断的范围。