geom_sf_label_w_nudge_xy.md

library(ggplot2)


nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)

ggplot(nc[1:2,]) +
  geom_sf(aes(fill = AREA)) +
  geom_sf_label(aes(label = NAME),
                nudge_x = c(-0.2, 0.2),
                nudge_y = c(-0.2, 0.2))
#> Warning in st_point_on_surface.sfc(sf::st_zm(x)): st_point_on_surface may
#> not give correct results for longitude/latitude data

^{Created on 2019-02-11 by the reprex package (v0.2.1)}

geom_sf_label_w_nudge_xy2.md

library(ggplot2)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
ggplot(nc[1:3,]) +
  coord_fixed() +
  geom_sf() +
  # for comparison
  geom_sf_label(aes(label = NAME), colour = "grey") +
  # add nudges
  geom_sf_label(aes(label = NAME), colour = "red",
                nudge_x = c(-0.4, 0.5, 0.7),
                nudge_y = c(0.2, 0.2, 0.5))
#> Coordinate system already present. Adding new coordinate system, which will replace the existing one.
#> Warning in st_point_on_surface.sfc(sf::st_zm(x)): st_point_on_surface may
#> not give correct results for longitude/latitude data

#> Warning in st_point_on_surface.sfc(sf::st_zm(x)): st_point_on_surface may
#> not give correct results for longitude/latitude data

^{Created on 2019-02-12 by the reprex package (v0.2.1)}