geom = Association[Import["Estrada.shp", {"SHP", "Data"}]]["Geometry"] /.Polygon[x_] :> (Polygon[GeoGridPosition[#, "UTMZone29"] & /@ x]);
  values = RandomInteger[20, 51];
parroquiasss = {"Agar", "Aguións", "San Pedro de Ancorados",
   "Santo Tomé de Ancorados", "Arca", "Arnois", "Baloira", "Barbude",
   "San Miguel de Barcala", "Barcala", "Berres", "Callobre",
   "San Miguel de Castro", "Cereixo", "Codeseda", "Cora", "Couso",
   "Curantes", "A Estrada", "Frades", "Guimarei", "Lagartóns",
   "Lamas", "Liripio", "Loimil", "Matalobos ", "Moreira", "Nigoi ",
   "Oca ", "Olives", "Orazo ", "Ouzande", "Parada", "Paradela",
   "Pardemarí­n", "Remesar", "Ribeira", "Ribela ", "Riobó", "Rubí­n",
   "Sabucedo", "Santeles", "A Somoza", "Souto", "Tabeirós", "Toedo",
   "Santo André de Vea", "San Xurxo de Vea", "San Xiao de Vea",
   "Santa Cristina de Vea", "Vinseiro"};

GeoRegionValuePlot[AssociationThread[geom, values],ImageSize -> Large]