### An extract from Sibley and Ahlquist (1990)
cat("(((Strix_aluco:4.2,Asio_otus:4.2):3.1,",
"Athene_noctua:7.3):6.3,Tyto_alba:13.5);",
file = "ex.tre", sep = "")
tree.owls <- read.tree("ex.tre")
plot(tree.owls)
unlink("ex.tre") # delete the file "ex.tre"
data(xenarthra)
op <- par()
par(ask = TRUE)
plot(xenarthra)
### remove the margins and put the tip labels closer
### to the tips
plot(xenarthra, no.margin = TRUE, label.offset = .005)
### use a smaller font size
par(cex = 0.8)
plot(xenarthra, no.margin = TRUE, label.offset = .005)
par(op)
data(bird.orders)
### using random colours and thichness
plot(bird.orders,
edge.color = sample(colors(), length(bird.orders$edge)/2),
edge.width = sample(1:10, length(bird.orders$edge)/2, replace = TRUE))
### rainbow colouring...
plot(bird.orders,
edge.color = sample(c("red", "yellow", "blue", "green", "orange", "purple"), length(bird.orders$edge)/2, replace = TRUE),
edge.width = sample(1:10, length(bird.orders$edge)/2, replace = TRUE))
Run the code above in your browser using DataLab