r - プロットの外側の点を結ぶ線をプロットする

Question

プロットの外側の点を結ぶ線をプロットしたい

plot(rnorm(1000), rnorm(1000), xlim=c(-5,5),ylim=c(-5,5))

したがって、プロットのすべてのポイントを「バッグ」にします

Answer 1

a  <-  rnorm(1000)
b  <-  rnorm(1000)


Plot_ConvexHull<-function(xcoord, ycoord, lcolor){
hpts <- chull(x = xcoord, y = ycoord)
hpts <- c(hpts, hpts[1])
lines(xcoord[hpts], ycoord[hpts], col = lcolor)
}

(xrange <- range(c(a)))
(yrange <- range(c(b)))

par(tck = 0.02, mgp = c(1.7, 0.3, 0))
plot(a, b, type = "p", pch = 1, col = "black", xlim = c(xrange), ylim = c(yrange))
Plot_ConvexHull(xcoord = a, ycoord = b, lcolor = "black")

Answer 2

ここで使用する関数はchull. 4行目は円を閉じるためにあります。その他の例については、こちらを参照してください。

x <- data.frame(x = rnorm(100), y = rnorm(100))
plot(x)
chx <- chull(x)
chx <- rbind(x = x[chx, ], x[chx[1], ])
lines(chx)