如何确定R中加权voronoi图，幂图或Laguerre-Voronoi图的分界线

Question

我遇到与本文中讨论的问题类似的问题：

Project Scipy Voronoi diagram from 3d to 2d

但是，我希望在R中执行功率图。我知道deldir中的deldir（）函数使用'z'属性中的“ weights”作为标签，而不是实际的权重，但是我想要一个函数将使用权重来确定分隔线的绘制位置，如下所示：

What I'm looking for:

这是我到目前为止（生成正常的非加权voronoi图）：

library(dismo)
x=c(1,4,3)
y=c(1,2,5)
z=c(1,3,2)
points=data.frame(x=x,y=y)
vor <- dismo::voronoi(points)
plot(vor)
points(x,y)