Coral phylogeny and trait

rm(list=ls())
library(ape)
library(phytools)

## Loading required package: maps

#http://www.phytools.org/Cordoba2017/ex/15/Plotting-methods.html

tree<-read.tree("http://www.tonyjhwueng.info/ououcir/coraltree.phy")
tree$root.edge<-0
dataset <- read.csv(file="http://www.tonyjhwueng.info/ououcir/coraltrait.csv")
X <- read.csv(file="coraltrait.csv",row.names=1)
tree$tip.label<-rownames(X)
dotTree(tree,X,standardize=FALSE,length=6)
tiplabels(cex=0.6)
nodelabels(cex=0.6)

#?dotTree