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")
gg_chessboard(nodes) +
geom_node(nodes, "2-3")
# One-dimensional sampling (only transects) ----
sites_infos <- data.frame("transect" = 1:5)
nodes <- create_node_labels(data = sites_infos,
transect = "transect")
gg_chessboard(nodes) +
geom_node(nodes, "3-1")
Run the code above in your browser using DataLab