求问，如何用R画出下面这种带坐标的三维图

萌新不太懂，一般作图用persp函数作图的基础上，怎么根据坐标改变峰值的位置呢？
譬如我想要在一个500*500的坐标内（高度随意）在（100,100）处确定峰值并且画出网格线，该怎么操作

感谢

这张图是论坛上几年前的了，一直没懂，用rgl包可以操作吗?

有这个类似函数。研究一下吧。

1. #install.packages("rgl")
   
2. #library(rgl)
   
3. open3d()
   
4. x <- sort(rnorm(1000))
   
5. y <- rnorm(1000)
   
6. z <- rnorm(1000) + atan2(x, y)
   
7. plot3d(x, y, z, col = rainbow(1000))
   
8. 
   
9. x <- seq(-10, 10, length = 30)
   
10. y <- x
    
11. f <- function(x, y) { r <- sqrt(x^2 + y^2); 10 * sin(r)/r }
    
12. z <- outer(x, y, f)
    
13. z[is.na(z)] <- 1
    
14. open3d()
    
15. bg3d("white")
    
16. material3d(col = "black")
    
17. 
    
18. persp3d(x, y, z, aspect = c(1, 1, 0.5), col = "lightblue",
    
19.         xlab = "X", ylab = "Y", zlab = "Sinc( r )",
    
20.         polygon_offset = 1)
    
21. persp3d(x, y, z, front = "lines", back = "lines",
    
22.         lit = FALSE, add = TRUE)

复制代码