Skip to content

Instantly share code, notes, and snippets.

@briatte
Last active June 3, 2018 15:46
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save briatte/50cb31531966c99a9acc to your computer and use it in GitHub Desktop.
Save briatte/50cb31531966c99a9acc to your computer and use it in GitHub Desktop.
loc = structure(list(country = c("Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Austria", "Austria", "Austria", "Austria",
"Austria", "Austria", "Belgium", "Belgium", "Belgium", "Belgium",
"Belgium", "Belgium", "Belgium", "Belgium", "Belgium", "Belgium",
"Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria",
"Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria",
"Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria",
"Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria", "Bulgaria",
"Bulgaria", "Bulgaria", "Bulgaria", "Switzerland", "Switzerland",
"Switzerland", "Switzerland", "Switzerland", "Switzerland", "Switzerland",
"Switzerland", "Switzerland", "Switzerland", "Switzerland", "Switzerland",
"Switzerland", "Switzerland", "Switzerland", "Switzerland", "Switzerland",
"Switzerland", "Switzerland", "Switzerland", "Switzerland", "Switzerland",
"Switzerland", "Switzerland", "Switzerland", "Switzerland", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Czech Republic", "Czech Republic",
"Czech Republic", "Czech Republic", "Denmark", "Denmark", "Denmark",
"Denmark", "Denmark", "Denmark", "Denmark", "Denmark", "Denmark",
"Denmark", "Denmark", "Denmark", "Denmark", "Denmark", "Denmark",
"Denmark", "Denmark", "Denmark", "Denmark", "Denmark", "Denmark",
"Denmark", "Denmark", "Denmark", "Denmark", "Denmark", "Denmark",
"Denmark", "Denmark", "Estonia", "Estonia", "Estonia", "Estonia",
"Estonia", "Estonia", "Estonia", "Estonia", "Estonia", "Estonia",
"Estonia", "Estonia", "Finland", "Finland", "Finland", "Finland",
"Finland", "Finland", "Finland", "Finland", "Finland", "Finland",
"Finland", "Finland", "Finland", "Finland", "Finland", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "France", "France", "France",
"France", "France", "France", "France", "Hungary", "Hungary",
"Hungary", "Hungary", "Hungary", "Hungary", "Hungary", "Hungary",
"Hungary", "Hungary", "Hungary", "Hungary", "Hungary", "Hungary",
"Hungary", "Hungary", "Hungary", "Hungary", "Hungary", "Hungary",
"Hungary", "Ireland", "Ireland", "Ireland", "Ireland", "Ireland",
"Ireland", "Ireland", "Ireland", "Ireland", "Ireland", "Ireland",
"Ireland", "Ireland", "Ireland", "Ireland", "Ireland", "Ireland",
"Ireland", "Ireland", "Ireland", "Ireland", "Ireland", "Ireland",
"Ireland", "Ireland", "Ireland", "Ireland", "Ireland", "Ireland",
"Ireland", "Ireland", "Ireland", "Ireland", "Ireland", "Ireland",
"Ireland", "Ireland", "Ireland", "Iceland", "Iceland", "Iceland",
"Iceland", "Iceland", "Iceland", "Iceland", "Iceland", "Iceland",
"Iceland", "Iceland", "Iceland", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Italy", "Italy", "Italy", "Italy", "Italy", "Italy", "Italy",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Lithuania", "Lithuania", "Lithuania", "Lithuania",
"Lithuania", "Norway", "Norway", "Norway", "Norway", "Norway",
"Norway", "Norway", "Norway", "Norway", "Norway", "Norway", "Norway",
"Norway", "Norway", "Norway", "Norway", "Norway", "Norway", "Norway",
"Portugal", "Portugal", "Portugal", "Portugal", "Portugal", "Portugal",
"Portugal", "Portugal", "Portugal", "Portugal", "Portugal", "Portugal",
"Portugal", "Portugal", "Portugal", "Portugal", "Portugal", "Portugal",
"Portugal", "Portugal", "Portugal", "Portugal", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Romania", "Romania", "Romania", "Romania", "Romania", "Romania",
"Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden",
"Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden",
"Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden",
"Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden", "Sweden",
"Sweden", "Slovakia", "Slovakia", "Slovakia", "Slovakia", "Slovakia",
"Slovakia", "Slovakia", "Slovakia"), constituency = c("Regionalwahlkreis_Flachgau/Tennengau",
"Regionalwahlkreis_Wien_Süd", "Regionalwahlkreis_Waldviertel",
"Landeswahlkreis_Tirol", "Bundeswahlvorschlag", "Landeswahlkreis_Oberösterreich",
"Regionalwahlkreis_Vorarlberg_Nord", "Landeswahlkreis_Niederösterreich",
"Landeswahlkreis_Wien", "Regionalwahlkreis_Wien_Innen-Süd",
"Regionalwahlkreis_Steiermark_Süd", "Landeswahlkreis_Steiermark",
"Regionalwahlkreis_Niederösterreich_Süd", "Landeswahlkreis_Kärnten",
"Regionalwahlkreis_Wien_Nord-West", "Regionalwahlkreis_Lungau/Pinzgau/Pongau",
"Landeswahlkreis_Salzburg", "Regionalwahlkreis_Wien_Süd-West",
"Regionalwahlkreis_Hausruckviertel", "Regionalwahlkreis_Vorarlberg_Süd",
"Regionalwahlkreis_Linz_und_Umgebung", "Regionalwahlkreis_Burgenland_Süd",
"Regionalwahlkreis_Steiermark_Mitte", "Regionalwahlkreis_Weinviertel",
"Regionalwahlkreis_Kärnten_Ost", "Regionalwahlkreis_Innsbruck-Land",
"Regionalwahlkreis_Mühlviertel", "Regionalwahlkreis_Klagenfurt",
"Regionalwahlkreis_Wien_Innen-West", "Regionalwahlkreis_Wien_Innen-Ost",
"Regionalwahlkreis_Steiermark_West", "Regionalwahlkreis_Traunviertel",
"Regionalwahlkreis_Wien_Nord", "Regionalwahlkreis_Wien_Umgebung",
"Regionalwahlkreis_Kärnten_West", "Regionalwahlkreis_Innviertel",
"Regionalwahlkreis_Mostviertel", "Regionalwahlkreis_Steiermark_Ost",
"Regionalwahlkreis_Burgenland_Nord", "Landeswahlkreis_Vorarlberg",
"Landeswahlkreis_Burgenland", "Regionalwahlkreis_Graz", "Regionalwahlkreis_Steiermark_Nord-West",
"Regionalwahlkreis_Villach", "Regionalwahlkreis_Niederösterreich_Mitte",
"Regionalwahlkreis_Oststeiermark", "Regionalwahlkreis_Obersteiermark",
"Regionalwahlkreis_Weststeiermark", "Province_de_Liège", "Province_de_Hainaut",
"Province_de_Flandre-Occidentale", "Province_de_Flandre-Orientale",
"Province_du_Brabant_flamand", "Province_d'Anvers", "Province_de_Luxembourg",
"Province_de_Namur", "Province_de_Limbourg", "Province_du_Brabant_wallon",
"Plovdiv_Province", "Montana_Province", "Blagoevgrad_Province",
"Sofia_Province", "Varna_Province", "Pernik_Province", "Burgas_Province",
"Pleven_Province", "Smolyan_Province", "Stara_Zagora_Province",
"Yambol_Province", "Vidin_Province", "Kyustendil_Province", "Ruse_Province",
"Haskovo_Province", "Veliko_Tarnovo_Province", "Vratsa_Province",
"Lovech_Province", "Razgrad_Province", "Sliven_Province", "Shumen_Province",
"Silistra_Province", "Dobrich_Province", "Targovishte_Province",
"Pazardzhik_Province", "Kardzhali_Province", "Gabrovo_Province",
"Canton_d'Obwald", "Canton_du_Tessin", "Canton_d'Argovie", "Canton_de_Berne",
"Canton_de_Soleure", "Canton_des_Grisons", "Canton_de_Zurich",
"Canton_de_Bâle-Campagne", "Canton_de_Zoug", "Canton_du_Valais",
"Canton_de_Lucerne", "Canton_de_Vaud", "Canton_de_Genève", "Canton_de_Bâle-Ville",
"Canton_de_Neuchâtel", "Canton_d'Appenzell_Rhodes-Extérieures",
"Canton_de_Nidwald", "Canton_de_Thurgovie", "Canton_de_Fribourg",
"Canton_de_Saint-Gall", "Canton_du_Jura", "Canton_de_Schaffhouse",
"Canton_de_Schwytz", "Canton_d'Appenzell_Rhodes-Intérieures",
"Canton_de_Glaris", "Canton_d'Uri", "Východočeský_kraj", "Západočeský_kraj",
"Severomoravský_kraj", "Jihomoravský_kraj", "Praha", "Jihočeský_kraj",
"Severočeský_kraj", "Středočeský_kraj", "Pardubický_kraj",
"Olomoucký_kraj", "Moravskoslezský_kraj", "Zlínský_kraj",
"Královéhradecký_kraj", "Liberecký_kraj", "Plzeňský_kraj",
"Kraj_Vysočina", "Ústecký_kraj", "Karlovarský_kraj", "Ústí nad Orlicí",
"Plzeň-město", "Chrudim", "Ostrava-město", "Mladá Boleslav",
"Beroun", "Zlín", "Litoměřice", "Šumperk", "Vsetín", "Trutnov",
"Bruntál", "Příbram", "Hodonín", "Prostějov", "Opava", "Město Brno",
"Teplice", "Sokolov", "Strakonice", "Most", "Nový Jičín",
"Břeclav", "Český Krumlov", "Tábor", "Karlovy Vary", "Pelhřimov",
"Rokycany", "Kladno", "Rychnov nad Kněžnou", "Jičín", "Ústí nad Labem",
"Benešov", "Louny", "Přerov", "Vyškov", "Frýdek-Místek",
"Chomutov", "Pardubice", "Hradec Králové", "Kolín", "Kroměříž",
"Uherské Hradiště", "Žďár nad Sázavou", "Olomouc", "Karviná",
"Třebíč", "Blansko", "Mělník", "Svitavy", "Jablonec nad Nisou",
"Jihlava", "Znojmo", "Liberec", "Cheb", "Náchod", "České Budějovice",
"Domažlice", "Děčín", "Česká Lípa", "Kutná Hora", "Nordjyllands_Amtskreds",
"Roskilde_Amtskreds", "Fyns_Amtskreds", "Århus_Amtskreds", "Sønderjyllands_Amtskreds",
"Vejle_Amtskreds", "Vestre_Storkreds", "Ringkøbing_Amtskreds",
"Østre_Storkreds", "Storstrøms_Amtskreds", "Københavns_Amtskreds",
"Viborg_Amtskreds", "Bornholms_Amtskreds", "Vestsjællands_Amtskreds",
"Søndre_Storkreds", "Ribe_Amtskreds", "Frederiksborg_Amtskreds",
"Fyns_Storkreds", "Østjyllands_Storkreds", "Sydjyllands_Storkreds",
"Færøerne", "Grønland", "Københavns_Omegns_Storkreds", "Sjællands_Storkreds",
"Nordjyllands_Storkreds", "Københavns_Storkreds", "Nordsjællands_Storkreds",
"Vestjyllands_Storkreds", "Bornholms_Storkreds", "Valimisringkond_nr_5",
"Valimisringkond_nr_4", "Valimisringkond_nr_1", "Valimisringkond_nr_8",
"Valimisringkond_nr_7", "Valimisringkond_nr_9", "Valimisringkond_nr_3",
"Valimisringkond_nr_11", "Valimisringkond_nr_2", "Valimisringkond_nr_10",
"Valimisringkond_nr_6", "Valimisringkond_nr_12", "Satakunnan_vaalipiiri",
"Oulun_vaalipiiri", "Helsingin_vaalipiiri", "Varsinais-Suomen_vaalipiiri",
"Kymen_vaalipiiri", "Uudenmaan_vaalipiiri", "Pohjois-Karjalan_vaalipiiri",
"Etelä-Savon_vaalipiiri", "Vaasan_vaalipiiri", "Pohjois-Savon_vaalipiiri",
"Hämeen_vaalipiiri", "Lapin_vaalipiiri", "Ahvenanmaan_maakunnan_vaalipiiri",
"Pirkanmaan_vaalipiiri", "Keski-Suomen_vaalipiiri", "Lozère",
"Morbihan", "Dordogne", "Lot", "Val-de-Marne", "Vosges", "Pyrénées-Atlantiques",
"Rhône", "Isère", "Haute-Vienne", "Deux-Sèvres", "Tarn", "Alpes-Maritimes",
"Polynésie_française", "Alpes-de-Haute-Provence", "Vaucluse",
"Bas-Rhin", "Calvados", "Aisne", "La_Réunion", "Loiret", "Seine-Maritime",
"Vienne", "Oise", "Var", "Wallis-et-Futuna", "Indre-et-Loire",
"Nièvre", "Marne", "Côtes-d'Armor", "Nord", "Gard", "Hauts-de-Seine",
"Haute-Marne", "Ain", "Finistère", "Loire", "Yvelines", "Pyrénées-Orientales",
"Haute-Savoie", "Paris", "Meuse", "Hautes-Alpes", "Moselle",
"Seine-et-Marne", "Charente-Maritime", "Saône-et-Loire", "Maine-et-Loire",
"Guadeloupe", "Loire-Atlantique", "Haute-Corse", "Seine-Saint-Denis",
"Orne", "Charente", "Mayenne", "Sarthe", "Eure", "Pas-de-Calais",
"Bouches-du-Rhône", "Puy-de-Dôme", "Haut-Rhin", "Saint-Pierre-et-Miquelon",
"Doubs", "Aude", "Meurthe-et-Moselle", "Hautes-Pyrénées", "Côte-d'Or",
"Somme", "Savoie", "Allier", "Ariège", "Indre", "Drôme", "Mayotte",
"Loir-et-Cher", "Haute-Loire", "Territoire_de_Belfort", "Creuse",
"Aveyron", "Essonne", "Nouvelle-Calédonie", "Val-d'Oise", "Tarn-et-Garonne",
"Corrèze", "Jura", "Gironde", "Hérault", "Haute-Garonne", "Cher",
"Ardèche", "Martinique", "Manche", "Corse-du-Sud", "Yonne",
"Landes", "Ille-et-Vilaine", "Eure-et-Loir", "Lot-et-Garonne",
"Ardennes", "Guyane", "Haute-Saône", "Vendée", "Aube", "Cantal",
"Gers", "Français_établis_hors_de_France", "Seine", "Seine-et-Oise",
"Saint-Martin", "Saint-Barthélemy", "Magyarország", "Fejér_megye",
"Pest_megye", "Budapest", "Borsod-Abaúj-Zemplén_megye", "Hajdú-Bihar_megye",
"Baranya_megye", "Veszprém_megye", "Bács-Kiskun_megye", "Szabolcs-Szatmár-Bereg_megye",
"Somogy_megye", "Komárom-Esztergom_megye", "Tolna_megye", "Jász-Nagykun-Szolnok_megye",
"Békés_megye", "Zala_megye", "Csongrád_megye", "Győr-Moson-Sopron_megye",
"Vas_megye", "Heves_megye", "Nógrád_megye", "Dublin_South_(Dáil_Éireann_constituency)",
"Offaly_(Dáil_Éireann_constituency)", "Cork_East_(Dáil_Éireann_constituency)",
"Mayo_(Dáil_Éireann_constituency)", "Dublin_South–East_(Dáil_Éireann_constituency)",
"Dublin_South–Central_(Dáil_Éireann_constituency)", "Cork_South–West_(Dáil_Éireann_constituency)",
"Meath_(Dáil_Éireann_constituency)", "Cork_North–West_(Dáil_Éireann_constituency)",
"Limerick_East_(Dáil_Éireann_constituency)", "Cork_South–Central_(Dáil_Éireann_constituency)",
"Westmeath_(Dáil_Éireann_constituency)", "Dublin_North–West_(Dáil_Éireann_constituency)",
"Clare_(Dáil_Éireann_constituency)", "Dublin_North_(Dáil_Éireann_constituency)",
"Louth_(Dáil_Éireann_constituency)", "Cavan–Monaghan_(Dáil_Éireann_constituency)",
"Dún_Laoghaire_(Dáil_Éireann_constituency)", "Donegal_South–West_(Dáil_Éireann_constituency)",
"Kerry_North_(Dáil_Éireann_constituency)", "Dublin_Mid–West_(Dáil_Éireann_constituency)",
"Dublin_South–West_(Dáil_Éireann_constituency)", "Wicklow_(Dáil_Éireann_constituency)",
"Kildare_North_(Dáil_Éireann_constituency)", "Roscommon–South_Leitrim_(Dáil_Éireann_constituency)",
"Dublin_North–Central_(Dáil_Éireann_constituency)", "Dublin_Central_(Dáil_Éireann_constituency)",
"Galway_West_(Dáil_Éireann_constituency)", "Dublin_West_(Dáil_Éireann_constituency)",
"Waterford_(Dáil_Éireann_constituency)", "Kerry_North–West_Limerick_(Dáil_Éireann_constituency)",
"Tipperary_South_(Dáil_Éireann_constituency)", "Sligo–Leitrim_(Dáil_Éireann_constituency)",
"Wexford_(Dáil_Éireann_constituency)", "Donegal_North–East_(Dáil_Éireann_constituency)",
"Longford–Westmeath_(Dáil_Éireann_constituency)", "Dublin_North–East_(Dáil_Éireann_constituency)",
"Kerry_South_(Dáil_Éireann_constituency)", "Reykjaneskjördæmi",
"Austurlandskjördæmi", "Suðurlandskjördæmi", "Ísland",
"Vestfjarðakjördæmi", "Vesturland", "Norðurlandskjördæmi_vestra",
"Norðurlandskjördæmi_eystra", "Reykjavíkurkjördæmi_suður",
"Norðausturkjördæmi", "Suðvesturkjördæmi", "Suðurkjördæmi",
"Napoli", "Palermo", "Verona", "Siena", "Pisa", "Bologna", "Cuneo",
"Bari", "Firenze", "Lecce", "Roma", "Perugia", "L'aquila", "Trento",
"Milano", "Cagliari", "Genova", "Catania", "Venezia", "Udine",
"Brescia", "Parma", "Potenza", "Ancona", "Catanzaro", "Trieste",
"Mantova", "Benevento", "Torino", "Campobasso", "Como", "Aosta",
"Puglia", "Emilia-Romagna", "Lazio", "Lombardia", "Veneto", "Campania",
"Sicilia", "Abruzzo", "Toscana", "Piemonte", "Calabria", "Liguria",
"Sardegna", "Basilicata", "Friuli-Venezia_Giulia", "Marche",
"Molise", "Umbria", "Trentino-Alto_Adige", "Anagrafe_degli_italiani_residenti_all'estero",
"Senatore_a_vita", "Jurbarko", "pagal sąrašą", "Mažeikių",
"Šilainių", "Vilkaviškio", "Fabijoniškių", "Trakų", "Lazdijų",
"Radviliškio", "Suvalkijos", "Dainų", "Širvintų", "Justiniškių",
"Šilalės", "Molėtų", "Anykščių", "Senamiesčio", "Kretingos",
"Baltijos", "Aukštaitijos", "Alytaus", "Centro", "Akmenės",
"Raseinių", "Gargždų", "Panemunės", "Marijampolės", "Danės",
"Varėnos", "Pramonės", "Vakarinė", "Kauno", "Ukmergės", "Šiaulių kaimiškoji",
"Plungės", "Aušros", "Lazdynų", "Marių", "Utenos", "Kalniečių",
"Skuodo", "Karoliniškių", "Saulės", "Vilniaus", "Šeškinės",
"Jonavos", "Kėdainių", "Šilutės", "Dainavos", "Antakalnio",
"Kaišiadorių", "Prienų", "Telšių", "Pakruojo", "Rokiškio",
"Naujosios Vilnios", "Žirmūnų", "Kelmės", "Šakių", "Tauragės",
"Biržų", "Pasvalio", "Naujamiesčio", "Žaliakalnio", "Ignalinos",
"Zarasų", "Dzūkijos", "Aleksoto", "Pajūrio", "Kauno kaimiškoji",
"Nevėžio", "Møre_og_Romsdal", "Oslo", "Sør-Trøndelag", "Hordaland",
"Rogaland", "Akershus", "Nordland", "Buskerud", "Vest-Agder",
"Oppland", "Aust-Agder", "Vestfold", "Telemark", "Hedmark", "Sogn_og_Fjordane",
"Troms", "Østfold", "Finnmark", "Nord-Trøndelag", "Guarda",
"Viana_do_Castelo", "Lisboa", "Porto", "Aveiro", "Santarém",
"Braga", "Viseu", "Faro", "Setúbal", "Coimbra", "Castelo_Branco",
"Vila_Real", "Beja", "Bragança", "Europa", "Évora", "Portuguese_outside_Europe",
"Madeira", "Leiria", "Açores", "Portalegre", "Vâlcea_County",
"Bucharest", "Prahova_County", "Teleorman_County", "Covasna_County",
"Suceava_County", "Buzău_County", "Dolj_County", "Giurgiu_County",
"Mureș_County", "Cluj_County", "Vaslui_County", "Alba_County",
"Argeș_County", "Satu_Mare_County", "Iași_County", "Bacău_County",
"Timiș_County", "Brăila_County", "Bistrița-Năsăud_County",
"Constanța_County", "Vrancea_County", "Olt_County", "Călărași_County",
"Gorj_County", "Dâmbovița_County", "Galați_County", "Caraș-Severin_County",
"Ilfov_County", "Neamț_County", "Brașov_County", "Maramureș_County",
"Harghita_County", "Romanian_ethnic_minorities_parties", "Hunedoara_County",
"Botoșani_County", "Mehedinți_County", "Arad_County", "Bihor_County",
"Tulcea_County", "Ialomița_County", "Sibiu_County", "Sălaj_County",
"Romanian_diaspora", "Kalmar_län", "Västra_Götalands_läns_norra_valkrets",
"Kronobergs_län", "Stockholms_län", "Skåne_läns_södra_valkrets",
"Västra_Götalands_läns_södra_valkrets", "Uppsala_län", "Blekinge_län",
"Göteborgs_kommun", "Stockholms_kommun", "Västmanlands_län",
"Västra_Götalands_läns_västra_valkrets", "Gävleborgs_län",
"Värmlands_län", "Västra_Götalands_läns_östra_valkrets",
"Södermanlands_län", "Hallands_län", "Jämtlands_län", "Östergötlands_län",
"Skåne_läns_västra_valkrets", "Västerbottens_län", "Dalarnas_län",
"Västernorrlands_län", "Jönköpings_län", "Örebro_län",
"Skåne_läns_norra_och_östra_valkrets", "Norrbottens_län",
"Gotlands_län", "Malmö_kommun", "Bratislava", "Žilina", "Košice",
"Trenčín", "Trnava", "Banská_Bystrica", "Nitra", "Prešov"
), location = c("Salzburg-Umgebung District", "Vienna", "Waldviertel",
"Tyrol", NA, "Upper Austria", "Vorarlberg", "Lower Austria",
"Vienna", "Vienna", "Kaindorf-Süd", "Styria", "Industriezentrum NÖ-Süd",
"Carinthia", "Vienna", NA, "Salzburg", "Vienna", "Haag am Hausruck",
"Vorarlberg", "Linz", "Burgenland", "Styria", NA, "Carinthia",
"Innsbruck", "Mühlviertel", "Klagenfurt", "Vienna", "Vienna",
"Styria", NA, "Vienna", "Wien-Umgebung District", "Carinthia",
NA, NA, "Weingrubersiedlung Ost", "Burgenland", "Vorarlberg",
"Burgenland", "Graz", "Emberg-Nord", "Villach", "Palt Mitte",
"Styria", "Styria", "Styria", "Liege", "Hainaut", "West Flanders",
"East Flanders", "Flemish Brabant", "Antwerp", "Luxembourg",
"Province of Namur", "Limbourg", "Walloon Brabant", "Plovdiv Province",
"Montana Province", "Blagoevgrad Province", "Sofia Province",
"Varna", "Pernik", "Burgas", "Pleven Province", "Smoljan", "Stara Zagora",
"Jambol", "Vidin", "Kyustendil Province", "Ruse", "Haskovo Province",
"Veliko Tarnovo Province", "Vraca", "Lovec", "Razgrad", "Sliven Province",
"Shumen Province", "Silistra", "Dobrich Province", "Targovishte Province",
"Pazardzik", "Kardzhali Province", "Gabrovo", "Canton of Obwalden",
"Ticino", "Aargau", "Canton of Bern", "Canton of Solothurn",
"Grisons", "Zurich", "Basel-Landschaft", "Canton of Zug", "Valais",
"Lucerne", "Vaud", "Geneva", "Basel-Stadt", "Canton of Neuchâtel",
"Appenzell Outer Rhodes", "Nidwalden", "Thurgau", "Canton of Fribourg",
"St. Gallen", "Canton of Jura", "Canton of Schaffhausen", "Canton of Schwyz",
"Appenzell Innerrhoden", "Canton of Glarus", "Canton of Uri",
"Hradec Králové Region", "Central Bohemian Region", "Central Bohemian Region",
"South Moravian Region", "Prague", "South Bohemian Region", "Ústí nad Labem Region",
"Central Bohemian Region", "Pardubice Region", "Olomouc Region",
"Moravian-Silesian Region", "Zlin Region", "Hradec Králové Region",
"Liberec Region", "Plzeň Region", "Vysocina Region", "Ústí nad Labem Region",
"Karlovy Vary Region", "Ústí nad Orlicí", "Pilsen", "Chrudim",
"Ostrava", "Mlada Boleslav", "Beroun", "Zlin", "Litomerice",
"Šumperk", "Vsetin", "Trutnov", "Bruntál", "Příbram", "Hodonín",
"Prostějov", "Opava", "Brno", "Teplice", "Sokolov", "Strakonice",
"Most", "Novy Jicin", "Breclav", "Český Krumlov", "Tabor",
"Karlovy Vary", "Pelhrimov", "Rokycany", "Kladno", "Rychnov nad Kněžnou",
"Jicin", "Ústí nad Labem", "Benešov", "Louny", "Prerov", "Vyskov",
"Frýdek-Místek", "Chomutov", "Pardubice", "Hradec Kralove",
"Kolin", "Kroměříž", "Uherske Hradiste", "Žďár nad Sázavou",
"Olomouc", "Karvina", "Třebíč", "Blansko", "Mělník", "Svitavy",
"Jablonec nad Nisou", "Jihlava", "Znojmo", "Liberec", "Cheb",
"Nachod", "Ceske Budejovice", "Domazlice", "Děčín", "Ceska Lipa",
"Kutna Hora", "North Denmark Region", "Roskilde", "Fynsvej",
"Aarhus", "Sønderjyllands Alle", "Vejle", "Vestre Alle", "Ringkobing",
"Østre Ringvej", "Storstrømsvej", "Copenhagen", "Viborg", "Bornholm",
"Vestsjællands Naturpleje", "Søndre Ringvej", "Ribe", "Frederiksberg",
"Fynsvej", "Østjyske Motorvej", "Østjyllands Statsfængsel. Frodesdalsvej",
"Færøsk Pakhus", "Grønland", "Copenhagen", "Sjællandsgade",
"North Denmark Region", "Copenhagen", "Nordsjællands Træ-havepleje",
"Vestjyllands Navle", "Bornholm", NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, "Satakunta", "Oulu", "Helsinki", "Southwest Finland",
"Kymenlaakso", "Uusimaa", "North Karelia", "Southern Savonia",
"Vaasa", "Northern Savonia", "Hämeentie", "Lapland", "Landskapet Åland",
"Pirkanmaa", "Central Finland", "Lozère", "Morbihan", "Dordogne",
"Lot", "Val-de-Marne", "Vosges", "Pyrénées-Atlantiques", "Rhône",
"Isere", "Haute-Vienne", "Deux-Sevres", "Tarn", "Alpes-Maritimes",
NA, "Alpes-de-Haute-Provence", "Vaucluse", "Bas-Rhin", "Calvados",
"Aisne", NA, "Loiret", "Dieppe", "Vienne", "Oise", "Var", NA,
"Indre-et-Loire", "Nievre", "Marne", "Cotes-d'Armor", "Nord",
"Gard", "Hauts-de-Seine", "Haute-Marne", "Ain", "Finistere",
"Loire", "Yvelines", "Pyrénées-Orientales", "Haute-Savoie",
"Paris", "Meuse", "Hautes-Alpes", "Moselle", "Seine-et-Marne",
"Charente-Maritime", "Saône-et-Loire", "Maine-et-Loire", NA,
"Loire-Atlantique", "Haute-Corse", "Seine-Saint-Denis", "Orne",
"Charente", "Mayenne", "Sarthe", "Eure", "Pas-de-Calais", "Bouches-du-Rhone",
"Puy de Dôme", "Haut-Rhin", NA, "Doubs", "Aude", "Meurthe-et-Moselle",
"Hautes-Pyrénées", "Côte-d'Or", "Somme", "Savoie", "Allier",
"Ariege", "Indre", "Drome", NA, "Loir-et-Cher", "Haute-Loire",
"Territoire de Belfort", "Creuse", "Aveyron", "Essonne", NA,
"Val-d'Oise", "Tarn-et-Garonne", "Corrèze", "Jura", "Gironde",
"Hérault", "Haute-Garonne", "Cher", "Ardeche", NA, "Manche",
"Corse-du-Sud", "Yonne", "Landes", "Ille-et-Vilaine", "Eure-et-Loir",
"Lot-et-Garonne", "Ardennes", NA, "Haute-Saône", "Vendee", "Aube",
"Cantal", "Gers", NA, "Seine", "Avenue de Seine et Oise", NA,
NA, "Hungary", "Fejér", "Pest County", "Budapest", "Borsod-Abaúj-Zemplén",
"Hajdú-Bihar", "Baranya", "Veszprém", "Bács-Kiskun", "Szabolcs-Szatmár-Bereg",
"Somogy County", "Komárom", "Tolna County", "Jász-Nagykun-Szolnok",
"Békés County", "Zala County", "Csongrád", "Gyor-Moson-Sopron",
"Vas County", "Heves County", "Nógrád County", "Dublin", "Offaly",
"Cork", "Mayo", "Dublin", "Central Square", "Cork", "Meath",
"Cork", "Limerick", "Central Avenue", "Westmeath", "Dublin",
"Clare", "Dublin", "Louth", "Cavan", "Dún Laoghaire", "Donegal",
"Kerry", "Westpark", "Dublin", "Wicklow", "Kildare", "Leitrim",
"Central Square", "Central Square", "Galway", "Dublin", "Waterford",
"Kerry", "Tipperary", "Sligo", "Wexford", "Donegal", "Westmeath",
"Dublin", "Kerry", "Southern Peninsula", "East", "South", NA,
NA, "West", "Northwest", "Northeast", "Reykjavík", NA, NA, "Suðurá",
"Naples", "Palermo", "Verona", "Siena", "Pisa", "Bologna", "Cuneo",
"Bari", "Florence", "Lecce", "Rome", "Perugia", "L'Aquila", "Trento",
"Milan", "Cagliari", "Genoa", "Catania", "Venice", "Udine", "Brescia",
"Parma", "Potenza", "Ancona", "Catanzaro", "Trieste", "Mantua",
"Benevento", "Turin", "Campobasso", "Como", "Aosta", "Apulia",
"Emilia-Romagna", "Lazio", "Lombardy", "Veneto", "Campania",
"Sicily", "Abruzzo", "Tuscany", "Piedmont", "Calabria", "Liguria",
"Sardinia", "Basilicata", "Friuli-Venezia Giulia", "Marche",
"Molise", "Umbria", "Province of Bolzano - South Tyrol", NA,
"Viale Senatore", "Jurbarkas", NA, "Mažeikiai", "Šilainiai",
"Vilkaviškis", "Fabijoniškės", "Trakai", "Lazdijai", "Radviliškis",
"Suvalkijos gatvė", "Dainos", "Širvintos", "Justiniškės",
"Šilalė", "Molėtai", "Anykščiai", "Senamiestis", "Kretinga",
"Baltijos prospektas", "Aukštaitijos nacionalinis parkas", "Alytus",
"Centras", "Akmenė", "Raseiniai", "Gargždai", "Panemunė",
"Marijampolė", "Danė", "Varėna", "Pramonės gatvė", "Vakarinė gatvė",
"Kaunas", "Ukmergė", "Šiauliai", "Plungė", "Aušra", "Lazdynai",
"Marių gatvė", "Utena", "Kalniečių gatvė", "Skuodas", "Karoliniškės",
"Saulės gatvė", "Vilnius", "Šeškinė", "Jonava", "Kėdainiai",
"Šilutė", "Dainava", "Antakalnis", "Kaišiadorys", "Prienai",
"Telšiai", "Pakruojis", "Rokiškis", "Naujoji Vilnia", "Žirmūnai",
"Kelmė", "Šakiai", "Tauragė", "Biržai", "Pasvalio gatvė",
"Naujamiestis", "Žaliakalnis", "Ignalina", "Zarasai", "Dzūkija National Park",
"Aleksotas", "Pajūris", "Kaunas", "Nevėžis", "Møre og Romsdal",
"Oslo", "Sor-Trondelag", "Hordaland", "Rogaland", "Akershus",
"Nordland", "Buskerud", "Vest-Agder", "Oppland", "Aust-Agder",
"Vestfold", "Telemark", "Hedmark", "Sogn og Fjordane", "Troms",
"Ostfold", "Finnmark", "Nord-Trondelag", "Guarda", "Viana do Castelo",
"Lisbon", "Porto", "Aveiro", "Santarem", "Braga", "Viseu", "Faro",
"Setúbal Municipality", "Coimbra", "Castelo Branco", "Vila Real",
"Beja", "Bragança", "Portugal", "Evora", NA, "Madeira", "Leiria",
"Azores", "Portalegre", "Vâlcea County", "Bucharest", "Prahova",
"Teleorman County", "Covasna County", "Suceava County", "Buzău County",
"Dolj County", "Giurgiu County", "Mureș County", "Cluj County",
"Vaslui County", "Alba County", "Argeș County", "Satu Mare County",
"Iași County", "Bacău County", "Timiș County", "Brăila County",
"Bistrița-Năsăud County", "Constanța County", "Vrancea County",
"Olt County", "Calarasi", "Gorj County", "Dâmbovița County",
"Galați", "Caraș-Severin County", "Ilfov County", "Neamț County",
"Brașov County", "Maramureș County", "Harghita County", NA,
"Hunedoara County", "Botoșani County", "Mehedinți County",
"Arad County", "Bihor County", "Tulcea County", "Ialomița County",
"Sibiu", "Sălaj", NA, "Kalmar County", "Västra Götaland County",
"Kronoberg County", "Stockholm County", "Skåne County", "Västra Götaland County",
"Uppsala County", "Blekinge County", "Västra Frölunda", "Stockholm",
"Västmanland County", "Västra Götaland County", "Gavleborg County",
"Varmland County", "Västra Götaland County", "Södermanland County",
"Halland County", "Jamtland County", "Östergötland County",
"Skåne County", "Västerbotten County", "Dalarna County", "Västernorrland County",
"Jonkoping County", "Örebro County", "Skåne County", "Norrbotten County",
"Gotland County", "Malmö", "Bratislava", "Žilina", "Košice",
"Trenčín", "Trnava", "Banská Bystrica", "Nitra", "Prešov"
), lat = c(47.8394807, 48.2081743, 47.2104, 47.2537414, NA, 48.025854,
47.2497427, 48.108077, 48.2081743, 48.2081743, 47.10152, 47.3593442,
48.07322, 46.722203, 48.2081743, NA, 47.80949, 48.2081743, 48.1850529,
47.2497427, 48.30694, 47.1537165, 47.3593442, NA, 46.722203,
47.2692124, 47.64358, 46.6364598, 48.2081743, 48.2081743, 47.3593442,
NA, 48.2081743, 48.1147243, 46.722203, NA, NA, 47.39629, 47.1537165,
47.2497427, 47.1537165, 47.070714, 47.45037, 46.60856, 48.33858,
47.3593442, 47.3593442, 47.3593442, 50.449642, 50.5257076, 51.0536024,
51.0362101, 50.8815434, 51.2194933, 50.0546886, 50.3310218, 50.6203121,
50.633241, 42.135281, 43.4085148, 42.0208614, 42.67344, 43.2046477,
42.605199, 42.5048, 43.4170169, 41.5774148, 42.4257709, 42.4841494,
43.9961739, 42.2868799, 43.8355964, 41.9344178, 43.0756539, 43.2101806,
43.1367798, 43.5271705, 42.6816702, 43.271252, 44.1147101, 43.572786,
43.2462349, 42.1927567, 41.6338416, 42.86847, 46.877858, 46.331734,
47.3876664, 46.7988621, 47.3320717, 46.6569871, 47.359536, 47.4418122,
47.1497017, 46.1904614, 47.0795671, 46.5613135, 46.2180073, 47.5619253,
46.9751954, 47.366481, 46.9267016, 47.6037856, 46.6816748, 47.1456254,
47.3444474, 47.7009364, 47.0723828, 47.3161925, 47.0404265, 46.7738629,
50.3512484, 49.8782223, 49.8782223, 48.9544528, 50.0755381, 48.9457789,
50.6119037, 49.8782223, 49.9444479, 49.6586549, 49.7305327, 49.2162296,
50.3512484, 50.659424, 49.4134812, 49.4490052, 50.6119037, 50.1435,
49.9721801, 49.7384314, 49.9497244, 49.8209226, 50.4134249, 49.9672047,
49.2244365, 50.5384197, 49.9778407, 49.3389251, 50.5653838, 49.9881767,
49.685432, 48.8529391, 49.4724489, 49.9406598, 49.1950602, 50.6444579,
50.1745286, 49.2604043, 50.5015549, 49.5943251, 48.75314, 48.8127354,
49.4129888, 50.2318521, 49.4306207, 49.7380972, 50.1416986, 50.1659651,
50.4353325, 50.6611164, 49.7837821, 50.3539812, 49.4564788, 49.2774517,
49.6819305, 50.4634975, 50.0343092, 50.2103605, 50.027329, 49.2916582,
49.0597969, 49.5641882, 49.593778, 49.8566524, 49.2147869, 49.3648502,
50.3539017, 49.7551629, 50.7220528, 49.3983782, 48.8559107, 50.76628,
50.0795334, 50.4145722, 48.9756578, 49.4397027, 50.7725563, 50.6785201,
49.9524314, 56.8307416, 55.64191, 55.5119479, 56.162939, 57.438799,
55.7113112, 54.6797531, 56.088054, 55.6529652, 54.9127543, 55.6760968,
56.452027, 55.160428, 55.5427918, 55.6412316, 55.326936, 55.677069,
55.5119479, 55.8915305, 55.900349, 55.6735384, 56.4160429, 55.6760968,
56.13943, 56.8307416, 55.6760968, 55.764036, 55.9462621, 55.160428,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 61.5932758, 65.0126148,
60.1733244, 60.3627914, 60.780512, 60.21872, 62.8062078, 61.6945148,
63.0951412, 63.08448, 60.5498025, 67.9222304, 60.3385485, 61.6986918,
62.5666743, 44.494203, 47.8852929, 45.1469486, 44.5379358, 48.7931426,
48.1446427, 43.3269942, 45.7351456, 44.9957745, 45.7435173, 46.5926541,
43.9264401, 43.9466791, NA, 44.0778716, 44.0565054, 48.6343172,
49.1213315, 49.4769199, NA, 47.900771, 49.922992, 45.525587,
49.4214568, 43.467646, NA, 47.2894925, 47.2381708, 49.128754,
48.5108101, 50.3851246, 43.9446996, 48.828508, 48.1260968, 46.2475706,
48.2520249, 45.9846475, 48.7850939, 42.6012912, 46.1756788, 48.856614,
49.0824319, 44.6008723, 49.0983839, 48.841082, 45.74949, 46.5827512,
47.2913545, NA, 47.2780468, 42.4097877, 48.9137455, 48.6388567,
45.7519958, 48.3061239, 47.9217014, 49.1181763, 50.5732769, 43.5911679,
45.7725738, 47.9315041, NA, 46.9276, 43.0724667, 48.7997007,
43.0193924, 47.5126795, 49.914518, 44.771079, 46.3115552, 42.9326292,
46.6613966, 44.7311896, NA, 47.6761905, 45.0821226, 47.5946573,
46.0377633, 44.2179747, 48.4585698, NA, 49.0615901, 44.0126679,
45.372114, 46.762475, 44.849665, 43.5912356, 43.4010462, 46.954005,
44.759629, NA, 49.114712, 41.8102633, 47.8652728, 43.9412045,
48.2292016, 48.5525242, 44.2470173, 49.7624642, NA, 47.7569806,
46.6613966, 48.1563418, 45.1191997, 43.6366479, NA, 48.6002,
49.0030587, NA, NA, 47.162494, 47.1217932, 47.4480001, 47.497912,
48.2939401, 47.4688355, 46.0484585, 47.0930974, 46.5661437, 48.0394954,
46.554859, 47.7390852, 46.4762754, 47.2555579, 46.6704899, 46.7384404,
46.416705, 47.6509285, 47.0929111, 47.8057617, 47.9218427, 53.3498053,
53.2356871, 51.8968917, 53.934581, 53.3498053, 53.3484717, 51.8968917,
53.605548, 51.8968917, 52.6680204, 51.8817584, 53.5345308, 53.3498053,
52.8624528, 53.3498053, 53.8969758, 54.2098443, 53.2943958, 54.6541972,
52.1544607, 53.3857717, 53.3498053, 52.9808207, 53.1589342, 53.9926007,
53.3484717, 53.3484717, 53.270668, 53.3498053, 52.2593197, 52.1544607,
52.4737894, 54.1553277, 52.336916, 54.6541972, 53.5345308, 53.3498053,
52.1544607, 63.9154803, 64.8329974, 64.2661426, NA, NA, 64.770434,
65.1962505, 65.4713712, 64.1265206, NA, NA, 64.0855608, 40.8517746,
38.1156879, 45.4383842, 43.318809, 43.7228386, 44.494887, 44.3844766,
41.1171432, 43.7695604, 40.3515155, 41.9027835, 43.1107168, 42.3498479,
46.0747793, 45.4654219, 39.2238411, 44.4056499, 37.5078772, 45.4408474,
46.0710668, 45.5415526, 44.801485, 40.6404067, 43.6158299, 38.9097919,
45.6495264, 45.1564168, 41.1297613, 45.070312, 41.5602544, 45.8080597,
45.7349551, 40.7928393, 44.5967607, 41.6552418, 45.4790671, 45.7623333,
41.1099473, 37.5999938, 42.1920119, 43.7710513, 45.0522366, 39.3087714,
44.3167917, 40.1208752, 40.6430766, 46.2259177, 43.5058744, 41.6308147,
42.938004, 46.7340955, NA, 40.7001142, 55.077407, NA, 56.3092439,
54.9255081, 54.651945, 54.7359963, 54.6379113, 54.2343267, 55.8108399,
54.6335399, 55.899389, 55.043102, 54.7186089, 55.49268, 55.2265309,
55.529102, 55.766869, 55.883842, 55.6876306, 55.3637089, 54.3962938,
54.8963791, 56.2455029, 55.3819499, 55.7059659, 55.0894399, 54.5553929,
55.8473364, 54.220333, 54.6944644, 54.8227841, 54.8985207, 55.245265,
55.9349085, 55.910784, 55.559804, 54.762297, 55.8638058, 55.5000404,
54.9176558, 56.2702169, 54.6891147, 54.5427835, 54.6871555, 54.7127837,
55.0727242, 55.2881309, 55.350414, 55.199821, 54.7586511, 54.8588669,
54.638358, 55.9869779, 55.9825873, 55.9555039, 54.6929737, 54.7117424,
55.6299189, 54.952671, 55.250366, 56.2017719, 56.2014991, 55.6862449,
54.9087088, 55.3346879, 55.7309609, 54.107642, 54.8695164, 55.4487849,
54.8985207, 55.3761223, 62.9760369, 59.9138688, 63.0136823, 60.2733674,
59.1489544, 60.0000202, 67.6916702, 60.4846025, 58.368605, 61.5422752,
58.6670304, 59.1707862, 59.3913985, 61.3967311, 61.5539435, 69.8178242,
59.2558286, 70.4830388, 64.4370792, 40.5383482, 41.6918275, 38.7222524,
41.1579438, 40.6405055, 39.2366618, 41.5454486, 40.6565861, 37.0193548,
38.5260437, 40.2033145, 39.8197117, 41.3010351, 38.0153039, 41.8061131,
39.399872, 38.571431, NA, 32.7607074, 39.7495331, 37.7412488,
39.2967086, 45.0798051, 44.4267674, 45.0891906, 44.0160491, 45.9426347,
47.5505548, 45.3350912, 44.1623022, 44.1742096, 46.5569904, 46.7941797,
46.4631059, 46.1558924, 45.0722527, 47.7668905, 47.2679653, 46.3258184,
45.8138902, 45.1611505, 47.2486107, 44.212987, 45.8134876, 44.200797,
44.1589336, 44.9485595, 44.9289893, 45.7800569, 45.1139646, 44.535548,
46.9758685, 45.7781844, 47.6737598, 46.4928507, NA, 45.793638,
47.8924042, 44.5515053, 46.2283651, 47.0157516, 45.0450565, 44.603133,
45.9269106, 47.2090813, NA, 57.2350156, 58.2527926, 56.7183403,
59.6024958, 55.9902572, 58.2527926, 60.0092262, 56.2783837, 57.646667,
59.3293235, 59.6713879, 58.2527926, 61.3011993, 59.7294065, 58.2527926,
59.0336349, 56.8966805, 63.1711922, 58.3453635, 55.9902572, 65.3337311,
61.0917012, 63.4276473, 57.3708434, 59.535036, 55.9902572, 66.8309216,
57.4684121, 55.604981, 48.1485965, 49.2194498, 48.7163857, 48.884936,
48.3709108, 48.736277, 48.3061414, 49.0018324), lon = c(13.1750587,
16.3738189, 15.9499, 11.601487, NA, 13.9723665, 9.9797373, 15.8049558,
16.3738189, 16.3738189, 14.1224, 14.4699827, 16.32214, 14.1805881,
16.3738189, NA, 13.05501, 16.3738189, 13.6413273, 9.9797373,
14.28583, 16.2688797, 14.4699827, NA, 14.1805881, 11.4041024,
16.38077, 14.3122246, 16.3738189, 16.3738189, 14.4699827, NA,
16.3738189, 16.4670683, 14.1805881, NA, NA, 14.4693, 16.2688797,
9.9797373, 16.2688797, 15.439504, 15.25261, 13.85062, 15.5028,
14.4699827, 14.4699827, 14.4699827, 5.8491614, 4.0621017, 3.1457942,
3.7373124, 4.564597, 4.40245, 5.4676983, 4.8221456, 5.9418935,
4.524315, 24.7454204, 23.2257589, 23.0943356, 23.8334938, 27.9105488,
23.0377916, 27.4626079, 24.6066708, 24.7010871, 25.6344855, 26.5035296,
22.8679515, 22.6939635, 25.9656144, 25.5554672, 25.61715, 23.552921,
24.7139335, 26.5241228, 26.3228569, 26.9360985, 27.2671454, 27.8272803,
26.5691251, 24.3336226, 25.3776687, 25.316889, 8.251249, 8.8004529,
8.2554295, 7.7080701, 7.6388385, 9.5780257, 8.6356452, 7.7644002,
8.5477715, 7.5449226, 8.1662445, 6.536765, 6.1216925, 7.592768,
6.771555, 9.3000916, 8.3849982, 9.0557371, 7.1172635, 9.3504332,
7.1430608, 8.568004, 8.7903648, 9.4316573, 9.0672085, 8.6025153,
15.7976459, 14.9362955, 14.9362955, 16.7676899, 14.4378005, 14.4416055,
13.7870086, 14.9362955, 16.2856916, 17.0811406, 18.2332637, 17.7720353,
15.7976459, 14.7632424, 13.3157246, 15.6405934, 13.7870086, 12.7501899,
16.3996617, 13.3736371, 15.7950578, 18.2625243, 14.908438, 14.0862836,
17.6627635, 14.1305458, 16.9717754, 17.9938523, 15.9090923, 17.4636941,
13.9989449, 17.1260024, 17.1067513, 17.8947989, 16.6068371, 13.835284,
12.6598918, 13.9103085, 13.6329122, 18.0135356, 16.8825168, 14.3174657,
14.6774664, 12.8719616, 15.222983, 13.5928926, 14.1067465, 16.2776842,
15.361044, 14.0531456, 14.6873698, 13.8033551, 17.45023, 16.9960993,
18.3673216, 13.410737, 15.7811994, 15.825211, 15.2027277, 17.3993799,
17.4958501, 15.9394069, 17.2508787, 18.5432186, 15.8795516, 16.6477552,
14.4817813, 16.4691861, 15.1703135, 15.5870415, 16.0542676, 15.0543387,
12.3698636, 16.1656347, 14.480255, 12.9311435, 14.2127612, 14.5396991,
15.2686536, 9.4930528, 12.087845, 9.5025746, 10.203921, 10.5045321,
9.5363541, 11.3665751, 8.257633, 12.1184531, 11.8185518, 12.5683371,
9.396347, 14.8668836, 11.5902576, 12.4011602, 8.774665, 12.513321,
9.5025746, 9.8030711, 9.7214896, 12.5790035, 10.8758188, 12.5683371,
8.9896522, 9.4930528, 12.5683371, 12.5009354, 8.4947652, 14.8668836,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 22.148308, 25.4714526,
24.9410248, 22.4439369, 26.8829335, 25.2716209, 30.1553887, 27.8005015,
21.6165128, 27.0253504, 22.6888915, 26.5046438, 20.2712585, 23.7895598,
25.5549445, 3.5812692, -2.9001865, 0.7572205, 1.6760691, 2.4740337,
6.3355935, -0.7532809, 4.6108043, 5.9293476, 1.4025484, -0.3962844,
1.9881527, 7.179026, NA, 6.2375947, 5.1432068, 7.5252938, -0.4330578,
3.4417368, NA, 2.2018172, 1.077483, 4.874339, 2.4146396, 6.2375947,
NA, 0.816097, 3.5294522, 4.1475445, -3.3263676, 3.2642436, 4.1513764,
2.2188068, 5.1071322, 5.1307681, -3.9300525, 4.052545, 1.8256572,
2.539603, 6.5389621, 2.3522219, 5.2823997, 6.3226072, 6.5527641,
2.999366, -0.7733188, 4.486671, -0.4877852, NA, -1.8157647, 9.2785583,
2.4845729, 0.0848201, 0.1534761, -0.620935, 0.1655803, 0.9582114,
2.3244679, 5.3102505, 2.9644431, 7.2441099, NA, 6.349001, 2.3813621,
6.0947014, 0.1494988, 4.635412, 2.2707095, 5.742806, 3.4167655,
1.443469, 1.4482662, 5.2266675, NA, 1.4159072, 3.9266366, 6.9207716,
2.0627832, 2.6189273, 2.1569416, NA, 2.1581351, 1.2891036, 1.873739,
5.6729159, -0.4502368, 3.2583626, 1.135302, 2.4671908, 4.5624426,
NA, -1.3115949, 8.9245343, 3.6079823, -0.7532809, -1.5300695,
1.1989814, 0.4502368, 4.6285053, NA, 6.1556282, -1.4482662, 4.3732462,
2.6326062, 0.4502368, NA, 2.3926372, 2.0812519, NA, NA, 19.503304,
18.5294815, 19.4618128, 19.040235, 20.6934113, 21.5453228, 18.2719173,
17.9100763, 19.4272464, 22.00333, 17.5866732, 18.1267006, 18.5570627,
20.5232456, 21.0434996, 16.9152252, 20.2566161, 17.2505883, 16.6812183,
20.2038559, 19.5586447, -6.2603097, -7.7122229, -8.4863157, -9.3516456,
-6.2603097, -6.2372821, -8.4863157, -6.6564169, -8.4863157, -8.6304975,
-8.5205964, -7.4653217, -6.2603097, -9.0471645, -6.2603097, -6.4670971,
-7.2156841, -6.1338666, -8.110546, -9.5668632, -6.1924803, -6.2603097,
-6.044589, -6.9095683, -8.0655852, -6.2372821, -6.2372821, -9.0567905,
-6.2603097, -7.1100703, -9.5668632, -8.1618514, -8.6064532, -6.4633381,
-8.110546, -7.4653217, -6.2603097, -9.5668632, -22.3649667, -15.7433981,
-18.8158138, NA, NA, -21.5341294, -19.2425804, -17.0280279, -21.8174393,
NA, NA, -21.7053947, 14.2681244, 13.3612671, 10.9916215, 11.3307574,
10.4016888, 11.3426163, 7.5426711, 16.8718715, 11.2558136, 18.1750161,
12.4963655, 12.3908279, 13.3995091, 11.1217486, 9.1859243, 9.1216613,
8.946256, 15.0830304, 12.3155151, 13.2345794, 10.2118019, 10.3279036,
15.8056041, 13.518915, 16.5876516, 13.7768182, 10.7913751, 14.7826208,
7.6868565, 14.6627161, 9.0851765, 7.3130762, 17.1011931, 11.2186396,
12.989615, 9.8452433, 11.690976, 14.8475139, 14.0153557, 13.7289167,
11.2486208, 7.5153885, 16.3463791, 8.3964938, 9.0128926, 15.9699878,
13.1033646, 12.989615, 14.4936511, 12.6216211, 11.2888015, NA,
17.6680019, 22.7419569, NA, 22.3414679, 23.8843882, 23.035155,
25.2412183, 24.9346894, 23.5156505, 23.546487, 22.7653449, 23.2236669,
24.956981, 25.2137857, 22.1845559, 25.418001, 25.1131859, 24.3631449,
21.2350919, 21.160865, 26.049774, 24.045876, 23.914596, 22.7471169,
23.1156129, 21.3806819, 21.902155, 23.3626146, 21.2196765, 24.5789969,
25.4451264, 23.8575477, 23.9035965, 24.776075, 23.3136823, 21.8454069,
25.3767959, 24.744153, 24.9666458, 25.609385, 23.9307965, 21.521433,
25.2144787, 23.3650845, 25.2796514, 25.2532065, 24.2793337, 23.9577279,
21.4659859, 24.650908, 25.3899173, 24.4277929, 23.9468009, 22.2485534,
23.8584483, 25.5859249, 25.4105692, 25.2974345, 22.9439299, 23.04802,
22.29095, 24.7560118, 24.7317406, 24.154819, 23.922935, 26.1659159,
26.245295, 24.2582742, 23.9008218, 22.0280239, 23.9035965, 24.0195937,
8.0182724, 10.7522454, 10.3487135, 5.7220194, 6.0143431, 11.3690301,
12.7019476, 8.6983764, 6.9019616, 9.7166314, 8.0844752, 10.1144355,
8.321121, 11.5627369, 6.3325879, 18.7819365, 11.3279007, 26.0135108,
11.7462949, -7.2661315, -8.8344101, -9.1393366, -8.6291053, -8.6537539,
-8.6860119, -8.426507, -7.9124712, -7.9304397, -8.8909328, -8.4102573,
-7.4964662, -7.7422354, -7.8627308, -6.756738, -8.224454, -7.913502,
NA, -16.9594723, -8.807683, -25.6755944, -7.4284755, 24.0835282,
26.1025384, 26.0829312, 25.2986628, 25.8918984, 25.741062, 26.7107578,
23.6325054, 25.9408143, 24.6723215, 23.6121492, 27.7398031, 23.5556121,
24.8142726, 22.9241378, 27.2185662, 26.662378, 21.3331055, 27.7017351,
24.5322814, 28.2550055, 27.0657531, 24.5022981, 27.3338592, 23.2427079,
25.425385, 27.8251576, 22.0740993, 26.2324886, 26.3818764, 25.2225801,
23.7456285, 25.6456696, NA, 22.9975993, 26.7591781, 22.9044157,
21.6597819, 22.172266, 29.0324912, 27.3789914, 24.2254807, 23.2121901,
NA, 16.1849349, 13.0596425, 14.4114674, 18.1384383, 13.5957692,
13.0596425, 17.2714589, 15.0180058, 11.929444, 18.0685808, 16.2158954,
13.0596425, 16.1534215, 13.2354024, 13.0596425, 16.7518899, 12.8033993,
14.95918, 15.5197843, 13.5957692, 16.5161695, 14.6663653, 17.7292444,
14.3439173, 15.0065731, 13.5957692, 20.3991966, 18.4867447, 13.003822,
17.1077477, 18.7408001, 21.2610746, 18.0335209, 17.5833218, 19.1461917,
18.076376, 21.2393119)), .Names = c("country", "constituency",
"location", "lat", "lon"), row.names = c(NA, -673L), class = c("tbl_df",
"tbl", "data.frame"))
library(dplyr)
library(ggplot2)
ggplot(na.omit(loc), aes(lon, lat, color = country)) +
geom_jitter() +
facet_wrap(~country, scales = "free") +
guides(color = FALSE) +
theme_bw() +
theme(axis.text = element_blank())
loc = na.omit(loc) %>%
group_by(country) %>%
mutate(hull = 1:n(), hull = factor(hull, chull(lat, lon))) %>%
arrange(hull)
ggplot(loc, aes(lon, lat, color = country, fill = country)) +
geom_polygon(data = filter(loc, !is.na(hull)), alpha = 0.5) +
geom_point() +
guides(color = FALSE, fill = FALSE) +
theme_bw() +
theme(axis.text = element_blank())
@mbedward
Copy link

mbedward commented Mar 2, 2017

Thanks for this. I was doing the same thing in a more complex way. Your method is much cleaner. However, I found I had to wrap the hull factor in as.numeric so that arrange would sort it appropriately. Otherwise geom_polygon produced odd results for hulls with more than 9 vertices.

https://gist.github.com/mbedward/26296da610fd747a9b9f62672f57e9c1

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment