r - 如何重新创建这个 3d 直方图？

Question

我说的是这张图：

问题：

这是 R，不是 Matlab 对吗？在页面下方，它说它是用 R 制作的......

我怎样才能做到这一点？我的意思是，我怎样才能用这个先进的绿色表面和这个网格创建这样一个 3d 散点图？我现在如何制作简单的散点图和 3d 散点图，但我怎样才能创建如此高级的图片呢？这是哪个包？

我想将它包含在这张图片应该自动旋转的论文中。我知道如何将它包含到我的 tex 分发中，但因此我需要单个 png。例如，我制作动画的 1000 张单张图片。但是我怎样才能用 R 得到那些呢？我需要旋转它，然后将每个小旋转保存为图形文件。

非常感谢您的帮助，我最大的问题是创建此图形（包？）以及如何使其旋转（r 代码？）

Answer 1

1. 要创建此图，您可以签出persp函数。您可以更改参数以旋转图形。这是一个演示：

   require(grDevices) # for trans3d
   x <- seq(-10, 10, length= 30)
   y <- x
   f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
   z <- outer(x, y, f)
   z[is.na(z)] <- 1
   persp(x, y, z, theta = 90, phi = 30, expand = 0.5, col = "lightgreen")
   

更改时theta = 30：

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

2. 对于颜色，您可以键入colors()以查看可以使用的颜色。目前，我发现lightgreen可能是您想要的最接近的颜色。