skeletons=Partition[PolyhedronData[#,"SkeletonGraph"]&/@PolyhedronData["Archimedean"],4];

nets=Partition[PolyhedronData[#,"NetGraph"]&/@Take[PolyhedronData["Archimedean"],8],4];

Join[skeletons,nets]//Column