- make_afc_graph(table.in, classes, clnb, xlab, ylab, cex.txt = cex.par)
-
-} else {
-
- vire.nonascii <- function(rnames) {
- print('vire non ascii')
- couple <- list(c('é','e'),
- c('è','e'),
- c('ê','e'),
- c('ë','e'),
- c('î','i'),
- c('ï','i'),
- c('ì','i'),
- c('à','a'),
- c('â','a'),
- c('ä','a'),
- c('á','a'),
- c('ù','u'),
- c('û','u'),
- c('ü','u'),
- c('ç','c'),
- c('ò','o'),
- c('ô','o'),
- c('ö','o'),
- c('ñ','n')
- )
- for (c in couple) {
- rnames<-gsub(c[1],c[2], rnames)
+ 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.out <- stopoverlap(table.in, cex.par=cex.par, xlim = xminmax, ylim = yminmax)
+ table.in <- table.out$toplot
+ notplot <- table.out$notplot
+ if (! is.null(notplot)) {
+ write.csv2(notplot, file = paste(fileout,'_notplotted.csv', sep=''))
+ }
+ classes <- classes[table.in[,4]]
+ cex.par <- cex.par[table.in[,4]]
+ }
+ if (typegraph == 0) {
+ make_afc_graph(table.in, classes, clnb, xlab, ylab, cex.txt = cex.par, xminmax = xminmax, yminmax = yminmax)
+ } else {
+ dev.off()
+ require(rgexf)
+ nodes.attr <- make.afc.attributes(rownames(table.in), afc_table, afctable, clnb)
+ if (qui != 3) {
+ tokeep <- rownames(chistabletot) %%in%% rownames(table.in)
+ chis <- chistabletot[tokeep,]
+ chis<-chis[rownames(table.in),]
+ nodes.attr$chiclasse <- chis
+ } else {
+ chis <- NULL