[R] Separate ablines in lattice panels

[David Winsemius]

On Jan 17, 2012, at 1:52 PM, Doran, Harold wrote:

> It does indeed produce what I'm expecting. The input to panel.number  
> seems to require a character string, but here the function is called  
> with no argument. I am not entirely clear _why_ it works, but it  
> does seem to.

?panel.numer

Says that there is a default ... the last object printed, i.e, the one  
for which you would want its number used as an idex into your vector  
of candidate values.

-- 
David.


>
>> -----Original Message-----
>> From: David Winsemius [mailto:dwinsemius at comcast.net]
>> Sent: Tuesday, January 17, 2012 1:46 PM
>> To: Doran, Harold
>> Cc: Bert Gunter; r-help at r-project.org
>> Subject: Re: [R] Separate ablines in lattice panels
>>
>>
>> On Jan 17, 2012, at 1:34 PM, Doran, Harold wrote:
>>
>>> Thank you, Bert. The help page doesn't have a usage example and I
>>> can't seem to find one via google. Do you, or anyone else, have
>>> sample code?
>>>
>> It did not seem particularly daring or complex when I tried this
>> (which does appear to produce what was requested):
>>
>> tmp <- data.frame(var1 = c(rnorm(1000), rnorm(1000, 1, 1)), var2 =  
>> gl(2,
>> 1000))
>>
>> densityplot(~ var1|var2, tmp,
>>                              type = c('g', 'l'),
>>                              layout = c(1,2),
>>                                             panel = function(x, ...){
>>                                             panel.densityplot(x, ...)
>>                                             panel.abline(v = c(0,1)
>> [ panel.number() ])
>>                                             }
>>             )
>>
>> --
>> David.
>>
>>>> -----Original Message-----
>>>> From: Bert Gunter [mailto:gunter.berton at gene.com]
>>>> Sent: Tuesday, January 17, 2012 1:07 PM
>>>> To: Doran, Harold
>>>> Cc: r-help at r-project.org
>>>> Subject: Re: [R] Separate ablines in lattice panels
>>>>
>>>> ?panel.number
>>>>
>>>> This tells you what panel you're in and you can use that to  
>>>> determine
>>>> which line to draw.
>>>>
>>>> -- Bert
>>>>
>>>> On Tue, Jan 17, 2012 at 9:59 AM, Doran, Harold <HDoran at air.org>
>>>> wrote:
>>>>> Searched archives and found some old email threads on the topic.
>>>>> But mot
>>>> exactly what I think I need. Suppose I have a datafile such as tmp.
>>>>>
>>>>> tmp <- data.frame(var1 = c(rnorm(1000), rnorm(1000, 1, 1)), var2 =
>>>>> gl(2,
>>>> 1000))
>>>>>
>>>>> I'd like a plot similar to the one below, but with an abline of
>>>>> v=0 in the
>>>> lower panel and v=1 in the upper panel. Code below creates two
>>>> lines in each
>>>> panel, not quite sure how to separate them by panel.
>>>>>
>>>>> densityplot(~ var1|var2, tmp,
>>>>>                             type = c('g', 'l'),
>>>>>                             layout = c(1,2),
>>>>>                                            panel =
>>>>> function(x, ...){
>>>>>
>>>>> panel.densityplot(x, ...)
>>>>>                                            panel.abline(v =  
>>>>> c(0,1))
>>>>>                                            }
>>>>> )
>>>>>
>>>>> Thank you
>>>>> Harold
>>>>>
>>>>>       [[alternative HTML version deleted]]
>>>>>
>>>>> ______________________________________________
>>>>> R-help at r-project.org mailing list
>>>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>>>> PLEASE do read the posting guide http://www.R-project.org/posting-
>> guide.html
>>>>> and provide commented, minimal, self-contained, reproducible code.
>>>>
>>>>
>>>>
>>>> --
>>>>
>>>> Bert Gunter
>>>> Genentech Nonclinical Biostatistics
>>>>
>>>> Internal Contact Info:
>>>> Phone: 467-7374
>>>> Website:
>>>> http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-
>>>> biostatistics/pdb-ncb-home.htm
>>>
>>> ______________________________________________
>>> R-help at r-project.org mailing list
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>>
>> David Winsemius, MD
>> West Hartford, CT
>

David Winsemius, MD
West Hartford, CT