R/ggplot2 /如何從散點圖中的連接點移動到實心和透明三角形？

Question

這裏是來自多維縮放的x和y座標 實驗：具有不同距離度量和 縮放/不縮放的三種情況。 「設置」是度量縮放組合 （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.97.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 

我想使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用於指定的透明度。