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.
