如何重新创建这个 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")

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