# HG changeset patch # User mnhn65mo # Date 1534169195 14400 # Node ID 22813beb2fa85470924818a533beaf187827c60e # Parent a3260d4f7868972e3b59e06b3e2098bbeadb75be Uploaded diff -r a3260d4f7868 -r 22813beb2fa8 butterfly_crossplot.R --- a/butterfly_crossplot.R Mon Aug 13 09:38:57 2018 -0400 +++ b/butterfly_crossplot.R Mon Aug 13 10:06:35 2018 -0400 @@ -76,9 +76,9 @@ figure_titre_f <- vec_figure_titre[f] } col_filtre_f <- vec_col_filtre[f] - cat(col_sousGroup) #Just to check + #cat(col_sousGroup) #Just to check if(func=="ggfiltre1niveau"){ - cat("ggfiltre1niveau") + #cat("ggfiltre1niveau") ggfiltre1niveau(d, col_abscisse, figure_abscisse, @@ -98,7 +98,7 @@ segmentSousSeuil, forcageMajusculeFiltre) }else if(func=="gglocal"){ - cat("gglocal") + #cat("gglocal") gglocal(d, col_abscisse, figure_abscisse, @@ -121,7 +121,7 @@ forcageMajusculeFiltre, forcageMajusculeSousGroupe) }else{ - cat("ggCompareLevel") + #cat("ggCompareLevel") ggCompareLevel(d, col_abscisse, figure_abscisse, @@ -265,9 +265,9 @@ gg <- gg + scale_colour_manual(values = figure_couleur,name = "") + scale_fill_manual(values = figure_couleur,name = "",guide=FALSE)} ggfile <- paste(nomRep,nomProtocole,"_",m,".png",sep="") - cat("Check",ggfile,":") + #cat("Check",ggfile,":") ggsave(ggfile,gg) - cat("\n") + #cat("\n") flush.console() } } @@ -390,9 +390,9 @@ else{ gg <- gg + theme(legend.justification=c(1,0), legend.position=c(1,0),legend.text = element_text(size = 7),legend.background = element_rect(fill=NA))} ggfile <- paste(nomRep,nomProtocole,"_",m,"-",p,".png",sep="") - cat("Check",ggfile,":") + #cat("Check",ggfile,":") ggsave(ggfile,gg) - cat("\n") + #cat("\n") flush.console() } } @@ -490,9 +490,9 @@ gg <- gg + theme(legend.justification=c(1,0), legend.position=c(1,0),legend.text = element_text(size = 7),legend.background = element_rect(fill=NA)) } ggfile <- paste(nomRep,nomProtocole,"_",col_filtre,"_","comparaison.png",sep="") - cat("Check",ggfile,":") + #cat("Check",ggfile,":") ggsave(ggfile,gg) - cat("\n") + #cat("\n") flush.console() }