use annotate() to avoid propagating labels

Author: teunbrand

R/annotation-borders.R

@@ -35,8 +35,11 @@
 annotation_borders <- function(database = "world", regions = ".", fill = NA,
                                colour = "grey50", xlim = NULL, ylim = NULL, ...) {
   df <- map_data(database, regions, xlim = xlim, ylim = ylim)
-  geom_polygon(aes(.data$long, .data$lat, group = .data$group), data = df,
-               fill = fill, colour = colour, ..., inherit.aes = FALSE)
+  annotate(
+    geom = "polygon",
+    x = df$long, y = df$lat, group = df$group,
+    fill = fill, colour = colour, ...
+  )
 }
 
 #' @export