试图根据点之间的距离画圆

如何解决试图根据点之间的距离画圆

| 我正在尝试画一些圆，我有点希望它们与某些点相交，a ...

library(maptools)
library(plotrix)
xy <- matrix(runif(20,min = -100,max = 100),ncol = 2)
distance <- spdistsN1(xy,xy[1,])
plot(0,xlim = c(-100,100),ylim = c(-100,type = \"n\")
points(data.frame(xy))
points(xy[1,1],2],pch = 16)
draw.circle(xy[1,radius = distance)

上面的代码执行以下操作： 创建10个随机点，然后选择一个（第一个）点作为“锚点”。 计算从锚点到所有其他点的距离。这就是我们的“半径” 使用以上计算出的半径距离，在锚点周围绘制圆。 从头开始，为什么圆不与用于计算半径的点相交。     

解决方法

        这是人们在绘制椭圆，圆等时不时出现的古老的长宽比问题。 绘制不相交的圆 似乎用

MASS::eqscplot

代替

plot

（编辑：或使用

asp=1

：请参阅

?par

）解决了该问题。