3D 플롯 - 패치

Question

I가 데이터 프레임에 다음 데이터 :

예를 들어

**x** in (0,1) 
**y** in [0,1] 
**z** in [0,1] 

:

X,Y,Z 
0.1, 0.2, 0.56 
0.1, 0.3, 0.57 
... 

I 차트의 유형을 플롯 싶습니다

나는 R을 시도했지만, 얻을 수있는 것은 모두 not-so-fancy 3d scatterplot입니다. 나는 lattice 3d wireframe에 대해서도 읽었지만, 나는 그 머리를 감당할 수 없었다.

R에서 와이어 프레임과 같은 Matlab을 얻으려면 어떻게해야합니까? 관련된 데이터 변환은 무엇입니까? 나는 그것이 특히 분명 찾을 수없는

x <- seq(-pi, pi, len = 20) 
y <- seq(-pi, pi, len = 20) 
g <- expand.grid(x = x, y = y) 
g$z <- sin(sqrt(g$x^2 + g$y^2)) 
wireframe(z ~ x * y, g, drape = TRUE, 
aspect = c(3,1), colorkey = TRUE) 

:

이

은 문서에서 샘플 코드입니다.

편집 : persp3d 함수가 정상적으로 작동하고 하나의 색상으로 3 차원 플롯을 생성 할 수있었습니다. z 값을 기준으로 색상 스케일을 어떻게 설정할 수 있습니까? 어떤 힌트를

감사합니다, Mulone

Answer 1

사용 outer는 z 값을 만든 다음 플롯 persp을 사용하기 :

z <- outer(x,y, function(x,y) sin(sqrt(x^2+y^2))) 
persp(x,y,z) 

그림 및보기를 설정하기위한 옵션이 있습니다 각도는 ?persp을 참조하십시오. Matlab 스타일 채색의 네 번째 예제를 참조하십시오.

대화 형 플롯의 경우, rgl 패키지에 persp3d 사용을 고려 :

require(rgl) 
persp3d(x,y,z,col="blue") 

편집 색상과 관련된부터

이 persp의 방법에서 약간의 차이가 색상을 추가하려면 패싯의 중심보다는 정점에 위치하지만, 더 쉽게 만들 수 있습니다.

jet.colors <- colorRampPalette(c("blue", "green")) 
pal <- jet.colors(100) 
col.ind <- cut(z,100) # colour indices of each point 
persp3d(x,y,z,col=pal[col.ind]) 

도움말 파일 매개 변수 smooth=FALSE를 추가하는 것이 좋습니다,하지만 그 아래로 개인적인 취향에의

.