Pack Disconnected Components
Specify how disconnected components of a graph should be packed together.
packing = {"ClosestPacking", "ClosestPackingCenter", "Layered", "LayeredLeft", "LayeredTop", "NestedGrid"};edges = Union[Flatten[Table[Table[jFromDigits[Insert[IntegerDigits[j, 2], 1, i], 2], {i, Length[IntegerDigits[j, 2]] + 1}], {j, 1, 80}]]];Grid[Flatten[{Style[#, 11, FontFamily -> "Verdana"]& /@ #, Table[Graph[edges, GraphLayout -> {"PackingLayout" -> pm}, BaselinePosition -> Top, ImageSize -> {180, 180}], {pm, #}]}& /@ Partition[packing, {3}], 1], Frame -> {All, {True, False, True, False}}, FrameStyle -> LightGray, Spacings -> {.5, {{2, 1}}}]