R- 多个 3D 散点图合二为一 window

Question

我想在一个 window 中绘制多个 3D 散点图。例如，对于二维散点图：

# 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 散点图放在 window 中，使用 scatterplot3d 或其他包？此外，我希望能够将 3D 散点图和其他常规 2D 图放在同一个图中 window。

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)]

R- 多个 3D 散点图合二为一 window

R- Multiple 3D scatterplots in one window

plot

r

scatter3d