plot3d - иметь два сюжета сразу

как это:

 library(rgl)

 open3d()
 x <- sort(rnorm(1000))
 y <- rnorm(1000)
 z <- rnorm(1000) + atan2(x,y)
 plot3d(x, y, z, col=rainbow(1000))

 open3d()
 x <- sort(rnorm(20))
 y <- rnorm(20)
 z <- rnorm(20) + atan2(x,y)
 plot3d(x, y, z, col=rainbow(20))

Ключевым моментом здесь является вызов open3d перед вторым графиком, чтобы открыть новое "устройство".

Вы можете обнаружить, что второе окно построения rgl просто размещено точно поверх предыдущего окна. Если вы переместите второе окно, вы увидите, что первое все еще там (хотя теперь оно не имеет статуса «Фокус»). Нет необходимости привязываться к устройствам, чтобы они оставались доступными. Вы изменяете окно, которое получает фокус с помощью rgl.set:

> open3d()
[1] 3     # might have been "1"
> open3d()
[1] 4    # Now move that 2nd  window to the side 
> rgl.set(3)
#Focus is returned to the first window.

Вы не можете иметь 2 активных окна (в смысле получения команд) одновременно, но вы можете сделать их оба видимыми, и если одно из них было настроено на вращение, оно будет продолжать вращаться после того, как фокус будет смещен на другое окно. Вы также можете добавить к существующему графику функцию plot3d, если вы установите add=TRUE.

Альтернативой открытию двух 3D-графиков одновременно является использование mfrow3d из library("rgl"). Он работает так же, как par("mfrow") в классическом R.

Следующий адаптированный код (из здесь) создает два параллельных трехмерных графика (2 столбца) в одном окне:

library(rgl)

mfrow3d(1, 2)
x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
plot3d(x, y, z, col=rainbow(1000))

x <- sort(rnorm(20))
y <- rnorm(20)
z <- rnorm(20) + atan2(x,y)
plot3d(x, y, z, col=rainbow(20))