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(...)