ParametricPlot[{Sin[t]+1.5*Sin[2*t], -Cos[t]+1.5*Cos[2*t]}, {t, 0 , 2*Pi}]