inst-not/geom-sf-insets-examples.R

In aphalo/ggpp: Grammar Extensions to 'ggplot2'

library(ggpp)

 nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
  ggplot(nc) +
    geom_sf(aes(fill = AREA)) -> p1

  nc_3857 <- sf::st_transform(nc, 3857)
  ggplot() +
    geom_sf(data = nc) +
    geom_sf(data = nc_3857, colour = "red", fill = NA)


  inset.data <-
    data.frame(lab = I(list(p1 + theme(legend.position = "none"))),
               x = 0,
               y = 0)
  p1 +
    geom_plot(data = inset.data,
    mapping = aes(label = lab, x = I(x), y = I(y))) +
    theme(axis.title = element_blank())

  inset.data <-
    data.frame(lab =
                 I(list(data.frame(
                   a = 1:3,
                   b = c("some text",
                         "more text",
                         "alpha^{3} %*%~beta %*%~sqrt(123)")))
                   ),
               x = 0.05,
               y = 0.05)
  p1 +
    geom_table(data = inset.data,
              mapping = aes(label = lab, x = I(x), y = I(y)),
              parse = TRUE) +
    theme(axis.title = element_blank())

  p1 +
    geom_table(data = inset.data,
               mapping = aes(label = lab, x = as_npc(x), y = as_npc(y)),
               parse = TRUE) +
    theme(axis.title = element_blank())

  inset.data <-
    data.frame(lab =
                 I(list(data.frame(
                   a = 1:3,
                   b = c("some text",
                         "more text",
                         "alpha^{3} %*%~beta %*%~sqrt(123)")))
                 ),
               x = "left",
               y = "bottom")
  p1 +
    geom_table(data = inset.data,
               mapping = aes(label = lab, x = as_npcx(x), y = as_npcy(y)),
               parse = TRUE) +
    theme(axis.title = element_blank())

  p1 +
    geom_table(data = inset.data,
               mapping = aes(label = lab, x = as_npc(x), y = as_npc(y)),
               parse = TRUE) +
    theme(axis.title = element_blank())

  p1 +
    geom_table(data = inset.data,
               mapping = aes(label = lab, x = as_npc(x, margin = 0), y = as_npc(y, margin = 0.1)),
               parse = TRUE) +
    theme(axis.title = element_blank())

  p1 + annotate(geom = "plot",
                label = p1 + theme(legend.position = "none"),
                vp.width = 1/3, vp.height = 1/3,
                x = as_npc("left"),
                y = as_npc("bottom"))

  p1 + annotate(geom = "text",
                label = "test",
                hjust = "inward", vjust = "inward",
                x = as_npc("left"),
                y = as_npc("bottom"))