如何在R中以X和Y作为参数绘制曲线

我的曲线方程是

equation = function(x+y+sin(x)+cos(y))

---

如何绘制该方程的图形？

假设进入函数的参数是

x

和

y

，函数返回的是

x+y+sin（x）+cos（y）

，我的解决方案如下：

f <- function(x, y) x + y + sin(x) + cos(y)

x <- seq(from = -5, to = 5, length = 100)
y <- seq(from = -5, to = 5, length = 100)
z <- f(x, y)

library(plotly)
plot_ly(x = x, y = y, z = z)

只是一个开始：

x <- seq(-1, 1, length = 20)
y <- seq(-1, 1, length = 20)
z <- outer(x, y, function (x, y) x + y + sin(x) + cos(y))
persp(x, y, z)

x
x <- seq(-1, 1, length = 20)
y <- seq(-1, 1, length = 20)
z <- outer(x, y, function (x, y) x + y + sin(x) + cos(y))
persp(x, y, z)