Commit 440096b2 authored by unknown's avatar unknown
Browse files

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

parent d1e21bbc
......@@ -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){
......
Markdown is supported
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