相关疑难解决方法(0)

我试图绘制两个不相交的触摸圆圈,但我想我错过了一些非常基本的东西......

jpeg(file="test.jpg")
diam <- sqrt (2)
plot (c(-1,1), c(1,-1), xlim=c(-5,5), ylim=c(-5,5))

symbols (c(-1,1), c(1,-1), circles=c(diam,diam), add=TRUE, inches=FALSE)
dev.off()

任何人都可以向我解释为什么这些圆圈重叠？

我试图绘制一些圆圈,我有点希望它们会与某些点交叉,唉...

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个随机点并选择一个(第一个)点作为"锚点".
• 计算从锚点到所有其他点的距离.这将是我们的"半径"
• 使用上面计算的半径距离在锚点周围绘制圆圈.
• 划痕为什么圆圈不与用于计算半径的点相交.