open3d()
points3d(rnorm(10), rnorm(10), rnorm(10))
# First add standard axes
axes3d()
# and one in the middle (the NA will be ignored, a number would
# do as well)
axis3d('x', pos = c(NA, 0, 0))
# add titles
title3d('main', 'sub', 'xlab', 'ylab', 'zlab')
rgl.bringtotop()
open3d()
points3d(rnorm(10), rnorm(10), rnorm(10))
# Use fixed axes
axes3d(c('x', 'y', 'z'))
# Put 4 x-axes on the plot
axes3d(c('x--', 'x-+', 'x+-', 'x++'))
axis3d('x', pos = c(NA, 0, 0))
title3d('main', 'sub', 'xlab', 'ylab', 'zlab')
Run the code above in your browser using DataLab