How to plot imaginary part of a function

Question

I need to plot the cube root of x in mathematica, but the plot shows me only the real part. I want it to look like wolframalpha plot with both real and imaginary parts of the function. Is it possible to do it?

EDIT:

This is what I want the plot to look like

Answer 1

I am probably misunderstanding you but, to see branch cuts and the like, you can do this sort of thing:

GraphicsGrid[
 {{Plot3D[Im[(x + I*y)^(1/3)], {x, -5, 5}, {y, -5, 5}],
   Plot3D[Re[(x + I*y)^(1/3)], {x, -5, 5}, {y, -5, 5}]}}
 ]

so there's a branch cut along the negative real axis.

EDIT: In response to comment:

Plot[{Re[x^(1/3)], Im[x^(1/3)]}, {x, -3, 3}]

Answer 2

Because M. always takes the principal value of complex numbers, you don't see the values for negative x. You can try ParametricPlot like this:

ParametricPlot[{x^3, x}, {x, -2, 2}]