[R] add outer strip for levels in lattice plot (useOuterStrips alternative for Lattice)
Duncan Mackay
dulcalma at bigpond.com
Thu Jul 9 04:56:13 CEST 2015
Hi Luigi
str(my.data)
'data.frame': 540 obs. of 4 variables:
$ Line : chr "1" "2" "3" "4" ...
$ Well : chr "1" "1" "1" "1" ...
$ Target: chr "alpha" "alpha" "alpha" "alpha" ...
$ Rn : chr "0.728" "0.735" "0.749" "0.758" ...
You didnot create the data.frame properly
mydata <-
data.frame(Line=Line, Well=Well, Target=Target, Rn=Rn,Cycle= Cycle)
str(mydata)
'data.frame': 540 obs. of 4 variables:
$ Line : num 1 2 3 4 5 6 7 8 9 10 ...
$ Well : num 1 1 1 1 1 1 1 1 1 1 ...
$ Target: chr "alpha" "alpha" "alpha" "alpha" ...
$ Rn : num 0.728 0.735 0.749 0.758 0.77 0.778 0.78 0.784 0.786 0.785 ...
I was having problems with your script so I started with the basics (before I found the problem with the df)
xyplot(Rn ~ Cycle | sprintf("%2d",Well), data = mydata,
as.table = TRUE,
layout = c(6,2),
groups = Well)
You are not splitting up the data with groups being the same as the conditioning.
It can be necessary to use this setup in some cases but not this.
latticeExtra is on Cran so you can use install.packages("latticeExtra") or use the menu
I have never heard of lattice_Extra
mydata$rown <- ifelse(mydata$Well>6,2,1)
mydata$welln <- rep(1:6, 2)[sapply(mydata$Well, pmatch, 1:12)]
useOuterStrips(strip = strip.custom(factor.levels = paste("column",1:6),
par.strip.text = list(cex = 0.75)),
strip.left = strip.custom(factor.levels = paste("row", 1:2),
horizontal = FALSE,
par.strip.text = list(cex = 0.75)),
xyplot(Rn ~ Cycle | welln*rown, data = mydata,
as.table = TRUE,
layout = c(6,2)
)
) ## useOuterStrips
ps.Colours <-
c("#000000","#FF0000","#00FF00","#0000FF","#FFA54F",
"#00FFFF","#FF00FF","#C00000","#00B414","#FFD18F",
"#00B2EE","#ffe5cc","#6A5ACD","#C0C0C0","#CCCCCC",
"#6495ED","#FFFAFA")
useOuterStrips(strip = strip.custom(factor.levels = paste("column",1:6),
par.strip.text = list(cex = 0.75)),
strip.left = strip.custom(factor.levels = paste("row", 1:2),
horizontal = FALSE,
par.strip.text = list(cex = 0.75)),
xyplot(Rn ~ Cycle | welln*rown, data = mydata,
as.table = TRUE,
groups = Well,
col = ps.Colours,
layout = c(6,2)
)
) ## useOuterStrips
Duncan
-----Original Message-----
From: Luigi Marongiu [mailto:marongiu.luigi at gmail.com]
Sent: Thursday, 9 July 2015 09:22
To: Duncan Mackay; Dennis Murphy; r-help
Subject: Re: [R] add outer strip for levels in lattice plot (useOuterStrips alternative for Lattice)
In relation to this question I have prepared a workable example. First
I prepare a dataframe with three variables (Cycle, Target, Rn), then I
plot the results with lattice's xyplot(). I won't use the scales but
only the labels and the panels are NOT indicated by the variable Well.
What I would need to use are instead the vectors row.name and col.name
that can identify each column and row of the plot.
Secondly I create replicates of the row.name and col.name in order to
fit the data and create a second dataframe, then I plot using lattice
extra's useOuterStrips().
However (a) I think the call is wrong anyway, (b) I obtain "Error:
length(dimx) == 2 is not TRUE" (c) I need a package on top of lattice
(d) I might introduce errors during the creation of the second
dataframe.
The requirements remains to create a strip on the top and left side of
the plot to allocate the elements of row.name and col.name possibly
using lattice only.
Thank you for your help.
Luigi
>>>
Line<-c( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
41, 42, 43, 44, 45, 46, 47, 48, 49, 50,
51, 52, 53, 54, 55, 56, 57, 58, 59, 60,
61, 62, 63, 64, 65, 66, 67, 68, 69, 70,
71, 72, 73, 74, 75, 76, 77, 78, 79, 80,
81, 82, 83, 84, 85, 86, 87, 88, 89, 90,
91, 92, 93, 94, 95, 96, 97, 98, 99, 100,
101, 102, 103, 104, 105, 106, 107, 108, 109,
110, 111, 112, 113, 114, 115, 116, 117, 118,
119, 120, 121, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 134, 135,
136, 137, 138, 139, 140, 141, 142, 143, 144,
145, 146, 147, 148, 149, 150, 151, 152, 153,
154, 155, 156, 157, 158, 159, 160, 161, 162,
163, 164, 165, 166, 167, 168, 169, 170,
171, 172, 173, 174, 175, 176, 177, 178, 179,
180, 181, 182, 183, 184, 185, 186, 187, 188,
189, 190, 191, 192, 193, 194, 195, 196, 197,
198, 199, 200, 201, 202, 203, 204, 205,
206, 207, 208, 209, 210, 211, 212, 213, 214,
215, 216, 217, 218, 219, 220, 221, 222, 223,
224, 225, 226, 227, 228, 229, 230, 231, 232,
233, 234, 235, 236, 237, 238, 239, 240,
241, 242, 243, 244, 245, 246, 247, 248, 249,
250, 251, 252, 253, 254, 255, 256, 257, 258,
259, 260, 261, 262, 263, 264, 265, 266, 267,
268, 269, 270, 271, 272, 273, 274, 275,
276, 277, 278, 279, 280, 281, 282, 283, 284,
285, 286, 287, 288, 289, 290, 291, 292, 293,
294, 295, 296, 297, 298, 299, 300, 301, 302,
303, 304, 305, 306, 307, 308, 309, 310,
311, 312, 313, 314, 315, 316, 317, 318, 319,
320, 321, 322, 323, 324, 325, 326, 327, 328,
329, 330, 331, 332, 333, 334, 335, 336, 337,
338, 339, 340, 341, 342, 343, 344, 345,
346, 347, 348, 349, 350, 351, 352, 353, 354,
355, 356, 357, 358, 359, 360, 361, 362, 363,
364, 365, 366, 367, 368, 369, 370, 371, 372,
373, 374, 375, 376, 377, 378, 379, 380,
381, 382, 383, 384, 385, 386, 387, 388, 389,
390, 391, 392, 393, 394, 395, 396, 397, 398,
399, 400, 401, 402, 403, 404, 405, 406, 407,
408, 409, 410, 411, 412, 413, 414, 415,
416, 417, 418, 419, 420, 421, 422, 423, 424,
425, 426, 427, 428, 429, 430, 431, 432, 433,
434, 435, 436, 437, 438, 439, 440, 441, 442,
443, 444, 445, 446, 447, 448, 449, 450,
451, 452, 453, 454, 455, 456, 457, 458, 459,
460, 461, 462, 463, 464, 465, 466, 467, 468,
469, 470, 471, 472, 473, 474, 475, 476, 477,
478, 479, 480, 481, 482, 483, 484, 485,
486, 487, 488, 489, 490, 491, 492, 493, 494,
495, 496, 497, 498, 499, 500, 501, 502, 503,
504, 505, 506, 507, 508, 509, 510, 511, 512,
513, 514, 515, 516, 517, 518, 519, 520,
521, 522, 523, 524, 525, 526, 527, 528, 529,
530, 531, 532, 533, 534, 535, 536, 537, 538,
539, 540)
Well<-c( 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10,
10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
10, 11, 11, 11, 11, 11, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 12, 12, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12)
Cycle<-c( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
41, 42, 43, 44, 45, 1, 2, 3, 4, 5, 6,
7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
18, 19, 20, 21, 22, 23, 24, 25, 26, 27,
28, 29, 30, 31, 32, 33, 34, 35, 36, 37,
38, 39, 40, 41, 42, 43, 44, 45, 1, 2,
3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,
14, 15, 16, 17, 18, 19, 20, 21, 22, 23,
24, 25, 26, 27, 28, 29, 30, 31, 32, 33,
34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
44, 45, 1, 2, 3, 4, 5, 6, 7, 8, 9,
10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
40, 41, 42, 43, 44, 45, 1, 2, 3, 4, 5,
6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
37, 38, 39, 40, 41, 42, 43, 44, 45, 1,
2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
43, 44, 45, 1, 2, 3, 4, 5, 6, 7, 8,
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
39, 40, 41, 42, 43, 44, 45, 1, 2, 3, 4,
5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
26, 27, 28, 29, 30, 31, 32, 33, 34, 35,
36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
32, 33, 34, 35, 36, 37, 38, 39, 40, 41,
42, 43, 44, 45, 1, 2, 3, 4, 5, 6, 7,
8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
18, 19, 20, 21, 22, 23, 24, 25, 26, 27,
28, 29, 30, 31, 32, 33, 34, 35, 36, 37,
38, 39, 40, 41, 42, 43, 44, 45, 1, 2, 3,
4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
45, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
41, 42, 43, 44, 45)
Target <-c(
rep("alpha",45),
rep("beta", 45),
rep("gamma", 45),
rep("delta", 45),
rep("epsilon", 45),
rep("zeta", 45),
rep("eta", 45),
rep("theta", 45),
rep("iota", 45),
rep("kappa", 45),
rep("lamba", 45),
rep("mu", 45)
)
Rn<-c( 0.728, 0.735, 0.749, 0.758, 0.77, 0.778,
0.78, 0.784, 0.786, 0.785, 0.786, 0.786, 0.785,
0.785, 0.784, 0.783, 0.784, 0.786, 0.786, 0.787,
0.789, 0.786, 0.784, 0.786, 0.786, 0.785, 0.784,
0.785, 0.786, 0.784, 0.784, 0.78, 0.781, 0.779,
0.78, 0.78, 0.78, 0.781, 0.781, 0.78, 0.78,
0.781, 0.781, 0.78, 0.781, 0.695, 0.712, 0.751,
0.784, 0.81, 0.831, 0.852, 0.867, 0.877, 0.889,
0.896, 0.902, 0.908, 0.912, 0.912, 0.915, 0.919,
0.916, 0.918, 0.92, 0.917, 0.914, 0.917, 0.914,
0.914, 0.913, 0.913, 0.91, 0.908, 0.906, 0.902,
0.9, 0.901, 0.897, 0.896, 0.895, 0.896, 0.892,
0.89, 0.889, 0.89, 0.888, 0.889, 0.885, 0.886,
1.701, 1.702, 1.69, 1.678, 1.666, 1.65, 1.642,
1.632, 1.623, 1.616, 1.605, 1.598, 1.591, 1.582,
1.575, 1.568, 1.561, 1.556, 1.553, 1.549, 1.546,
1.541, 1.536, 1.531, 1.529, 1.526, 1.524, 1.522,
1.52, 1.517, 1.516, 1.514, 1.512, 1.512, 1.509,
1.509, 1.506, 1.505, 1.505, 1.508, 1.513, 1.508,
1.506, 1.507, 1.503, 0.761, 0.774, 0.797, 0.817,
0.833, 0.844, 0.85, 0.856, 0.864, 0.867, 0.869,
0.873, 0.874, 0.875, 0.873, 0.872, 0.872, 0.87,
0.866, 0.865, 0.864, 0.864, 0.86, 0.857, 0.855,
0.852, 0.851, 0.849, 0.845, 0.843, 0.842, 0.84,
0.835, 0.833, 0.83, 0.827, 0.825, 0.826, 0.824,
0.821, 0.82, 0.818, 0.817, 0.816, 0.813, 0.982,
0.988, 0.998, 1.009, 1.015, 1.018, 1.021, 1.023,
1.023, 1.02, 1.016, 1.015, 1.009, 1.005, 1.003,
1, 0.995, 0.989, 0.985, 0.981, 0.975, 0.969,
0.964, 0.96, 0.956, 0.952, 0.948, 0.944, 0.94,
0.935, 0.932, 0.927, 0.924, 0.921, 0.918, 0.915,
0.91, 0.907, 0.904, 0.901, 0.898, 0.896, 0.892,
0.889, 0.888, 1.14, 1.133, 1.117, 1.105, 1.096,
1.086, 1.074, 1.063, 1.052, 1.042, 1.033, 1.024,
1.015, 1.006, 0.999, 0.993, 0.987, 0.982, 0.975,
0.969, 0.965, 0.96, 0.955, 0.952, 0.947, 0.944,
0.943, 0.939, 0.935, 0.933, 0.93, 0.927, 0.925,
0.921, 0.919, 0.919, 0.917, 0.917, 0.915, 0.912,
0.912, 0.912, 0.909, 0.907, 0.907, 1.304, 1.31,
1.325, 1.338, 1.349, 1.355, 1.359, 1.36, 1.361,
1.362, 1.359, 1.353, 1.344, 1.335, 1.331, 1.323,
1.315, 1.308, 1.3, 1.292, 1.284, 1.276, 1.268,
1.262, 1.256, 1.25, 1.245, 1.241, 1.234, 1.228,
1.222, 1.216, 1.213, 1.208, 1.205, 1.2, 1.197,
1.192, 1.189, 1.186, 1.184, 1.182, 1.181, 1.178,
1.178, 0.802, 0.801, 0.801, 0.8, 0.799, 0.797,
0.794, 0.791, 0.785, 0.781, 0.777, 0.772, 0.766,
0.76, 0.756, 0.753, 0.751, 0.746, 0.742, 0.739,
0.735, 0.732, 0.728, 0.726, 0.725, 0.722, 0.718,
0.717, 0.716, 0.715, 0.71, 0.709, 0.711, 0.71,
0.709, 0.709, 0.709, 0.709, 0.708, 0.709, 0.71,
0.71, 0.711, 0.711, 0.712, 1.209, 1.206, 1.204,
1.202, 1.197, 1.186, 1.175, 1.165, 1.154, 1.143,
1.133, 1.12, 1.11, 1.105, 1.098, 1.091, 1.085,
1.078, 1.072, 1.067, 1.063, 1.054, 1.049, 1.048,
1.04, 1.036, 1.033, 1.029, 1.027, 1.024, 1.021,
1.019, 1.017, 1.013, 1.01, 1.008, 1.006, 1.005,
1.004, 1.002, 1.002, 1.001, 1, 0.998, 0.995,
2.936, 2.942, 2.946, 2.951, 2.956, 2.956, 2.968,
2.964, 2.953, 2.945, 2.939, 2.929, 2.919, 2.909,
2.902, 2.893, 2.882, 2.871, 2.857, 2.847, 2.835,
2.825, 2.819, 2.806, 2.795, 2.787, 2.781, 2.766,
2.761, 2.752, 2.749, 2.74, 2.731, 2.722, 2.718,
2.711, 2.705, 2.7, 2.693, 2.69, 2.686, 2.676,
2.672, 2.668, 2.667, 1.032, 1.033, 1.031, 1.033,
1.031, 1.029, 1.025, 1.02, 1.019, 1.016, 1.012,
1.008, 1.007, 1.011, 1.015, 1.032, 1.068, 1.124,
1.209, 1.327, 1.472, 1.632, 1.8, 1.971, 2.14,
2.302, 2.459, 2.612, 2.754, 2.886, 3.008, 3.122,
3.218, 3.306, 3.39, 3.472, 3.547, 3.613, 3.674,
3.731, 3.772, 3.81, 3.84, 3.86, 3.882, 0.808,
0.808, 0.808, 0.807, 0.805, 0.804, 0.802, 0.801,
0.798, 0.796, 0.794, 0.79, 0.788, 0.785, 0.781,
0.78, 0.777, 0.774, 0.772, 0.771, 0.769, 0.767,
0.767, 0.766, 0.766, 0.764, 0.764, 0.765, 0.762,
0.762, 0.76, 0.759, 0.759, 0.758, 0.758, 0.758,
0.756, 0.754, 0.754, 0.753, 0.754, 0.755, 0.753,
0.754, 0.753)
my.data <- as.data.frame(cbind(Line, Well, Target, Rn))
L <- c(6,2)
row.name <- c("A", "B")
col.name <- 1:6
library("lattice")
xyplot(Rn ~ Cycle | Well,
data = my.data,
groups = Well,
ylab= "Y axis",
xlab="X axis",
main="Title",
scales = list(
x = list(draw = FALSE),
y = list(draw = FALSE),
relation="same"
),
as.table = TRUE,
layout = L,
par.settings = list(
strip.background=list(col="white"),
axis.text = list(cex = 0.6),
par.xlab.text = list(cex = 0.75),
par.ylab.text = list(cex = 0.75),
par.main.text = list(cex = 0.8),
superpose.symbol = list(pch = ".", cex = 1)
),
strip = FALSE,
type = "l",
col = 3,
panel = panel.superpose
)
ROW <- c(rep(row.name[1], 45*6), rep(row.name[2], 45*6))
CO <- c(rep(col.name[1], 45),
rep(col.name[2], 45),
rep(col.name[3], 45),
rep(col.name[4], 45),
rep(col.name[5], 45),
rep(col.name[6], 45)
)
COL <- rep(CO,2)
new.data <- cbind(my.data, ROW, COL)
head(new.data, 200)
useOuterStrips(
xyplot(Rn ~ Cycle | Well,
data = my.data,
groups = Well,
ylab= "Y axis",
xlab="X axis",
main="Title",
scales = list(
x = list(draw = FALSE),
y = list(draw = FALSE),
relation="same"
),
as.table = TRUE,
layout = L,
par.settings = list(
strip.background=list(col="white"),
axis.text = list(cex = 0.6),
par.xlab.text = list(cex = 0.75),
par.ylab.text = list(cex = 0.75),
par.main.text = list(cex = 0.8),
superpose.symbol = list(pch = ".", cex = 1)
),
strip = FALSE,
type = "l",
col = 3,
panel = panel.superpose
),
c(ROW,COL))
On Tue, Jul 7, 2015 at 12:19 AM, Duncan Mackay <dulcalma at bigpond.com> wrote:
> Hi Luigi
>
> Not exactly sure what you want
>
> Have a look at
> https://stat.ethz.ch/pipermail/r-help/2007-May/132785.html
> and
> https://stat.ethz.ch/pipermail/r-help/2007-July/135551.html
>
> otherwise have a look at ?trellis.focus and
> https://stat.ethz.ch/pipermail/r-help/2006-July/109585.html
>
> failing that ?gridRect and ?gridText from library(grid)
>
> Regards
>
> Duncan
>
> Duncan Mackay
> Department of Agronomy and Soil Science
> University of New England
> Armidale NSW 2351
> Email: home: mackay at northnet.com.au
>
> -----Original Message-----
> From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Luigi
> Marongiu
> Sent: Monday, 6 July 2015 09:56
> To: r-help
> Subject: [R] add outer strip for levels in lattice plot (useOuterStrips
> alternative for Lattice)
>
> Dear all,
> I would like to add an outer strip or something like that on a lattice
> plot I am making. Such plot contains 384 cells and, since I am not
> interested in the axis values, I set:
> scales = list(
> x = list(draw = FALSE),
> y = list(draw = FALSE),
> relation="same"
> ),
> on a xyplot from the LATTICE package.
> Nevertheless there are axis labels which run like:
> ylab= "Y axis",
> xlab= "X axis",
> I would like to place some more information regarding the individual
> cells thus I would like to draw a sort of extra axis labels that are
> similar to the outer strip of the LATTICE_EXTRA package, that is
> markers placed between the axis labels and the axis values and
> centered for each cells, typically placed on the top and left sides of
> the plot. This is performed by the useOuterStrips function but:
> a) LatticeExtra is not in the CRAN repository thus I have to install
> it through a more laborious approach which makes LatticeExtra less
> direct than Lattice
> b) useOuterStrips uses information directly from the data whereas I
> will have to provide the extra information from ad hoc vectors not
> present in the data set.
>
> The question therefore is: is there a way to write text from a vector
> in the top and left corners of a lattice xyplot and place the
> individual elements at the centre of the rows and columns that compose
> the graph?
>
> Many thanks,
> Luigi
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.
>
More information about the R-help
mailing list