PolarPlot[(2-2*Sin[theta]+Sin[theta]*Abs[Root[Cos[theta]]]/(Sin[theta]+1.4)), {theta,-Pi, Pi}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.