[R] [lattice xyplot] Help needed in help in customizing the panel.abline() function

[Girish A.R.]

Hi folks,

I need some help in customizing the abline() function to be used in a
lattice plot. I have attached a reproducible example below. 

I need help in the following snippet:
disc <- xyplot(cnt_gt50pct_disc ~ week_num|sku_num, data=DF,type =
"h",lwd=2,panel = function(...) {
           panel.abline(v = 8, lty = 2)
           panel.xyplot(...)
       })

Is there a way I can give panel.abline() input from a which.max() function?
Essentially I need the vertical line to be drawn at the week_num
corresponding to the max (cnt_gt50pct_disc). 

Thanks in advance,

-Girish 

===========================================
Lines <- "sku_num week_num    pct_inv_left    cnt_gt50pct_disc
1   1   99.88   47
1   2   99.54   109
1   3   98.7    260
1   4   97.83   202
1   5   96.53   389
1   6   94.11   450
1   7   90.42   459
1   8   86.63   448
1   9   83.39   411
1   10  77  478
1   11  71.65   476
1   12  67.3    463
1   13  62.45   472
1   14  52.47   488
1   15  40.86   486
1   16  31.34   484
1   17  23.2    472
1   18  17  458
1   19  12.66   423
1   20  10.18   364
1   21  7.6 343
1   22  3.09    343
1   23  1.05    211
2   1   99.94   30
2   2   99.4    151
2   3   98.85   146
2   4   97.92   274
2   5   97.03   204
2   6   95.59   378
2   7   92.81   452
2   8   89.07   470
2   9   85.11   454
2   10  81.68   421
2   11  75.34   479
2   12  70.05   476
2   13  66.11   456
2   14  61.85   465
2   15  53.2    485
2   16  42.75   486
2   17  33.58   481
2   18  25  477
2   19  18.13   450
2   20  12.97   416
2   21  10.03   343
2   22  7.03    293
2   23  2.33    283
2   24  0.77    116
"

DF <- read.table(con<- textConnection(Lines), skip = 1);
names(DF) <- scan(textConnection(Lines), what = "", nlines = 1) ;
close(con); 

require(latticeExtra)
DF$sku_num <- as.factor(DF$sku_num)
disc <- xyplot(cnt_gt50pct_disc ~ week_num|sku_num, data=DF,type =
"h",lwd=2,panel = function(...) {
           panel.abline(v = 8, lty = 2)
           panel.xyplot(...)
       })
sales <- xyplot(pct_inv_left  ~ week_num|sku_num, data=swtop16,type =
"l",lwd=2,panel = function(...) {
           panel.abline(h = 75, lty = 2)
           panel.xyplot(...)
       })
doubleYScale(disc, sales, style1 = 0, style2 = 2, add.ylab2 = TRUE,text =
c("# stores with gt 50pct disc", "% Unsold"))
-- 
View this message in context: http://r.789695.n4.nabble.com/lattice-xyplot-Help-needed-in-help-in-customizing-the-panel-abline-function-tp3079656p3079656.html
Sent from the R help mailing list archive at Nabble.com.