Here is a slightly cleaner import and an image collage using Entity.
data = Import[
"http://www.infoplease.com/us/government/electoral-college-votes-state-elections.html", "Data"];
as = Association[Rule @@@ Cases[data, {_String, _Integer}, {5}]];
With[{entities =
KeyMap[Interpreter["AdministrativeDivision"], as]},
ImageCollage[
KeyMap[AssociationMap[#["Flag"] &, Keys[entities]][#] &, entities],
ImagePadding -> 2, Background -> GrayLevel[.8]]
]
