Labelling and mapping trees that spillover

Package

library(fgeo.map)

Data

# `sinharaja::sinh_vft_20180118` is a private dataset. Instead use your data.
vft <- sinharaja::sinh_vft_20180118

Suffix dead trees on the quadrat edge

suffixed <- suffix_edge_tag(
  vft,
  .match = "dead",
  suffix = "_d",
  x_q = 20
)

#> One or more trees spillover.

# Confirm that it worked
dplyr::filter(suffixed, status == "dead", (qx > 20 | qy > 20))

Map

# Showing only one quadrat
vft_q0002 <- dplyr::filter(suffixed, quadratname == "0002")
p <- map_tag(vft_q0002)
# Showing only one of the four maps of the quadrat 0002
p[[3]]

Print to .pdf

# Printing all plots of `p` to .pdf, with parameters optimized for size letter
pdf("map.pdf", paper = "letter", height = 10.5, width = 8)
p

#> $`0002_1`

#> 
#> $`0002_2`

#> 
#> $`0002_3`

#> 
#> $`0002_4`

dev.off()

#> png 
#>   2