R 错误：根据矩阵中的值对图着色

Question

我正在使用 R 编程语言。

我正在尝试在变量“x、y 和 w”之间制作一个 3 维图，并根据“z”的值对该图进行着色：

library(plotly)
library(dplyr)

X <- seq(0,3.1,0.1)
Y <- seq(0,3.1,0.1)
W <- seq(0,3.1,0.1)
DF <- expand.grid(X,Y, W)

#Compute variable for colors
DF$Z <- sin(DF$Var1) + cos(DF$Var2) + sin(DF$Var3)

#make a matrix of color values
Mat <- matrix(DF$Z,nrow = 32)

#make a matrix for z values

Mat2 <- matrix(rep(c(1:16,16:1),32),nrow=32)

#plot
    plot_ly(y=~Y,x=X,  z=~W) %>%  
      add_surface(surfacecolor=~Mat)

但这会产生错误：

Error: `z` must be a numeric matrix

谁能告诉我如何解决这个问题？

谢谢

注意：出于某种原因，以下代码有效：

X <- seq(0,3.1,0.1)
Y <- seq(0,3.1,0.1)
DF <- expand.grid(X,Y)

#Compute variable for colors
DF$Z <- sin(DF$Var1) + cos(DF$Var2)

#make a matrix of color values
Mat <- matrix(DF$Z,nrow = 32)

#make a matrix for z values
Mat2 <- matrix(rep(c(1:16,16:1),32),nrow=32)

plot_ly(y=~Y,x=X,  z=~Mat2) %>%  
    add_surface(surfacecolor=~Mat)

Answer 1

您的数据本质上是线上的点 三个维度（X、Y、W），因此不清楚您要绘制什么表面。 add_surface 期望 z-values 是一个 32x32 矩阵（因为 X 和 Y 各有 32 个条目）但是您在（第一次）调用中提供了向量 W，因此会出现错误。在您的第二次尝试中，您提供 Mat2 这是一个具有适当尺寸的矩阵。另请注意，surfacecolor 也必须是 32x32 矩阵。

所以设置W 矩阵，计算颜色矩阵colors（为了简单起见，我在下面使用了一个矩阵），

W <- matrix(rep(1, 32^2), ncol = 32)
grid <- data.frame(W = c(W), X = rep(X, each = 32), Y = Y)
colors <- 
  matrix(
    mapply(function(x,y,z) sin(x)+cos(y)+sin(z), grid$X, grid$Y, grid$W), 
    nrow = 32, byrow = T
  )

和情节：

plot_ly(y = ~Y, x = ~X,  z = ~W) %>%  
  add_surface(surfacecolor = ~colors)

编辑

要绘制 X、Y 和 Z，请将 DF$Z 适当地转换为 32x32 矩阵：

DF <- expand.grid(X,Y)
DF$Z <- sin(DF$Var1) + cos(DF$Var2)
Z <- matrix(DF$Z, nrow = 32)

plot_ly(y = ~Y, x = ~X, z=~Z) %>%  
  add_surface()