Sorry, just correcting the script!!!

Hi everybody,
I'm trying, without success, to avoid some variables labels to overlap on a capscale (vegan package) object graph.
I was able to move the labels with the coding below, but it moves the entire vector... 

CAPobj<-CAPpotiFT
for(i in c(2:8))CAPobj$CCA[[i]][,1]<-CAPobj$CCA[[i]][,1]
CAPobj$CCA[[i]][,1][2]<-0.85

And here the graphic script

ScoresCAPFT<-scores(CAPobj)
FatoresRep<-read.xls('Fatores.xls',sheet=1,rowNames=T)
plot.cca(CAPobj,type='none',display=c('bp','sites'),main='Total Fauna - Sites vs. Environment')
points(ScoresCAPFT$sites[FatoresRep$BiofaciesBC=='1',],pch=21)
points(ScoresCAPFT$sites[FatoresRep$BiofaciesBC=='2',],pch=20)
points(ScoresCAPFT$sites[FatoresRep$BiofaciesBC=='3',],pch=21,bg='gray')
points(ScoresCAPFT$sites[FatoresRep$BiofaciesBC=='4',],pch=24)
points(ScoresCAPFT$sites[FatoresRep$BiofaciesBC=='5',],pch=24,bg='gray')
points(ScoresCAPFT$sites[FatoresRep$BiofaciesBC=='6',],pch=24,bg='black')
text.cca(CAPpotiFTI,dis='cn',col='black',cex=0.6,lwd=0.5,lty='dotted')

Well it's data manipulation, I won't use that... 
So... Any one knows how to move the labels, keeping the vectors position on a cca-like biplot?

Thanks for your attention!
___________________________________
MSc. Rodrigo Aluizio
Centro de Estudos do Mar/UFPR
Laboratório de Micropaleontologia
Avenida Beira Mar s/n - CEP 83255-000
Pontal do Paraná - PR - BRASIL
	[[alternative HTML version deleted]]

