$Version

f = x^8 + x - 1;  s8 = Solve[f == 0.,x]

r8 = {Re[x],Im[x]} /. s8

p1 = ListPlot[r8]; p2 = ListPlot[r8, PlotJoined -> True];

Show[GraphicsGrid[{{p1,p2}}]]

q8 = {Arg[x], Abs[x]}/. s8//N//Sort

c8 = Map[({#[[2]] Cos[#[[1]]],#[[2]] Sin[#[[1]] ]})&, q8]

ListPlot[ Append[c8,c8[[1]]],  PlotJoined -> True]