在 Plotly 中绘制和添加曲面的问题答案

【问题标题】：Problem in Plotting and Adding Surface in Plotly在 Plotly 中绘制和添加曲面的问题
【发布时间】：2019-07-13 02:55:02
【问题描述】：

我是一名 R 新手，目前尝试将我的数据绘制在带有表面的 3d 图表中。我尝试过使用这个包，但没有成功。

我有一个矩阵 d3（见下文），但在图中（见下面的链接），z 或 x 等于矩阵中的数据。在图中，x 总是等于 1，z 是一个计数。

我需要在代码中更改什么？

这可能是我创建矩阵的方式吗？

d3 <- data.matrix(mydataframe[1:3])
View(d3)
         z         y         x
[1,] 75.33333 1566.6667 0.2727273 
[2,] 76.66667 1585.6667 0.2788845
[3,] 75.33333 1462.6667 0.2384615
[4,] 77.66667 1340.6667 0.2489796
[5,] 75.66667 1328.3333 0.3658537
[6,] 83.33333 1315.6667 0.3459716
[...] ...

plot_ly(z = ~d3) %>% add_surface()

这是我失败的 Plotly 3d 绘图示例

如果有人知道如何绘制与包不同的表面的 3 个变量，我真的很感激。

这是一个 3d 回归的例子，我想用相同的颜色显示我的数据

干杯。

【问题讨论】：

标签： r charts 3d plotly surface

【解决方案1】：

z 应该是一个矩阵。可以使用outer，如下：

x <- seq(0, 8, length.out=100)
y <- seq(0, 3, length.out=30)
z <- t(outer(x, y, FUN=function(x,y) 5/3*y + 4*exp(-(x-4)^2)))

library(plotly)
plot_ly(x=x, y=y, z=z) %>% 
  add_surface() %>%
  layout(
    scene = list(
      xaxis= list(title="X"),
      yaxis= list(title="Y"),
      aspectmode = 'manual', 
      aspectratio = list(x=1, y=1, z=.5)
    )
  )

【讨论】：