plot3d (rgl)

Question

에 의해 생성 된 3D 플롯에 레이블 이름을 플로팅 plot3d() (rgl)을 사용하여 3 차원의 MDS 분석 결과를 플로팅하고 싶습니다. 이 같은 데이터 및 코드보기 :

threedim$points 
       [,1]  [,2]  [,3]  [,4] 
    Dutch  -6.45931417 -2.1589222 -5.829244 -0.4891066 
    German  -7.27770201 0.2666916 -2.198595 6.8658602 
    Albanian 4.11799731 0.6810336 11.356935 -2.2623921 
    Armenian 13.58431670 21.6527626 -2.245146 6.3506665 
    French  -0.24170759 -0.8579159 14.197611 -0.1871443 

    threedim$points[,1] -> x 
    threedim$points[,2] -> y 
    threedim$points[,3] -> z 
    library(rgl) 
    plot3d(x,y,z) 
    text(c("Dutch","German","Albanian","Armenian","French")) 

나는 다음과 같은 오류 메시지가 얻을 : NA 그리고 강압에 의해 소개 : xy.coords (X, Y, 재활용 = TRUE)에서 :

"경고 메시지 "

내가 뭘 잘못하고 있니?

Answer 1

사용 text3d보다는 RGL 그래픽과 text (기본 그래픽)를 혼합하려고 ...

dat <- read.table(textConnection(
"nation x y z w         
Dutch  -6.45931417 -2.1589222 -5.829244 -0.4891066 
German  -7.27770201 0.2666916 -2.198595 6.8658602 
Albanian 4.11799731 0.6810336 11.356935 -2.2623921 
Armenian 13.58431670 21.6527626 -2.245146 6.3506665 
French  -0.24170759 -0.8579159 14.197611 -0.1871443"), 
header=TRUE,as.is=TRUE) 

library(rgl) 
with(dat,plot3d(x,y,z)) 
with(dat,text3d(x,y,z,nation))