RGL plot3d에서 마우스를 사용하여 요소를 선택하는 방법?

Question

내 다 변수 데이터 세트의 주요 구성 요소를 계산하고 처음 3 가지 주요 구성 요소 점수를 rgl::plot3d 인 3 차원 대화 형 플롯의 구체로 표시합니다. 불행하게도 3D 플롯의 어느 구가 내 데이터 세트의 어떤 관찰과 일치하는지 항상 명확하지는 않습니다. 클릭 한 구의 인덱스를 반환하는 마우스 콜백을 추가하는 간단한 방법이 있습니까?

# For example, I plot iris 
library(rgl) 
with(iris, plot3d(Sepal.Length, Sepal.Width, Petal.Length, 
         type="s", col=as.numeric(Species))) 

# Now I click on some data points and want to get their indices 
# how? 

것은 내가 WebGL user interaction tutorial을 확인했지만, 그러한 기능을 언급하지 않습니다. 나는 또한 translationMatrix과 rgl.setMouseCallbacks의 멋진 조합으로 플롯 좌표에서 마우스 포인터의 위치를 ​​얻은 다음 가장 가까운 요소에 잠재적으로 링크 할 수 있다고 생각했지만 복잡 할 것 같습니다.

Answer 1

좋아, 질문에 Have names on the spheres built by rgl package plot3danswer 언급 함수보다 rgl::identify3d 발견했습니다. 그것은 내가 찾고있는 것을 정확하게합니다.

library(rgl) 
attach(iris) 
plot3d(Sepal.Length, Sepal.Width, Petal.Length, 
     type="s", col=as.numeric(Species)) 
pts <- identify3d(Sepal.Length, Sepal.Width, Petal.Length, 
     labels = rownames(iris)) 
# Use the right button to select, the middle button to quit 

pts 
# [1] 120 107 42 14 2 106 118 
detach(iris) 

iris[pts, ] # get selected observations