绘制一条连接绘图外部点的线

【问题标题】：Plot a line that connects the outer points of a plot绘制一条连接绘图外部点的线
【发布时间】：2012-12-14 09:23:24
【问题描述】：

我想绘制一条连接绘图外部点的线

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

因此“包”了情节的所有点

【问题讨论】：

标签： r

【解决方案1】：

这里使用的函数是chull。第 4 号线用于关闭圆圈。如需更多示例，请参阅here。

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

【讨论】：

太棒了！非常感谢你。不过，如果您可以添加答案以使其存在于 stackexchange 中，那就太好了。万一其他人有同样的问题。

【解决方案2】：

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")

【讨论】：