PolarPlot[Cos[2 t], {t, 0, 2Pi}]