X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2FRgraph.R;h=1caf440ccd050f0cc55d2bc7a21247e5ad400833;hp=061c1dde396d6acce362faeabed967a32a706ed8;hb=13666be5de5eeffbe63774c3c0aecd407b519ac6;hpb=ab23968410d4e2eff482fd16a639801b457d5063

diff --git a/Rscripts/Rgraph.R b/Rscripts/Rgraph.R
index 061c1dd..1caf440 100644
--- a/Rscripts/Rgraph.R
+++ b/Rscripts/Rgraph.R
@@ -183,6 +183,15 @@ select_point_chi <- function(tablechi, chi_limit) {
 	row_keep
 }
 
+select.chi.classe <- function(tablechi, nb) {
+    rowkeep <- NULL
+    for (i in 1:ncol(tablechi)) {
+        rowkeep <- append(rowkeep,order(tablechi[,i], decreasing = TRUE)[1:nb])
+    }
+    rowkeep <- unique(rowkeep)
+    rowkeep
+}
+
 #from summary.ca
 summary.ca.dm <- function(object, scree = TRUE, ...){
   obj <- object
@@ -296,7 +305,7 @@ create_afc_table <- function(x) {
 	res
 }
 
-make_afc_graph <- function(toplot,classes,clnb, xlab, ylab, cex.txt = NULL, leg = FALSE, cmd = FALSE, black = FALSE) {
+make_afc_graph <- function(toplot, classes, clnb, xlab, ylab, cex.txt = NULL, leg = FALSE, cmd = FALSE, black = FALSE) {
 	rain <- rainbow(clnb)
     compt <- 1
     tochange <- NULL
@@ -320,15 +329,11 @@ make_afc_graph <- function(toplot,classes,clnb, xlab, ylab, cex.txt = NULL, leg
         cl.color <- 'black'
     }
 	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)
+	abline(h=0, v=0, lty = 'dashed')
 	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)
+		text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, offset=0)
 	else 
-		#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)
+        text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt, offset=0)
 
     if (!cmd) {    
 	    dev.off()