绘制点之间的所有线

Question

我有以下R代码

x <- c(0.01848598, 0.08052353, 0.06741172, 0.11652034)
y <- c(0.4177541, 0.4042247, 0.3964025, 0.4074685)
d <- data.frame(x,y)

ggplot(d, aes(x=x, y=y)) + 
  geom_point(size=4)

创建以下图表：

我想以可重复的方式在这些点之间绘制所有可能的线，即点的数量，位置等可能会改变。有没有人知道R函数做这样的事情。标准+ geom_point（）仅在x轴上的后续点之间绘制线条。我的理想输出如下所示。提前谢谢。

BONUS - 是否有人知道一个指标（最好在R中可用）来估算一组积分占用的空间量？在这种情况下，外三角形包含的空间集。

编辑 - 已在另一个SO问题中回答了奖金here

Answer 1

您可以随时进行转换以创建您​​想要自己绘制的所有细分

x <- c(0.01848598, 0.08052353, 0.06741172, 0.11652034)
y <- c(0.4177541, 0.4042247, 0.3964025, 0.4074685)
d <- data.frame(x,y)

idx <- combn(1:length(x), 2)
dd <- data.frame(x=x[idx[1,]],y=y[idx[1,]], xend=x[idx[2,]], yend=y[idx[2,]])

ggplot(d,aes(x,y)) + 
    geom_point(data=d) + 
    geom_segment(data=dd, aes(xend=xend, yend=yend))

导致