具有 plotly 的 Mesh3d 对象的颜色

Question

我正在尝试使用 Mesh3d 绘制椭圆体。唯一的问题，我不能改变颜色。颜色的参数很多（colorscale, colorface, colorbar, ...），有什么方法可以控制每个椭圆体的颜色吗？

我的代码：

Color1<-c("#A6CEE3","#1F78B4","#8DA0CB","#33A02C","#FB9A99","#E31A1C","#FDBF6F","#FF7F00",
          "#CAB2D6","#6A3D9A","#FFFF99","#B15928","#66C2A5","#FC8D62","B2DF8A","#E78AC3")

fig <- plot_ly(x = BD_PCA[,1], y = BD_PCA[,2], z = BD_PCA[,3])
fig <- fig %>% layout(scene = list(xaxis = list(title = 'PCA1'),
                                   yaxis = list(title = 'PCA2'),
                                   zaxis = list(title = 'PCA3')))

for(i in levels(data_CSV$groups)){
      ellipse <- ellipse3d(cov(cbind(x = BD_PCA[data_CSV$groups==i,1],
                                     y = BD_PCA[data_CSV$groups==i,2],
                                     z = BD_PCA[data_CSV$groups==i,3])),
                           centre=c(mean(BD_PCA[data_CSV$groups==i,1]),
                                    mean(BD_PCA[data_CSV$groups==i,2]),
                                    mean(BD_PCA[data_CSV$groups==i,3])), level = 0.4)
      
      
      fig <- fig %>% add_trace(x=ellipse$vb [1,], y=ellipse$vb [2,], z=ellipse$vb [3,],
                               type='mesh3d', alphahull = 0, opacity = 0.3,name=i,showlegend = T,
                               autocolorscale=FALSE,color=Color1[strtoi(i)]),cauto=FALSE)
}
fig <- fig %>%
  add_trace(
    x = BD_PCA[nrow(BD_PCA),1],y = BD_PCA[nrow(BD_PCA),2],z = BD_PCA[nrow(BD_PCA),3],
    marker = list(color = 'black',symbol='square-dot',size = 5),name="Tested results",showlegend = F)

fig <- fig %>% layout(legend = list(x = 1, y = 1))
plot(fig)

带自动颜色的椭圆：

Answer 1

文档说参数 color 设置了整个网格的颜色，但我试过了，但没有用。您可以使用 facecolor，但您必须为每个面提供一种颜色：

library(plotly)
library(rgl)

Sigma <- matrix(c(10, 3, 0, 3, 2, 0, 0, 0, 1), 3, 3)
Mean <- 1:3
ellipsoid <- 
  ellipse3d(Sigma, centre = Mean, subdivide = 5) # this is a mesh of quads
ellipsoid <- Morpho::quad2trimesh(ellipsoid) # we triangulate it

plot_ly(
  x = ellipsoid$vb[1,], y = ellipsoid$vb[2,], z = ellipsoid$vb[3,],
  i = ellipsoid$it[1,]-1, j = ellipsoid$it[2,]-1, k = ellipsoid$it[3,]-1,
  type = "mesh3d",
  facecolor = rep("#ff0000", ncol(ellipsoid$it))
) %>% layout(scene = list(aspectmode = "data"))

Answer 2

完美搭配facecolor，我重复了1000次。谢谢斯蒂芬。

具有 plotly 的 Mesh3d 对象的颜色

COLOR OF Mesh3d objects with plotly

r

plotly

r-plotly