ggmap + ggplot2 shapefile not displaying at zoom 4

Question

I am trying to draw a map of Europe using ggmap and ggplot2 with some points (geom_point()) and a shapefile (geom_polygon()).

My shapefile d