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

Question

我正在尝试画一些圆圈，我有点希望它们会与一些点相交，唉......

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

上面的代码执行以下操作：

• 创建 10 个随机点并选择一个（第一个）点作为“锚点”。
• 计算从锚点到所有其他点的距离。这将是我们的“半径”
• 使用上面计算的半径距离围绕锚点绘制圆圈。
• 从头开始为什么圆不与用于计算半径的点相交。

Answer 1

这是人们在绘制椭圆、圆形等时不时出现的老长宽比问题。

• 绘制不相交的圆

替换MASS::eqscplot（编辑plot：或使用：见）似乎可以解决问题。asp=1?par