support ape bootstrap analysis result

[GuangchuangYu]

> phytree

Phylogenetic tree with 74 tips and 73 internal nodes.

Tip labels:
    Sal_JR3_62_z4_z23_RSK2980, Sal_JR3_62_z36_RKS2983, Sal_JGG_CFSAN001992, Sal_JBX_CFSAN001080, Sal_JM6_CVM19633, Sal_JIX_507440_20, ...

Rooted; includes branch lengths.
## bttree is output from 'ape::boot.phylo'
> bttree
 [1] 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100  80  78
[20]  86 100  73 100 100 100 100 100  79 100  85 100 100 100 100 100 100 100 100
[39] 100 100 100 100 100  99  89 100  94 100 100  73  39 100 100 100 100 100  89
[58] 100 100  73  70  67  97  94 100  74 100  63  46 100 100  89  98
> require(ggtree)
> x <- apeBoot(phytree, bttree)
> x
'apeBoot' S4 object that stored bootstrap value generated by 'ape::boot.phylo' .

...@ tree: 
Phylogenetic tree with 74 tips and 73 internal nodes.

Tip labels:
    Sal_JR3_62_z4_z23_RSK2980, Sal_JR3_62_z36_RKS2983, Sal_JGG_CFSAN001992, Sal_JBX_CFSAN001080, Sal_JM6_CVM19633, Sal_JIX_507440_20, ...

Rooted; includes branch lengths.

> ggtree(x) + geom_label(aes(label=bootstrap))

[GuangchuangYu]

see 672f351.