ids <- plot3d( rnorm(20), rnorm(20), rnorm(20) )
# Click near a point to select it and put a sphere there
selectpoints3d(ids["data"],
multiple = function(x) {
spheres3d(x, color = "red", alpha = 0.3, radius = 0.2)
TRUE
})
Run the code above in your browser using DataLab