tchi.min <- %i
tchi.max <- %i
dirout <- '%s'
+do.svg <- %s
+xminmax <- NULL
+yminmax <- NULL
xlab <- paste('facteur ', x, ' -')
ylab <- paste('facteur ', y, ' -')
if ( what == 0 ) table.in <- afc$colcoord
if ( what == 1 ) table.in <- afc$colcrl
rownames(table.in) <- afc$colnames
+ eff <- afc$colmass
if (typegraph == 0) {
table.in<-table.in[,c(x,y)]
} else {
}
classes <- c(1:clnb)
maxchi <- 1
- cex.par <- NULL
+ cex.par <- rep(taillecar/10, nrow(table.in))
} else {
if ( what == 0 ) table.in <- afc$rowcoord
- if ( what == 1 ) table.in <- afc$rowcrl*2
+ if ( what == 1 ) table.in <- afc$rowcrl
rownames(table.in) <- afc$rownames
tablechi <- chistabletot
rn.keep <- c()
ry <- range(table.in[,2], na.rm = TRUE)
rz <- range(table.in[,3], na.rm = TRUE)
}
+ if (exists(afctable)) {
+ eff <- rowSums(afctable)
+ } else {
+ eff <- afctable$rowmass
+ }
+
if (!is.null(debsup)) {
if ( qui == 0 ) {
table.in <- table.in[1:(debsup-1),]
tablechi <- tablechi[1:(debsup-1),]
- cex.par <- afc$rowmass[1:(debsup-1)]
+ cex.par <- eff[1:(debsup-1)]
}
if ( qui == 1 ) {
table.in <- table.in[debsup:(debet-1),]
tablechi <- tablechi[debsup:(debet-1),]
- #cex.par <- afc$rowmass[debsup:(debet-1)]
+ cex.par <- eff[debsup:(debet-1)]
}
if ( qui == 2 ) {
table.in <- table.in[debet:nrow(table.in),]
tablechi <- tablechi[debet:nrow(tablechi),]
- #cex.par <- afc$rowmass[debet:nrow(tablechi)]
+ cex.par <- eff[debet:nrow(afctable)]
}
}
if (!is.null(debet)) {
table.in <- table.in[1:(debet-1),]
tablechi <- tablechi[1:(debet-1),]
- cex.par <- afc$rowmass[1:(debet-1)]
+ cex.par <- eff[1:(debet-1)]
} else {
- cex.par <- afc$rowmass
+ cex.par <- eff
}
} else {
table.in <- table.in[debet:nrow(table.in),]
tablechi <- tablechi[debet:nrow(tablechi),]
- #cex.par <- afc$rowmass[debet:nrow(tablechi)]
+ cex.par <- eff[debet:nrow(afctable)]
}
}
-# if (over) {
-# rn <- rownames(table.in)
-# rownames(table.in) <- 1:nrow(table.in)
-# table.in <- unique(table.in)
-# rn.keep <- as.numeric(rownames(table.in))
-# rownames(table.in) <- rn[rn.keep]
-# tablechi <- tablechi[rn.keep,]
-# if (qui==0) {
-# cex.par <- cex.par[rn.keep]
-# } else {
-# cex.par <- NULL
-# }
-# }
if (do.select.nb) {
if (select.nb > nrow(table.in)) select.nb <- nrow(table.in)
row.keep <- select_point_nb(tablechi, select.nb)
}
classes <- apply(tablechi, 1, which.max)
maxchi <- apply(tablechi, 1, max)
-
+ infp <- which(is.infinite(maxchi) & maxchi > 0)
+ if (length(infp)) {
+ maxchi[infp] <- NA
+ if (!length(infp) == length(maxchi)) {
+ valmax <- max(maxchi, na.rm = TRUE)
+ } else {
+ valmax <- 8
+ }
+ maxchi[infp] <- valmax + 2
+ }
if (cex.txt) {
#row.keep <- append(row.keep, rn.keep)
#row.keep <- unique(row.keep)
cex.par <- maxchi
cex.par <- norm.vec(cex.par, tchi.min/10, tchi.max/10)
} else {
- cex.par <- NULL
+ cex.par <- rep(taillecar/10, nrow(table.in))
}
}
+if (is.null(xminmax)) {
+ xminmax <- c(min(table.in[,1], na.rm = TRUE) + ((max(cex.par)/10) * min(table.in[,1], na.rm = TRUE)), max(table.in[,1], na.rm = TRUE) + ((max(cex.par)/10) * max(table.in[,1], na.rm = TRUE)))
+ }
+ if (is.null(yminmax)) {
+ yminmax <- c(min(table.in[,2], na.rm = TRUE) + ((max(cex.par)/10) * min(table.in[,2], na.rm = TRUE)), max(table.in[,2], na.rm = TRUE) + ((max(cex.par)/10) * max(table.in[,2], na.rm = TRUE)))
+ }
if (typegraph == 0) {
- open_file_graph(fileout, width = width, height = height)
+ open_file_graph(fileout, width = width, height = height, svg = do.svg)
parcex <- taillecar/10
par(cex = parcex)
if (over) {
table.in <- table.in[order(cex.par, decreasing = TRUE),]
classes <- classes[order(cex.par, decreasing = TRUE)]
cex.par <- cex.par[order(cex.par, decreasing = TRUE)]
- table.in <- stopoverlap(table.in, cex.par=cex.par)
+ table.in <- stopoverlap(table.in, cex.par=cex.par, xlim = xminmax, ylim = yminmax)
classes <- classes[table.in[,4]]
cex.par <- cex.par[table.in[,4]]
}
- make_afc_graph(table.in, classes, clnb, xlab, ylab, cex.txt = cex.par)
+ make_afc_graph(table.in, classes, clnb, xlab, ylab, cex.txt = cex.par, xminmax = xminmax, yminmax = yminmax)
} else {