In joeroe/stratigraphr: Archaeological Stratigraphy and Chronological Sequences

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library("stratigraphr")
library("ggraph")

# Example data after Harris 1979, Fig. 12
data("harris12")
h12_graph <- stratigraph(harris12, "context", "above")

ggraph(h12_graph, layout = "sugiyama") +
  geom_edge_elbow() +
  geom_node_label(aes(label = context), label.r = unit(0, "mm")) +
  theme_graph()

joeroe/stratigraphr documentation built on May 17, 2023, 9:52 p.m.