Andrew Barr
9/18/2017
Note: this assumes you already installed the devtools
package. If you haven't you should do so using the normal R package management tools.
#devtools::install_github("wabarr/ggphylomorpho")
library(ggphylomorpho)
sampleData <- makesampledata()
plot(sampleData$tree)
head(sampleData$DF)
## PC1 PC2 taxon group
## AAAAA -1.6961220 -3.166955 AAAAA group1
## BBBBB -1.6417467 -3.020521 BBBBB group2
## CCCCC -1.2058984 -3.519850 CCCCC group1
## DDDDD -1.6926564 -1.302847 DDDDD group2
## EEEEE 1.1066959 -1.219074 EEEEE group1
## FFFFF 0.8772968 -1.233387 FFFFF group2
?ggphylomorpho
ggphylomorpho(tree=sampleData$tree, tipinfo=sampleData$DF)