3d surface plot in r. scatter (object1_z [idx],object1_ra [idx],