Thanks Mike, That's definitely a solution. I assigned the final graph above to "bigg" and reproduced the graph using GraphEmbedding[] coordinates:
vList = VertexList[bigg];
vCount = Length[vList];
vCoords = GraphEmbedding[bigg];
labeledPoints = Table[Labeled[vCoords[[n]], vList[[n]]], {n, 1, vCount}];
ListPlot[labeledPoints]
