nwk <- system.file("extdata", "sample.nwk", package="ggtree")
tree <- read.tree(nwk)
p <- ggtree(tree)
d <- matrix(abs(rnorm(52)), ncol=4)
rownames(d) <- tree$tip.label
colnames(d) <- paste0("G", 1:4)
gplot(p, d, low="green", high="red")
Run the code above in your browser using DataLab