Commit dbcd0f7c authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Debug color order

parent 16cff460
......@@ -154,7 +154,6 @@ Plot_Visu_Boxplot <- function(input,resDiff,alpha=0.7){
VarInt = input$VisuVarInt
ind_taxo = input$selectTaxoPlot
tmp_merge = GetDataToPlot(input,resDiff,VarInt,ind_taxo,aggregate=FALSE)
counts_tmp_combined = tmp_merge$counts
levelsMod = tmp_merge$levelsMod
......@@ -201,9 +200,8 @@ Plot_Visu_Boxplot <- function(input,resDiff,alpha=0.7){
ind = which(VarInt%in%input$BoxColorBy)
dataBarPlot_mat$Colors = rapply(tmp, function(x) paste(x[ind],collapse ="-"), how = "unlist")
}
dataBarPlot_mat$Samples = factor(dataBarPlot_mat$Samples,levels=levelsMod)
dataBarPlot_mat$Colors = factor(dataBarPlot_mat$Colors,levels=levelsMod)
gg = ggplot(dataBarPlot_mat,aes(x=Samples,y=Value,fill=Colors)) + geom_boxplot(alpha=alpha) +theme_bw()
gg = gg +theme(axis.text=element_text(size=16,face="bold"),axis.title=element_text(size=18,face="bold"),panel.background = element_blank(),
panel.grid.major = element_blank(),panel.grid.minor = element_blank(), axis.title.x=element_blank(), axis.text.x = element_text(angle = 90, hjust = 1,vjust=0.5))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment