如何使用“绘制R中不连续的曲面”；persp“；功能

我想使用

persp

函数绘制一个不连续曲面

以下是函数：

f <- function(x, y)
{
  r <- sqrt(x^2 + y^2)
  out <- numeric(length(r))
  ok <- r >= 1
  out[ok] <- exp(-(r[ok] - 1))
  return(out)
}

---

f如果互动式的东西适合你，我会选择这样的东西：

library(plotly)
plot_ly(z = ~ z) %>% add_surface()

因为从上面可以最好地看到圆形，所以φ为90的
phi
最适合突出显示此功能，但这样会丢失形状的其余部分，这是非常无用的。因此，我会选择一些互动的方式

persp(x, y, z, , theta = 30, phi = 30, expand = 0.5, col = "lightblue")

如果互动式服务适合您，我会选择以下服务：

library(plotly)
plot_ly(z = ~ z) %>% add_surface()

因为从上面可以最好地看到圆形，所以φ为90的
phi
最适合突出显示此功能，但这样会丢失形状的其余部分，这是非常无用的。因此，我会选择一些互动的方式

persp(x, y, z, , theta = 30, phi = 30, expand = 0.5, col = "lightblue")