Enforce graph symmetry

facGraph[nn_] := 
 With[{aa = 
    Select[Subsets[Prime@Range@PrimePi@Floor@Sqrt@nn], 
     Times @@ # <= nn &]}, 
  ShowLabeledGraph[
   HasseDiagram[
    MakeGraph[aa, (SubsetQ[#2, #1] && (#1 != #2)) &, 
     VertexLabel -> "Name"]], 
   Map[Style[#, 10, Black] &, Times @@@ aa], PlotRange -> All, 
   EdgeColor -> ColorData[97, "ColorList"][[1]], VertexColor -> White,
    VertexStyle -> {Disk[1/Length@aa]}, VertexLabelPosition -> Center,
    ImageSize -> (20 Length@aa)]]

facGraph[70]