Assigning Colors to Polygons for a Large Number of Categories on a Map in R