X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2FRgraph.R;h=85f1ff851ef527a31c25a6244d106a6b102406e3;hp=4759448ed18c2a8277abd37158b3985e1f77a416;hb=ea17363fa11a4466fac8509b28f3d214a997f458;hpb=22cd27b2bbe9ab1ffa7ef06fa764b5147ae17dad

diff --git a/Rscripts/Rgraph.R b/Rscripts/Rgraph.R
index 4759448..85f1ff8 100644
--- a/Rscripts/Rgraph.R
+++ b/Rscripts/Rgraph.R
@@ -318,10 +318,14 @@ make_afc_graph <- function(toplot,classes,clnb, xlab, ylab, cex.txt = NULL, leg
 	cl.color <- rain[classes]
 	plot(toplot[,1],toplot[,2], pch='', xlab = xlab, ylab = ylab)
 	abline(h=0,v=0, lty = 'dashed')
+    #print('ATTENTION Rgraph.R : utilisation de maptools !')
+    #library(maptools)
 	if (is.null(cex.txt))
+        #pointLabel(toplot[,1],toplot[,2],rownames(toplot),col=cl.color)
 		text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color)
 	else 
-		text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt)
+		#pointLabel(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt)
+        text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt)
 
     if (!cmd) {    
 	    dev.off()