Some R code for plotting phylogenetic trees