#4198 add a text on the plot if log_scale = TRUE in plot_OutputsModel

R/plot_OutputsModel.R

@@ -174,7 +174,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
 
 
   ##Flows
-  if(BOOLPLOT_Flows & log_scale){
+  if(BOOLPLOT_Flows & log_scale) {
     kPlot <- kPlot+1; mar <- c(3,5,1,5);
     par(new=FALSE,mar=mar,las=0)
 
@@ -204,6 +204,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
       axis(side=1,at=Seq2,labels=Labels2,lwd.ticks=1.5,cex.axis=cexaxis);
     } else { axis(side=1,at=pretty(Xaxis),labels=pretty(Xaxis),cex.axis=cexaxis); }
     legend("topright",txtleg,col=colleg,lty=1,lwd=lwdLine,bty="o",bg=bgleg,box.col=bgleg,cex=cexleg)
+    legend("bottomright","log scale",lty=1,col=NA,bty="o",bg=bgleg,box.col=bgleg,cex=cexleg)
     box()
   }
   if(BOOLPLOT_Flows & !log_scale){