How to Plot District Names on a Shapefile in R for Effective Mapping