如何在密度图上创建x轴断裂？

Question

我正在尝试绘制范围广泛的数据集的密度图。

数据= c（-10，-20，-20，-18，-17,1000,10000，500，500，500，500000）

地块（密度（数据））

正如您在图中看到的，我们看不到太多 。

有没有一种方法可以使x轴上的一个（或多个）轴断裂，以便更好地可视化数据的分布？ 或者，是否有一种方法可以在多个图形中绘制一定范围的数据，然后将其粘贴在一起？

非常感谢！

Answer 1

包plotrix有一个函数gap.plot() ，但我认为它存在一些问题（请参阅如何在R中突破y-data-range绘制“多”曲线 ）。 我建议您绘制两个图。

  ## use small margins and relatively big outer margins (to write labels).
old.par <- par(mfrow = c(1, 2), mar = rep(0.5, 4), oma = c(4, 4, 1, 1))

plot(density(data), xlim = c(-1000, 29000), main = "", bty="c")               # diff 30000
abline(v = par("usr")[2], lty=2)          # keep the same diff of xlim to avoid misleading
plot(density(data), xlim = c(471000, 501000), main = "", yaxt ="n", bty="]")  # diff 30000
abline(v = par("usr"[1]), lty=2)

par(old.par)