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