R/plotOrnithoMTB.R

In heibl/rornitho: Functions for Visualisation of Ornitho Bird Observations

## This code is part of the ornitho package
## © C. Heibl 2015 (last update 2015-06-30  )

plotOrnithoMTB <- function(cex = 0.6){
  
  text(3422183, 5523752, "13", cex = cex)
  text(3434143, 5523752, "14", cex = cex)
  text(3435517, 5643297, "14", cex = cex)
  text(3457688, 5479108, "16", cex = cex)
  text(3471017, 5698723, "17", cex = cex)
  text(3482607, 5698723, "18", cex = cex)
  text(3494272, 5721033, "19", cex = cex)
  text(3505819, 5721033, "20", cex = cex)
  text(3517365, 5721033, "21", cex = cex)
  text(3528847, 5732149, "22", cex = cex)
  text(3540367, 5732149, "23", cex = cex)
  text(3551988, 5721134, "24", cex = cex)
  text(3563667, 5710115, "25", cex = cex)
  text(3575555, 5687999, "26", cex = cex)
  text(3587170, 5687999, "27", cex = cex)
  text(3482607, 5712637, "44", cex = cex)
  text(3459037, 5690489, "46", cex = cex)
  text(3459037, 5679340, "47", cex = cex)
  text(3459037, 5668246, "48", cex = cex)
  text(3459037, 5657133, "4916", cex = cex)
  text(3447224, 5646079, "5015", cex = cex)
  text(3423282, 5635219, "51", cex = cex)
  text(3423282, 5624102, "52", cex = cex)
  text(3423282, 5612986, "5313", cex = cex)
  text(3410685, 5601946, "54", cex = cex)
  text(3410685, 5590896, "55", cex = cex)
  text(3410685, 5579783, "56", cex = cex)
  text(3410685, 5568654, "5712", cex = cex)
  text(3401667, 5557729, "58", cex = cex)
  text(3401667, 5546643, "59", cex = cex)
  text(3410410, 5535313, "6012", cex = cex)
  text(3446103, 5523752, "6115", cex = cex)
  text(3446103, 5512635, "62", cex = cex)
  text(3446103, 5501504, "63", cex = cex)
  text(3446103, 5490393, "64", cex = cex)
  text(3469752, 5479108, "6517", cex = cex)
  text(3469752, 5467979, "66", cex = cex)
}