Plotting mapping of complex numbers?

f[z_] := z^2 
ParametricPlot[Through[{Re, Im}[f[x + I y]]], 
  {x, -2, 2}, {y, -1, 1}, PlotStyle -> Red]