r - 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 将多个 3D 散点图放在一个绘图窗口中，无论是使用scatterplot3d包还是其他包？此外，我希望能够将 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)]