r - 在 x 轴上具有不等距离的 hclust 图的参数？(右)

Question

我想制作下面的图（对于一维 x），但是为了让我们将观察结果定位在 x 轴上的正确位置（而不是在它们的等级位置）：

x <- c(1,2,  7, 9)
names(x) <- x
plot(hclust(dist(x)), hang= -1)
axis(1)

我怀疑在 R 中没有现成的函数可以做到这一点。关于如何编写这样的函数有什么建议吗？