library(sp)
library(raster)
library(tidyverse)

France_map <- getData(name = "GADM", country = "FRA", level = 1)
Germany_map <- getData(name = "GADM", country = "DEU", level = 1)

all_maps <- list(France_map, Germany_map)

mydata <- dput(structure(list(cntry = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,
  1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
  2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Germany", "France"),
  class = "factor"), region_name = structure(1:37, .Label = c("Baden-Württemberg",
  "Bayern", "Berlin", "Brandenburg", "Bremen", "Hamburg", "Hessen", "Mecklenburg-Vorpommern",
  "Niedersachsen", "Nordrhein-Westfalen", "Rheinland-Pfalz", "Saarland", "Sachsen",
  "Sachsen-Anhalt", "Schleswig-Holstein", "Thüringen", "Île-de-France", "Champagne-Ardenne",
  "Picardie", "Haute-Normandie", "Centre", "Basse-Normandie", "Bourgogne",
  "Nord-Pas-de-Calais", "Lorraine", "Alsace", "Franche-Comté", "Pays de la Loire",
  "Bretagne", "Poitou-Charentes", "Aquitaine", "Midi-Pyrénées", "Limousin",
  "Rhône-Alpes", "Auvergne", "Languedoc-Roussillon", "Provence-Alpes-Côte d'Azur"),
  class = "factor"), prop = c(0.0771812080536913, 0.0808625336927224, 0.154200131820421,
  0.143712574850299, 0.125, 0.1875, 0.160220994475138, 0.201612903225806,
  0.149122807017544, 0.140562248995984, 0.111111111111111, 0.130434782608696,
  0.162454873646209, 0.141891891891892, 0.164835164835165, 0.0810810810810811,
  0.320361006883289, 0.173944002182893, 0.267984998166555, 0.145696294975402,
  0.307927600677265, 0.218154962499145, 0.249630808322935, 0.276741747762545,
  0.0959323496890737, 0.144213110146746, 0.0929990840802643, 0.190088309954592,
  0.159029556704208, 0.204186267910012, 0.26199124557682, 0.171309738332821,
  0.125707503945437, 0.241559205433323, 0.170811734710593, 0.275876128675216,
  0.205483749159249)), .Names = c("cntry", "region_name", "prop"), class = c("tbl_df",
  "tbl", "data.frame"), row.names = c(NA, -37L)))

leaflet() %>%
  addPolygons()