Plot[(-3 + Abs[Log[1 + x]])^(1/3)],{x, 1/e^3-1, e^3-1},{y, 0, 1.3}