플롯 plotly 또는 R

Question

나는 3D alphashape을 가지고 사용하여 플롯하려고에 대한 ggplot2 plotly 또는 R.에서 ggplot2 패키지는 아래 R의 기본 플롯 패키지를 사용하는 예는 다음과 같습니다

토러스 예

을 알파

library(alphashape3d) 
T1 <- rtorus(1000,0.5,2) 
T2 <- rtorus(1000,0.5,2,ct=c(2,0,0),rotx=pi/2) 
x <- rbind(T1,T2) 

값

alpha <- 0.5

3D 알파 형상

0

ashape3d.obj<- ashape3d(x,alpha=alpha)

plot(ashape3d.obj) 

이 플롯() 함수의 내부에서 잘 작동하지만 난 plotly 또는 ggplot 기능을 사용하여 같은 모양을 얻을 수 없습니다. 필자는 삼각형 측량 점인 ashape3d.obj $ triang 및 ashape3d.obj $ tetra 속성이 있음을 알고 있습니다. 그러나 이것을 3D 메쉬로 사용하면 같은 3D 메쉬를 plot()으로 사용하지 않습니다.

다른 메쉬 루틴에 대한 도움이나 제안은 크게 감사하겠습니다.

Answer 1

해결책을 찾았습니다. 분명히 삼각형 화 행렬에서 포인트는 삼각형이 모양과 관련하여 어디에 위치하는지에 따라 구성됩니다. 위의 표기법을 사용

,

library(plotly) 
ashape3d.obj$triang[,9] 

는 형태로, 1 정기적으로 내부, 2 =에서 = 3 = 단수

당신이 계속 0 = 삼각형하지 않으면 조직의 스키마를 보유하고 이어서

temp <- ashape3.obj$triang 
temp <- temp[temp[,9]>0,] 

을 이용하여 0보다 큰 값은 플롯

,859,274,525를 사용

인덱스가 0이 아닌 하나부터 시작하므로 삼각 측량 점에서 1을 뺍니다.