R/ggplot2 /如何从散点图中的连接点移动到填充和透明三角形？

Question

以下是多维缩放实验的x和y坐标:三种具有不同距离度量和缩放/无缩放的情况."Set"是指标缩放组合(1到6).每个案例都有一个类标签(0或4).

       X1         X2     method       scale class set
1   18.881729  -2.931111 euclidean     no     0   1
2  -13.141592  -9.750710 euclidean     no     4   1
3   -5.740138  12.681822 euclidean     no     4   1
4  -21.886160 -15.467637 manhattan scaled     0   2
5  -16.755615  16.900148 manhattan scaled     4   2
6   38.641776  -1.432512 manhattan scaled     4   2
7   32.927820  -7.900971 minkowski     no     0   3
8  -28.957697 -11.666982 minkowski     no     4   3
9   -3.970123  19.567953 minkowski     no     4   3
10   5.944225  25.819482 euclidean scaled     0   4
11  44.574669 -15.330675 euclidean scaled     4   4
12 -50.518894 -10.488807 euclidean scaled     4   4
13  14.287762   1.142065 manhattan     no     0   5
14  -5.843410  -9.981600 manhattan     no     4   5
15  -8.444351   8.839535 manhattan     no     4   5
16 -24.838956  -8.194378 minkowski scaled     0   6
17 -11.435517  10.496471 minkowski scaled     4   6
18  36.274473  -2.302093 minkowski scaled     4   6

和ggplotting:

p <- ggplot(df, aes(X1, X2))
p <- p + geom_point(aes(colour = factor(scale), shape = factor(method)), size=10)
p <- p + geom_text(aes(label=class), size=5)
p <- p + geom_line(aes(X1,X2, group=factor(set)))
p <- p + theme_bw()
p

我想为每个组("set")制作6个填充和透明的三角形.顶部三角形是曼哈顿 - 没有缩放.我使用geom_segment的实验没有成功,我不确定geom_polygon是否是正确的方向.有什么建议？谢谢!

Answer 1

您可以使用geom_polygon封闭路径:

library(ggplot2)
p <- ggplot(df, aes(X1, X2))
p <- p + geom_polygon(aes(fill = factor(set)), alpha = .4)
p <- p + theme_bw()
p

这里,alpha用于指定透明度.