Based on the data you provided, a compact alternative could be using the package WorldMapR and its function worldmap:

europedf <- as.data.frame(europe)

europedf[1:3,] # show first rows of the data

worldplot(data = europedf,
          ColName = "Production",
          CountryName = "Country",
          CountryNameType = "name",
          latitude = c(35,72), longitude = c(-24,40),          # focus on Europe
          palette_option = brewer.pal(n = 8, name = "Blues"),
          annote = T,                                          # If you want labels
          div = 0.8                                            # dimensions option
          )