<html dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style id="owaParaStyle" type="text/css">P {margin-top:0;margin-bottom:0;}</style>
</head>
<body ocsi="0" fpstyle="1">
<div style="direction: ltr;font-family: Tahoma;color: #000000;font-size: 10pt;">Hi there,
<br>
<br>
for this it is best to re-use the example in the DAPC tutorial, p. 40, though I suspect this is what you have done already.
<br>
<br>
I'd need to play with a reproducible example, but I think the problem comes from using add.scatter.eig, implicitly called when you ask for either screeplot to be added in scatter.dapc. This changes the coordinate system. Best think to do is disable these, add
the new points, then add the screeplot last, as in the example.<br>
<br>
Cheers<br>
Thibaut<br>
<div><br>
</div>
<div style="font-family: Times New Roman; color: #000000; font-size: 16px">
<hr tabindex="-1">
<div style="direction: ltr;" id="divRpF875513"><font color="#000000" face="Tahoma" size="2"><b>From:</b> adegenet-forum-bounces@lists.r-forge.r-project.org [adegenet-forum-bounces@lists.r-forge.r-project.org] on behalf of Andres Schjønhaug Susrud [andres.susrud@gmail.com]<br>
<b>Sent:</b> 30 October 2014 20:02<br>
<b>To:</b> adegenet-forum@lists.r-forge.r-project.org<br>
<b>Subject:</b> [adegenet-forum] problems adding predicted points to scatter plot<br>
</font><br>
</div>
<div></div>
<div>
<div dir="ltr">Dear list,
<div><br>
</div>
<div>I'm having problems adding points to a dapc scatter plot.</div>
<div><br>
</div>
<div>
<div>grp = find.clusters(human_DR_bind_2[1:200,])</div>
<div>dapc1 <- dapc(human_DR_bind_2[1:200,],grp$grp)</div>
<div>pred.sup <- predict.dapc(dapc1, newdata=x.sup2)</div>
<div>names(pred.sup)</div>
<div>scatter(dapc1, cell=2.5, pch=1, cstar=0, axesel=FALSE, col=c(2,3,4))</div>
<div>par(xpd=T)</div>
<div>
<div>points(pred.sup$ind.scores[,1],pred.sup$ind.scores[,2],pch = 2,col = 6)</div>
</div>
</div>
<div><br>
</div>
<div>the problem is that the predicted points are "all" visible, but completely out of placement.</div>
<div><br>
</div>
<div>when plotting the dapc1$ind.scores[,1],dapc1$ind.scores</div>
<div><br>
</div>
<div>plot(dapc1$ind.scores[,1],dapc1$ind.scores)<br>
</div>
<div>
<div>points(pred.sup$ind.scores[,1],pred.sup$ind.scores[,2],pch = 2,col = 6)</div>
</div>
<div><br>
</div>
<div><br>
</div>
<div>the alligment seems fine.</div>
<div><br>
</div>
<div>thanks for any help on this matter</div>
<div><br>
</div>
<div>BR</div>
<div><br>
</div>
<div>Andres</div>
</div>
</div>
</div>
</div>
</body>
</html>