2D HighlightGraph Examples

GraphPlot[HighlightGraph[GraphData["HundredTwentyCellGraph"],
Table[Style[_<->i,ColorData["DarkRainbow"][Pi*i/1800]],
{i,Range[1,600,3]}]],VertexSize->0,ImageSize->600]