Mercurial > repos > mnhn65mo > butterfly_analysis
changeset 7:22813beb2fa8 draft
Uploaded
| author | mnhn65mo |
|---|---|
| date | Mon, 13 Aug 2018 10:06:35 -0400 |
| parents | a3260d4f7868 |
| children | 73d80db53ecc |
| files | butterfly_crossplot.R |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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() }