我怎樣才能重新創建這個 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可能是你想要的最接近的顏色。