<< Graphics`ContourPlot3D`

r = Sqrt[(x^2) + (y^2) + (z^2)];

Orbitals:

s =  (1/(2 (Sqrt[2  π]))) (1 - (r/2)) 
          (E^(-r/2));
px = (1/(4 (Sqrt[ 2  π]))) 
          x (E^(-r/2));
py = (1/(4 (Sqrt[ 2  π]))) y  (E^(-r/2)); 
    pz = (1/(4 (Sqrt[ 2  π]))) z  (E^(-r/2));

I'll do one of the (sp^2)orbitals and all four of the (sp^3)orbitals.  Here's the (sp^2)along ϕ=2π/3, plotted in the z=0 plane:

sp2  =  (1/(Sqrt[6])) ((Sqrt[2]) s  +  (Sqrt[3]) py  -  px) /. 
          z -> 0;

ContourPlot[Abs[sp2]^2, {x, -3, 3}, {y, -3, 3}]

Now the (sp^3).  sp3a has peak in the (+++) octant; sp3b, sp3c, sp3d in the (--+), (-+-), (+--) octants, respectively.  First I plot the sp3b orbital at large r.  Then I plot all four at small r, large \(TraditionalForm\`\(\(|\)\(ψ\)\( | \^2\)\)\), and combine them.  The benefit of looking at large \(TraditionalForm\`\(\(|\)\(ψ\)\( | \^2\)\)\) is that only the forward lobe appears (in the above plot this is the narrow white lobe--the weak, broad peak in the lower right never makes the contour).

sp3a =  (1/2) (s + px + py + 
              pz);
sp3b = (1/2) (s - px - py + pz);
sp3c = (1/2) (s - px + py - pz);
sp3d = (1/2) (s + px - py - pz);

ContourPlot3D[
      (sp3b^2),  {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
      Contours -> { .002},  Axes -> True,  
      AxesLabel -> {x, y, z}]

a = 
      ContourPlot3D[
        (sp3a^2),  {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
        Contours -> { .005},  Axes -> True,  
        AxesLabel -> {x, y, z},  MaxRecursion -> 2]

b = 
      ContourPlot3D[
        (sp3b^2),  {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
        Contours -> { .005},  Axes -> True,  
        AxesLabel -> {x, y, z},  MaxRecursion -> 2]

c = 
      ContourPlot3D[
        (sp3c^2),  {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
        Contours -> { .005},  Axes -> True,  
        AxesLabel -> {x, y, z},  MaxRecursion -> 2]

d = 
      ContourPlot3D[
        (sp3d^2),  {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
        Contours -> { .005},  Axes -> True,  
        AxesLabel -> {x, y, z},  MaxRecursion -> 2]

Show[a, b, c, d]

Show[a, b, c, d,  ViewPoint -> {2, 0, 0}]