## generally recommend using higher resolution map
## e.g., from mapdata package
data(tortoise.tree)
data(tortoise.geog)
tortoise.phymap<-phylo.to.map(tortoise.tree,
tortoise.geog,plot=FALSE,direction="rightwards",
regions="Ecuador")
plot(tortoise.phymap,direction="rightwards",pts=FALSE,
xlim=c(-92.25,-89.25),ylim=c(-1.8,0.75),ftype="i",
fsize=0.8,lty="dashed",map.bg="lightgreen",
colors="slategrey")
## reset margins
par(mar=c(5.1,4.1,4.1,2.1))
Run the code above in your browser using DataLab