(* http://demonstrations.wolfram.com/SphericalCoordinates/ *)
Manipulate[Show[Graphics3D[{GrayLevel[.3],PointSize[.02],Point[{0,0,0}],RGBColor[.5,0,0],PointSize[.02],Point[{r Cos[theta] Sin[phi],r Sin[theta] Sin[phi],r Cos[phi]}],Thickness[.005],RGBColor[.5,.7,1],Line[{-1.5 {r Cos[theta] Sin[phi],r Sin[theta] Sin[phi],r Cos[phi]},1.5 {r Cos[theta] Sin[phi],r Sin[theta] Sin[phi],r Cos[phi]}}],If[ax,{Gray,Line[{{-6,0,0},{6,0,0}}],Line[{{0,-6,0},{0,6,0}}],Line[{{0,0,-6},{0,0,6}}]},{}],Yellow,Opacity[.5],Sphere[{0,0,0},r]}],ParametricPlot3D[{r Cos[t] Sin[phi],r Sin[t] Sin[phi],r Cos[phi]},{t,0,2 Pi}],ParametricPlot3D[{r Cos[theta] Sin[t],r Sin[theta] Sin[t],r Cos[t]},{t,0,2 Pi}],PlotLabel->Column[{Row[{"(r, θ, ϕ) = ("<>ToString[NumberForm[Chop@r,{2,1},NumberPadding->{"","0"}]]<>", "<>ToString[NumberForm[Chop@theta/Pi,{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>" π, "<>ToString[NumberForm[Chop@phi/Pi,{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>" π)"}],Row[{"(x, y, z) = ("<>ToString[NumberForm[Chop@r Cos[theta] Sin[phi],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>", "<>ToString[NumberForm[Chop@r Sin[theta] Sin[phi],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>", "<>ToString[NumberForm[Chop@r Cos[phi],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>")"}]},Center],PlotRange->{{-6,6},{-6,6},{-6,6}},ImageSize->{500,400},Boxed->False,SphericalRegion->True,ViewAngle->π/12],{{r,5.,"r"},2.,5.},{{theta,0,"θ"},0,2. Pi},{{phi,π/4.,"ϕ"},0,1. Pi},{{ax,False,"show axes"},{True,False}}]