[R] Positioning in xyplot

[Sundar Dorai-Raj]

Michael Kubovy said the following on 4/10/2007 5:54 PM:
> On Apr 10, 2007, at 7:07 PM, Deepayan Sarkar wrote:
> 
>> On 4/10/07, Michael Kubovy <kubovy at virginia.edu> wrote:
>>> Dear R-helpers,
>>>
>>> I have an xyplot
>>>
>>> of the following kind:
>>> xYplot(y ~ x | p, groups = factor(gg, levels = c('1', '5', '2', '4',
>>> '3')),
>>>         strip = strip.custom(var.name = 'g', factor.levels = c(1',  
>>> '5', '2',
>>> '4', '3'),
>>>                 strip.levels = T, strip.names = T, sep = ' = ',  
>>> shingle.intervals =
>>> NULL),
>>>         data = df, type = 'b', label.curves = F, layout = c(2, 3),
>>>         )
>>>
>>> Currently this puts the panels as follows
>>>
>>> 3
>>> 2  4
>>> 1  5
>>>
>>> I need:
>>>
>>>    3
>>> 2   4
>>> 1   5
>>>
>>> How can I do this? Any help will be much appreciated.
>> I don't understand what you mean. If you meant this:
>>
>>
>>    +---+
>>    |   |
>> +---+---+
>> |   |   |
>> +---+---+
>> |   |   |
>> +---+---+
>>
>> then see Sundar's answer. If you meant this:
>>
>>  +---+
>>  |   |
>> +-+---+-+
>> |   |   |
>> +---+---+
>> |   |   |
>> +---+---+
>>
>> then you are out of luck (unless you are willing to do some low  
>> level coding).
> 
> I guess I'm out of luck (I understood your two figures after turning  
> them into fixed width font). At least you put me out of *this*  
> misery. Thanks so much,
> 
> Michael
> _____________________________
> Professor Michael Kubovy
> University of Virginia
> Department of Psychology
> USPS:     P.O.Box 400400    Charlottesville, VA 22904-4400
> Parcels:    Room 102        Gilmer Hall
>          McCormick Road    Charlottesville, VA 22903
> Office:    B011    +1-434-982-4729
> Lab:        B019    +1-434-982-4751
> Fax:        +1-434-982-4766
> WWW:    http://www.people.virginia.edu/~mk9y/
> 
> 
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at stat.math.ethz.ch 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.


Seems like you may get a workaround (albeit kludgey) by using 
?print.trellis. Here's another example:

library(lattice)
z <- expand.grid(x = 1:10, p = 1:5, r = 1:10)
z$y <- rnorm(nrow(z))
z$p <- factor(z$p, levels = c(1, 5, 2, 4, 3))
bot <- xyplot(y ~ x | p, z, groups = r,
               layout = c(2, 2), type = "l",
               scales = list(alternating = 1),
               subset = p != 3)
top <- xyplot(y ~ x | p, z, groups = r,
               type = "l", xlab = "",
               scales = list(alternating = 2),
               subset = p == 3)

print(bot, c(0, 0, 1, 11/16))
print(top, c(1/5, 7/12, 4/5, 1), newpage = FALSE)

--sundar