这个图是怎么画的

library(ape)
setwd('E:/R/Staphy')
data(woodmouse)
write.dna(woodmouse, file = 'woodmouse1.txt', format = 'sequential')
phy<- phymltest('E:/R/Staphy/woodmouse1.txt', format = 'sequential', execname = 'E:/R/Program/PhyML_3.1_win32.exe')
plot(phy)



这是代码， 需要下载一个软件PhyML， 算出来的结果是phyMLtest类的

library(ape)
setwd('E:/R/Staphy')
data(woodmouse)
write.dna(woodmouse, file = 'woodmouse1.txt', format = 'sequential')
phy<- phymltest('E:/R/Staphy/woodmouse1.txt', format = 'sequential', execname = 'E:/R/Program/PhyML_3.1_win32.exe')
plot(phy)



这是代码， 需要下载一个软件PhyML， 算出来的结果是phyMLtest类的