Hi:
Try the following - the illustration below is for exactly one set of
panel plots. Adapt as necessary to your situation:
# Reorder the levels of subject - in this case I put them in a new variable
MyData$subj <- factor(MyData$Subj, levels = c(paste('S', 1:13, sep = '')))
xyplot(value ~ Time | subj, data = MyData, as.table = TRUE,
layout = c(3, 4), aspect = 'xy', type = c('g', 'p', 'r'),
drop.unused.levels=TRUE, xlab = 'Time')
as.table = TRUE starts the panel order from the upper left rather than
the lower left.
HTH,
Dennis
On Thu, Jun 9, 2011 at 4:00 AM, Vijayan Padmanabhan
<v.padmanab...@itc.in> wrote:
> Dear R Group
> I have the following data for which I am trying to create subject wise
> lattice plot for a given attribute and product .
> though the lattice plot is generated, for some reasons that i dont
> understand in each plot the subject panels take a random order, I would
> rather want all the plots to display the subject order in the same order
> as how i have ordered this particular factor level.
>
> Would appreciate if someone would provide me the parameter that i need to
> pass to the xyplot function of library(lattice) to get this sorted out.
>
>
> ##the data for illustrative purpose..is as follows:
>
> MyData<- structure(list(Subj = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 3L,
> 3L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 9L, 9L, 9L, 9L, 9L, 9L, 9L,
> 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 4L, 4L, 4L,
> 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 7L, 7L, 7L, 7L, 7L,
> 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 11L, 11L, 11L, 11L,
> 11L, 11L, 11L, 11L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L,
> 5L, 5L, 5L, 5L, 5L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L,
> 8L, 8L, 8L, 8L, 8L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 3L,
> 3L, 3L, 3L, 3L, 3L, 3L, 3L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 9L,
> 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L,
> 10L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 6L, 6L, 6L, 6L, 6L, 6L,
> 6L, 6L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L,
> 10L, 10L, 10L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L,
> 5L, 5L, 5L, 5L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L,
> 8L, 8L, 8L, 8L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 4L, 4L,
> 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 7L, 7L,
> 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 11L,
> 11L, 11L, 11L, 11L, 11L, 11L, 11L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
> 3L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 9L, 9L, 9L, 9L, 9L, 9L, 9L,
> 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L), .Label = c("S1",
> "S10", "S11", "S12", "S13", "S3", "S4", "S5", "S6", "S8", "S9"
> ), class = "factor"), Product = structure(c(1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("a",
> "b"), class = "factor"), Arm = structure(c(1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("L",
> "R"), class = "factor"), Attribute = structure(c(1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("AttriA",
> "AttriB"), class = "factor"), Time = structure(c(1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L,
> 4L, 5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), .Label = c("T0",
> "T1", "T2", "T3", "T4", "T5", "T6", "T7"), class = "factor"),
> value = c(39.5527423278832, 38.2473086972328, 40.2276345888737,
> 37.5267332387073, 40.9688951303111, 39.0569778014684,
> 39.1695786007607,
> 38.9139593338983, 68.8265651458469, 72.0887495716813,
> 67.5611670846489,
> 66.9874884774268, 66.9829433510606, 54.8956638696188,
> 63.0168969989417,
> 65.6194764863213, 66.4129384714848, 66.0961638072511,
> 68.9661166309607,
> 68.7059517735383, 65.7542747314885, 65.5069438367477,
> 64.7683246003315,
> 61.4962919814996, 69.5762947663818, 73.3430582378711,
> 76.8645584330803,
> 68.2802524581975, 77.8816834151128, 74.2317212282283,
> 70.4892680115894,
> 73.5430313565372, 45.0183417657248, 48.1530494831865,
> 46.1558267920891,
> 48.6541405845911, 48.4048804759923, 48.590343912936, 44.7362547527865,
>
> 42.6373136974049, 39.9917820318598, 43.4586441692621,
> 41.6364183563171,
> 42.8906355926352, 45.5495273145838, 41.3577962405852, 41.496338708892,
>
> 40.0151968165421, 45.5648864982887, 46.2956996070121,
> 47.0280057728853,
> 50.1831679877159, 51.061682921112, 45.9831040407059, 44.9747480866787,
>
> 49.6665131229635, 54.8281039296233, 54.1930629171256,
> 54.4341268439816,
> 57.1044051058105, 56.1143459282325, 52.6161245346639,
> 52.7130458240943,
> 55.4358255649899, 47.2220107045472, 47.3389267304398,
> 46.2106468232384,
> 48.9990363616358, 46.8056280265232, 46.5981260727775,
> 46.4927574552312,
> 40.3333491167334, 62.2287823821622, 66.3810749127077,
> 67.2394807083061,
> 62.4429875125554, 69.0376706648671, 60.2812609331127, 61.455201318328,
>
> 59.9863854008917, 62.2997182356239, 68.3165884503308,
> 70.8613200740368,
> 75.5343092931554, 68.0613856491741, 67.8297794393095, 69.723445715177,
>
> 68.2294718401127, 52.8140766072603, 51.4240493093108,
> 49.1567458446157,
> 52.7574433410593, 51.8096008153661, 51.0542236981057,
> 49.1650793229206,
> 46.1961387381546, 39.3501757447082, 40.6370147384917,
> 42.6126353906914,
> 42.8371247270351, 45.6224375518759, 38.1946693028616,
> 42.6841902106385,
> 41.2891110860076, 46.5589402020299, 46.9236938185125,
> 46.7985819317017,
> 52.9563382730808, 52.7678198507564, 42.6784974818896,
> 46.0254807534733,
> 49.3617924018815, 55.0347336430881, 53.0553009508891,
> 59.1754785059011,
> 59.2551361838499, 58.7606127906148, 56.0068865579661,
> 59.7877691476509,
> 59.9894635155904, 45.8292743149289, 44.3975346123602,
> 44.0878763837905,
> 43.0034203212678, 44.7694956749990, 44.5206026642237,
> 44.1129676323369,
> 41.1441655434737, 64.502950186561, 66.2596818647181, 66.9718770730599,
>
> 68.3492812036726, 71.1329167451021, 60.993158766883, 64.0476800619917,
>
> 59.5722548586232, 69.1060115847223, 68.8225246639702,
> 71.3984976174081,
> 80.9630180588849, 73.007714590984, 65.7790674687866, 68.8673355306755,
>
> 66.8813383526656, 40.0423309528637, 44.1216443512537,
> 41.9734395557559,
> 44.8434380300801, 43.7494322571724, 43.3183356186337,
> 45.5420445201619,
> 42.5147260103379, 68.7745002341477, 61.981198669435, 61.7864827933066,
>
> 60.3458594826638, 59.9697661699882, 53.9643718467014,
> 59.1755018103991,
> 59.2276568453173, 62.7915792989106, 71.0620731987689,
> 72.2036228167234,
> 70.9247270575656, 67.1627603989188, 69.8883404495198,
> 63.0049593358823,
> 64.8912785345249, 68.8781924408982, 74.137601748426, 75.2732261184303,
>
> 71.669750963672, 74.4341280041274, 76.2382402210529, 69.7026459277572,
>
> 76.5074726515534, 29.2874363361783, 27.2892266662294,
> 29.5616488492521,
> 29.6852458522043, 30.5496200171305, 29.9966252445121,
> 29.1288540248101,
> 27.4806129668759, 33.5863501946243, 30.4931479044075,
> 29.5862807824957,
> 34.9382017751209, 35.238424232798, 29.4052475587535, 33.0798423075101,
>
> 31.3567180682194, 33.4690209827123, 30.6523035293150,
> 32.6208075805269,
> 33.9407265800815, 31.0650808724465, 36.7534951846668,
> 34.6967011594745,
> 31.9567044598027, 44.5158738295474, 40.4690204233383,
> 38.0597778223743,
> 37.8034937870776, 35.1720350896499, 39.8550085954103,
> 34.9099191361032,
> 42.0149439902365, 26.2151235666232, 23.5679852219729,
> 24.2001786793751,
> 23.6961503280406, 23.7185784815809, 25.3066274885425,
> 24.0292003617619,
> 24.2505451653069, 27.0291768503551, 27.9586095806653,
> 27.1539912074178,
> 27.3800648825246, 27.0086310697033, 29.5006091073482,
> 27.6618986740352,
> 26.6054039275563, 26.7544589952818, 25.7739723955002,
> 24.7493173361881,
> 24.8974539247832, 26.0066344196213, 25.7242948862424,
> 24.2129429825322,
> 26.2810081950791, 32.8501876144134, 27.2087875772192,
> 22.9241752520302,
> 23.9219026236064, 27.8607929641585, 27.7779664335406,
> 25.6974359198254,
> 26.0076906518561, 28.8549852933942, 27.2116802644414,
> 28.5718875220588,
> 30.5721859479267, 29.2724683799154, 29.7833383429998,
> 29.0348479362964,
> 27.1223342602551, 32.5582746876519, 28.4460181623792,
> 30.5181241094846,
> 27.8313626195291, 36.6535660010998, 31.2270378533636,
> 30.7505338399547,
> 28.3032529970344, 32.3568559611009, 34.9553492819238,
> 35.7759456755808,
> 36.0195354653364, 38.5285002594439, 35.7380230921731,
> 37.1484588196843,
> 38.5416308644471, 24.8506692697752, 24.6343520347229,
> 23.6083195613371,
> 24.7607264684248, 22.9854229667107, 23.9036751221927,
> 24.0387963674900,
> 22.7723194255264, 30.3793074740804, 28.8639832951117,
> 28.3030690013896,
> 27.8655679757535, 29.1997887609265, 30.1487803931287,
> 29.2987532171346,
> 28.5871764431944, 24.6444755508312, 24.7330180273872,
> 23.7338446480537,
> 25.8596684061866, 26.0787857361113, 24.8953653206929,
> 23.5625674439808,
> 24.479442599818, 29.6545075345955, 25.6090083380698, 27.1114528433399,
>
> 29.5090563448938, 31.455338578686, 31.5408279032055, 32.0051421579701,
>
> 33.4618122321904, 27.4889692245983, 25.5464291578372,
> 24.5476688346391,
> 25.2081446883923, 26.3672783411296, 25.6265928833026,
> 27.1950139669246,
> 27.130001618485, 28.6347421265670, 26.7649268696797, 28.0626929191564,
>
> 30.4520327581967, 30.4717296368313, 29.8812011276167,
> 30.4064647569007,
> 30.7831770362286, 37.7827415537242, 35.0879233395691,
> 34.7668091883955,
> 37.3427148382295, 38.3775395012458, 36.7485828173724, 38.193636145425,
>
> 34.5786595343394, 28.6171348871096, 27.9470627780942,
> 29.8327633149340,
> 29.6097653173267, 30.0836756702669, 31.0359954571051,
> 31.0662062327447,
> 28.8585430558031, 29.7252130104938, 26.5553131151419,
> 28.0655400327958,
> 28.7575356242266, 28.3515991163835, 26.4610318654439,
> 27.2362207214083,
> 28.0005735091048, 29.1041755824943, 29.5347668690827,
> 32.1870020976934,
> 31.1451531051784, 25.2860128452551, 29.1578475612553,
> 27.0033058437616,
> 24.4368356738120, 39.7697712026109, 35.1675811365275,
> 32.1336514906396,
> 35.5524206935849, 33.5035236183325, 34.2439798004073,
> 33.6508805746601,
> 33.8661875340464)), .Names = c("Subj", "Product", "Arm",
> "Attribute", "Time", "value"), row.names = c(NA, 352L), class =
> "data.frame")
>
>
> ## Here is the code to create lattice plot subject wise, for each
> attribute and product from the study..
> ##This code creates a pdf file output of all plots and saves the file in
> the destination given.
>
> library(lattice)
> Attributeindata<-levels(MyData$Attribute)
> productindata<-levels(MyData$Product)
> pdf(file="D:/Test/latticeplotsbysubject.pdf")
> for(i in 1:length(Attributeindata))
> {
> for(j in 1:length(productindata))
> {
> print(xyplot(value ~ Time | Subj,
> data=subset(MyData,Attribute==Attributeindata[i] & Product=="b"),layout =
> c(6,3), aspect = "xy",, type = c("g", "p",
> "r"),drop.unused.levels=TRUE,index.cond = function(x,y) coef(lm(y ~
> x))[1],ylab = paste("value of",Attributeindata[i],"for
> Product",productindata[j]),
> xlab = "Time",))
> }
> }
>
>
> ##On examining the pdf file, you wil find that the order of subjects as
> appearing in each page of plot is different.
> ## I would want the order of subjects to appear in the same order as
> ##follows: "S1","S3","S4","S5","S6","S8","S9","S10","S11", "S12","S13"
> ##I have tried reorder function on the factor level "Subj" but it does not
> give the desired result.
>
> Any help in modifying the code above to meet the requirement would be
> highly appreciated.
>
> Thanks & Regards
> Vijayan Padmanabhan
>
>
> "What is expressed without proof can be denied without proof" - Euclide.
>
> Please visit us at www.itcportal.com
> ******************************************************************************
> This Communication is for the exclusive use of the intended recipient (s) and
> shall
> not attach any liability on the originator or ITC Ltd./its Subsidiaries/its
> Group
> Companies. If you are the addressee, the contents of this email are intended
> for your use only and it shall not be forwarded to any third party, without
> first obtaining written authorisation from the originator or ITC Ltd./its
> Subsidiaries/its Group Companies. It may contain information which is
> confidential and legally privileged and the same shall not be used or dealt
> with by any third party in any manner whatsoever without the specific consent
> of ITC Ltd./its Subsidiaries/its Group Companies.
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@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.
>
______________________________________________
R-help@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.
