在rgl中填寫輪廓

Question

下面的代碼繪製了一些點並用線連接它們。我想填寫 選擇顏色和alpha的行所包圍的區域。我似乎無法看到如何做到這一點使用RGL

# Open plot and add axes 
open3d() 
decorate3d(xlim=c(0,4), ylim=c(0,4), zlim=c(0,4), 
     xlab = NULL, ylab = NULL, zlab = NULL, 
     box = FALSE, axes = FALSE, 
     main = "", sub = NULL, 
     top = TRUE, aspect = FALSE) 
axis3d(edge="z", col="blue") 
axis3d(edge="x", col="green") 
axis3d(edge="y", col="green") 
# Draw some points and connect by lines 
#    x y z 
vs = matrix(c(1,1,1, 1,2,1, 2,3,1, 2,3,2, 1,2,2, 1,2,2, 1,1,2), byrow=TRUE, ncol=3) 
points3d(vs, size=4, col="red") 
lines3d(rbind(vs, c(1,1,1))) 

Answer 1

如何：

quads3d(vs[c(1:2,5,7),],col="purple",alpha=0.5) 
quads3d(vs[c(2:5),],col="cyan",alpha=0.5) 

？