mesh3d 삼각형의 얼굴을 색칠하는 방법 R Plotly

Question

R studio를 사용하여 plotlyR에서 mesh3D 그림을 만들려고하는데 색상 표를 만드는 방법에 문제가 있습니다. 나는이 코드를 사용하여 좋은 메쉬 플롯이

,

zmean <- apply(faces, MARGIN=1, function(row){mean(points[row,3])}) 

facecolor = colour_ramp(
    brewer_pal(palette="RdBu")(9) 
)(rescale(x=zmean)) 

(나는 웹 사이트에서 발견 된 위 그냥 줄거리 만들 수 있지만, 내가 원하는 메쉬 컬러 스케일 없음) http://moderndata.plot.ly/trisurf-plots-in-r-using-plotly/http://moderndata.plot.ly/trisurf-plots-in-r-using-plotly/

p <- plot_ly(
    x = points[, 1], y = points[, 2], z = points[, 3], 
    i = faces[, 1]-1, j = faces[, 2]-1, k = faces[, 3]-1, 
    type = "mesh3d", 
    facecolor = "red", 
) 

p 

얼굴색이 무엇인지, 밝기가 무엇인지, 색상 크기가 무엇인지는 잘 모르겠지만 각 점을 측정 한 bi라는 값에 따라 다른 색상 눈금을 메쉬에 매핑하고 싶습니다. xyz 배열 (즉, 각 x = points [, 1], y = points [, 2], z = points [ , 3] point는 bi의 값을 가지고 있습니다.) 그리고 나는 그 색상을 스케일링하기를 원하는데, 블렌딩 윤곽 방식으로 색상을 스케일링하고자합니다.

어떻게 계획할까요? 즉 여기 interrsted하는 사람들을 위해

https://plot.ly/~neilsrini/1377/points-2-vs-points-1/

Answer 1

을하는 데 도움이 솔루션

p1 <- plot_ly(
    x = points[, 1], y = points[, 2], z = points[, 3], 

    i = faces[, 1]-1, j = faces[, 2]-1, k = faces[, 3]-1, 

    type = "mesh3d", 

    facecolor = face$colour 

    ) 

위의 플롯하는 코드였다 경우 여기

는 줄거리이다. face $ color는 다음과 같이 작성되었습니다.

zmean <- apply(faces, MARGIN=1, function(row){mean(bipts[row,1])}) 

다음 컬러

face$colour[zmean<= 0.5] <- "#800026" etc etc 

에 zmean 값 변환 양방향 측정 벡터의 평균값으로 각면을 변환하기 위해 아래의 함수를 사용하여