尝试添加曲面 (R) 时缺少参数

Question

我正在尝试运行这些函数来建立一个 3D 绘图，我想添加一个平面但是出现错误。

plot_ly(data = df, z = ~PM, x = ~Wind_speed, y = ~SO2, opacity = 0.5) %>%
  add_markers()
x <- seq(370, 15000, by = 10)
y <- seq(0, 15000, by = 10)
plane <- outer(x, y, function(a, b){fit$coef[1] + 
    fit$coef[2]*a + fit$coef[3]*b})
add_surface(x = ~x, y = ~y, z = ~plane, showscale = FALSE)

但随后出现此错误

> add_surface(x = ~x, y = ~y, z = ~plane, showscale = FALSE)
Error in add_trace_classed(p, class = "plotly_surface", z = z, type = "surface",  : 
  argument "p" is missing, with no default

我应该怎么做才能解决这个问题？

Answer 1

我不知道它是如何解决的，但我可以以某种方式修复它。我只是重新加载了数据，改变了函数的顺序并将这些函数写在一起：

x <- seq(370, 15000, by = 10)
y <- seq(0, 15000, by = 10)
plane <- outer(x, y, function(a, b){fit$coef[1] + 
    fit$coef[2]*a + fit$coef[3]*b})
plot_ly(data = df, z = ~PM, x = ~Wind_speed, y = ~SO2, opacity = 0.5) %>%
  add_markers()
add_surface(x = ~x, y = ~y, z = ~plane, showscale = FALSE)

尝试添加曲面 (R) 时缺少参数

Argument is missing while trying to add surface (R)

3d

regression

r