data(xenarthra)
op <- par()
par(ask = TRUE)
plot(xenarthra)
### remove the margins...
plot(xenarthra, no.margin = TRUE)
### ... and use a smaller font size
par(cex = 0.8)
plot(xenarthra, no.margin = TRUE)
par(op)
Run the code above in your browser using DataCamp Workspace