parametric functions – How to make Sphere Transparent using ParametricPlot3D

This is the code I used

Show[ParametricPlot3D[R[r, s], {r, -3, 3}, {s, -3, 3}, ImageSize -> 600, 
  Epilog -> Inset[Style[" 710178 ", FontSize -> 84, Red, Opacity[0.1]]]],
 ParametricPlot3D[S[f[r], f[s]], {r, -3, 3}, {s, -3, 3},PlotStyle -> Transparent]]

And this is my output
enter image description here

The reason I’m trying to make it transparent is because I have to plot curves on the sphere and currently when I do plot, I can’t see the curves.