使用Plotly绘制3D表面功能（RStudio）

Question

我正在与我合作，我想知道a是否可以在RStudio中绘制表面函数f（x，y）= z。实际上，我想画一架飞机。现在，我要绘制的是这样的：

fit3 <- lm(y1~x1+ealax2,data = datos2)

# Outer part ~~~~~~~~~~~~~~~~~~~~~
x <- (0:250)/250
y <- (0:250)*100
beta <- fit3$coefficients
fxy <- function(x,y){
  beta[1] + beta[2]*x + beta[3]*y
}
z <- outer(X = x,Y = y,FUN = fxy)
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

plot_ly(x=x,y=y,z = t(z), type = "surface") %>% 
  add_trace(data = datos2, x = ~x1, y = ~ealax2, z = ~y1,
            mode = "markers", type = "scatter3d", 
            marker = list(size = 5, color = "red"))

我得到这个：

我要不要做“外部”部分，即：

x <- (0:250)/250
y <- (0:250)*100
beta <- fit3$coefficients
fxy <- function(x,y){
  beta[1] + beta[2]*x + beta[3]*y
}
z <- outer(X = x,Y = y,FUN = fxy)

所以事情会更容易。我的意思是，在R中有更简单的方法来绘制y = f（x）函数，例如：

curve(cos(x),from=-2,to=5)

我正在寻找类似的东西，但是要用3D图绘制。有什么方法可以做到这一点，或者最终有2D版本吗？

您将能够从以下站点下载我的数据：datos2.csv