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

如何解决尝试添加表面时缺少参数 (R)

我正在尝试运行这些函数来建立 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,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,showscale = FALSE)
Error in add_trace_classed(p,class = "plotly_surface",z = z,type = "surface",: 
  argument "p" is missing,with no default

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

解决方法

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

x <- seq(370,15000,by = 10)
y <- seq(0,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)