小编Říd*_*ící的帖子

我有 100 个值，我想以某种方式将它们可视化。

sorted <- sort(rnorm(100000))
dots <- c(rep(0, 100))
for (i in (1:100)){
  dots[i] <- sorted[i*1000-500]
}
plot(data.frame(dots, 1))

然而，这有许多相互重叠的小圆圈。因此，我想上下移动圆圈（而不是横向移动），使它们不再重叠。事实上，我希望这些圆圈甚至不互相接触。（因此，需要某种最小距离。）此外，我希望所有内容都尽可能接近原始内容。（我不是在寻找一些随机抖动。）

看起来像这样的东西（尽管这个例子没有完美优化）：

这需要某种优化，我怀疑某些现有库可能已经提供了这种优化。

问题：哪个图书馆可以有这样的例程？