r - 密度プロットで x 軸を分割する方法

Question

分布と、分布の最小値よりも非常に小さい単一の値 (abline を使用) をプロットしたいので、abline はプロットに表示されません。x軸スケールを操作したり、ブレークを挿入したりして、同じプロットにそれらをプロットするにはどうすればよいですか?

data <- rnorm(1000, -3500, 27)
estimate <- -80000

plot(density(data))
abline(v = estimate)

Answer 1

これは大まかな解決策です。特にきれいではありません。

library(plotrix)

d <- density(data)
gap.plot(c(-8000,d$x), c(0,d$y), gap=range(c(-7990,-3620)), 
         gap.axis="x", type="l", xlab="x", ylab="Density", 
         xtics=c(-8000,seq(-3600,-3300,by=100)))
abline(v=-8000, col="red", lwd=2)

Answer 2

何が必要かは明確ではありませんが、これは進歩かもしれません:

plot(density(data), xlim=range(c(data, estimate+10) ) )
abline(v = estimate, col='red')

package:plotrix には壊れた軸プロット関数があります。