Plot3D[x^2+y^2,{x,-4,4},{y,-4,4},RegionFunction->Function[{x,y,z},x^2+y^2≤4],AxesEdge->{{5,5},{5,5},{0, 0}},AxesLabel->Automatic, Boxed->False]