ggdiffclade(obj=., alpha=0.3, linewd=0.2, skpointsize=0.6, taxlevel=3, settheme=FALSE, setColors=FALSE, cladetext=1.5, removeUnknown = F) + guides(color = guide_legend(keywidth = 0.1, keyheight = 0.6, order = 3, ncol=1)) + scale_fill_manual(values=c("#008B45FF","#EE0000FF...