Plot[PolyGamma[0, z], {z, -6, 4}]