R-在一個窗口中有多個3D散點圖

Question

我想在一個窗口中繪制多個3D散點圖。 例如，使用2D散點圖：

# data
x1 <- rnorm(10)
y1 <- rnorm(10)
x2 <- rnorm(10)
y3 <- rnorm(10)

# two plots side-by-side in one window
par(mfrow=c(1,2))
plot(y1 ~ x1)
plot(y2 ~ x2)

我現在用的是包scatterplot3d ，但mfrow似乎不工作：

# 3D data
z <- seq(-10, 10, 0.01)
x1 <- cos(z)
x2 <- cos(z+1)
y <- sin(z)

# try to plot side by side
par(mfrow=c(1,2))
scatterplot3d(x1, y, z)
scatterplot3d(x2, y, z)

第二個圖不是並排出現，而是出現在第一個圖的頂部。 如何使用R將scatterplot3d或其他軟件包的多個3D散點圖放在一個繪圖窗口中？ 另外，我希望能夠將3D散點圖和其他常規2D圖放置在同一繪圖窗口中。

Answer 1

您可以使用layout而不是mfrow 。 例如：

layout(matrix(c(1, 2), 1)

z <- seq(-10, 10, 0.01)
x <- cos(z)
y <- sin(z)
scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis="blue",
              col.grid="lightblue", main="scatterplot3d - 1", pch=20)
scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis="blue",
              col.grid="lightblue", main="scatterplot3d - 1", pch=20)]