[R-sig-genetics] nj tree

[Susana]

Hi,

I am trying to make a plot similar with the one below, where each sample can be seen well and the branch is coloured.
I tried but can’t get to have the branches coloured , only the tips. I tried edge.color  but it does not match the tips…
Also, I have lots of samples but it looks like I just have a few. 
Any help will be great, thanks  a lot

My code now:
tr1 <- nj(xxxx)
plot(tr1,type="u",show.tip.label = F, tip.col=colorings[labs], no.margin=TRUE) ##edge.color=colorings[labs])
tiplabels(pch =21, bg=colorings[labs], cex = 0.7)
legend("topleft",levels(unique(as.factor(labes2))),col=yyyyy[,2],
       pch=15,xpd=TRUE,cex=0.4,xjust=0,yjust=0,ncol=4)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://stat.ethz.ch/pipermail/r-sig-genetics/attachments/20160403/9aabd7c4/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Screen Shot 2016-04-03 at 01.19.56.png
Type: image/png
Size: 460741 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-sig-genetics/attachments/20160403/9aabd7c4/attachment-0001.png>