試圖基於點

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

這是舊的縱橫比的問題，不時出現時間，當人們正在繪製橢圓形，圓形等

• Drawing non-intersecting circles

爲plot代MASS::eqscplot（ 編輯：或使用asp=1：請參閱?par）似乎可以解決問題。