library("chessboard")
# Two-dimensional sampling ----
sites_infos <- expand.grid("transect" = 1:3, "quadrat" = 1:5)
nodes <- create_node_labels(data = sites_infos,
transect = "transect",
quadrat = "quadrat")
neighbors <- pawn(nodes, focus = "2-3")
gg_chessboard(nodes) +
geom_node(nodes, "2-3") +
geom_neighbors(nodes, neighbors)
Run the code above in your browser using DataLab