library("chessboard")
sites_infos <- expand.grid("transect" = 1:9, "quadrat" = 1:9)
nodes <- create_node_labels(data = sites_infos,
transect = "transect",
quadrat = "quadrat")
focus <- "5-5"
neighbors <- wizard(nodes, focus = focus, degree = 4, directed = FALSE,
reverse = TRUE)
gg_chessboard(nodes) +
geom_neighbors(nodes, neighbors) +
geom_edges(nodes, focus, neighbors) +
geom_node(nodes, focus)
Run the code above in your browser using DataLab