3Dプロット内の2つのセグメント間の領域を塗りつぶす{rgl}

Question

頂点座標と線分を使って四面体を作成しました。パッケージ{rgl}の関数plot3d（）を使用しました。以下のコードは次のように）私は点（I、アルファ値を使用して透明度を定義することができるように、好ましくは、RGBカラーを使用して）の間の領域を充填するが、私は（ポリゴンを見つけていない、今mentioned plot

library("rgl") 
CCl4=c(5,5,5,10) 
Luminol=c(0.01,0.001,0.005,0.005) 
Na2CO3=c(0.01,0.01,0.1,0.05) 

plot3d(Luminol, Na2CO3, CCl4, type = "s") 

for(i in 1:4){ 
    for(k in 1:4){ 
       segments3d(x=Luminol[c(i,k)],y=Na2CO3[c(i,k)],z=CCl4[c(i,k)]) 
       } 
     } 

を行いますrglの関数。このエリアを埋める方法はありますか？

ありがとうございます。

Answer 1

これはあなたが探しているものですか？要求に完全にはっきりしていなかった。私はそれを理解するためにすべてに色を付けました。

library("rgl") 
CCl4=c(5,5,5,10) 
Luminol=c(0.01,0.001,0.005,0.005) 
Na2CO3=c(0.01,0.01,0.1,0.05) 

clrs <- c("red","blue","green","darkgrey") 

plot3d(Luminol, Na2CO3, CCl4, type = "s",col=clrs) 

for(i in 1:4){ 
    clr <- clrs[i] 
    for(k in (i+1):4){ 
     v <- c(i,k) 
     segments3d(Luminol[v],Na2CO3[v],CCl4[v],color=clr) 
    } 
} 

for (i in 1:4){ 
    clr <- clrs[i] 
    v <- setdiff(1:4,i) 
    triangles3d(Luminol[v],Na2CO3[v],CCl4[v],alpha=0.5,col=clr) 
} 

得：あなたは本当に一般的な多角形ではなく、マイクは説明としてだけで三角形を必要とする場合にも `）（` polygon3dを使用することができます