Aes for trend name

0e2c036f · Heraut Louis · 46dc7437 · 0e2c036f
Commit 0e2c036f authored 3 years ago by Heraut Louis
Hide whitespace changes
Inline Side-by-side

Showing

with 6 additions and 2 deletions
+6 -2
--- a/plotting/panel.R
+++ b/plotting/panel.R
@@ -174,6 +174,8 @@ time_panel = function (df_data_code, df_trend_code, type, p_threshold=0.1, missR
        
        ltype = c('solid', 'dashed', 'dotted', 'twodash')
        lty = c('solid', '22')
+        
+        ii = 0
        for (i in 1:nPeriod) {

            df_trend_code_per = 
@@ -182,6 +184,8 @@ time_panel = function (df_data_code, df_trend_code, type, p_threshold=0.1, missR

            if (df_trend_code_per$p <= p_threshold) {

+                ii = ii + 1
+
                iStart = which.min(abs(df_data_code$Date - Start[i]))
                iEnd = which.min(abs(df_data_code$Date - End[i]))

@@ -210,11 +214,11 @@ time_panel = function (df_data_code, df_trend_code, type, p_threshold=0.1, missR
                codeDate = df_data_code$Date
                codeQ = df_data_code$Qm3s
                
-                x = gpct(3, codeDate, shift=TRUE)
+                x = gpct(2, codeDate, shift=TRUE)
                xend = x + gpct(3, codeDate)
               
                dy = gpct(5, codeQ, ref=0)
-                y = gpct(108, codeQ, ref=0) - (i-1)*dy
+                y = gpct(105, codeQ, ref=0) - (ii-1)*dy

                xt = xend + gpct(1, codeDate)
                label = bquote(bold(.(format(df_trend_code$trend, scientific=TRUE, digits=3)))~'['*m^{3}*'.'*s^{-1}*'.'*an^{-1}*']')