Plot[{Re[LambertW[-1,x]], Im[LambertW[-1,x]]}, {x,-1,1}]