2d-projection-of-3d-surface in R

Is there something like this for R ?