install.packages("ape") 
library(ape)
insecta<-"(dragonflies,(cockroaches,(bugs,(wasps&bees,((beetles,lacewings),(flies,butterflies&moths))))));"
insectTree<-read.tree(text=insecta)
plot(insectTree)
summary(insectTree)
str(insectTree)
attributes(insectTree)
insectTree$edge

install.packages("phytools")
library(phytools)
plotTree(insectTree,offset=1)
tiplabels()


#####

random_tree25<-rtree(n=25)
random_tree25
plot(random_tree25)
random_tree25 [2]
random_tree25$tip.label
par(mfrow=c(2,2))
plot(random_tree25,edge.width = 2, label.offset = 0.1, type = "cladogram")
plot(random_tree25,edge.width = 2, label.offset = 0.1, type = "phylogram")
plot(random_tree25,edge.width = 2, label.offset = 0.1, type = "fan")
plot(random_tree25,edge.width = 2, label.offset = 0.1, type = "radial")