Plot[LogGamma[z], {z, -6, 4}]