3D 플롯에서 두 세그먼트 사이의 영역 채우기 {rgl}

Question

패키지 {rgl}의 plot3d() 함수를 사용하여 정점 좌표와 선분을 사용하여 사면체를 만들었습니다. 아래 코드는 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)]) 
       } 
     } 

지금, 나는 (바람직 그래서 알파 값을 사용하여 투명도를 정의 할 수 RGB 색상을 사용하여) 점 사이의 영역을 채우려하지만 난 같은) (다각형을 발견하지 않았습니다하게 함수 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) 
} 

산출 : 당신이 정말보다는 일반적인 다각형을 필요로하는 경우 마이크가 설명으로