ParametricPlot[{16 Sin[t]^3,13 Cos[t] - 5 Cos[2t] - 2 Cos[3t]-Cos[4t]},{t,0,2Pi}]

{Plot[16 Sin[t]^3,{t,0,2Pi}],Plot[13 Cos[t] - 5 Cos[2t] - 2 Cos[3t]-Cos[4t],{t,0,2Pi}]}