PolarPlot[t^2-2Abs[t],{t,-Pi,Pi}]