flags = CountryData["Europe", "Flag"];
cd = CommonestFilter[#, 2] & /@ flags;
id0 = Flatten[ImageData@#, 1] & /@ cd;
id1 = Tally /@ id0;
id2 = Function[x, Select[x, #[[2]] >= Total[x[[All, 2]]]/200 &]] /@ id1;
id3 = Map[First, id2, {2}];
id4 = Transpose@{id3, flags};
id5 = Grid[ SortBy[GatherBy[id4, Union[#[[1]]] &][[All, All, 2]], -Length@# &], Frame -> All]