[R] add outer strip for levels in lattice plot (useOuterStrips alternative for Lattice)
Luigi Marongiu
marongiu.luigi at gmail.com
Sun Jul 12 00:55:54 CEST 2015
Dear Duncan,
I tried the solution you indicated in the previous message but I am
still obtaining the error length(dimx) == 2 is not TRUE. Assuming that
the dataframe is working (it does work on my machine), I added the
useOuterStrips bit as you showed:
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 | 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
)
)
WHere am I getting it wrong?
Best regards
Luigi
On Thu, Jul 9, 2015 at 11:36 AM, Duncan Mackay <dulcalma at bigpond.com> wrote:
> Hi Luigi
>
> If you wanted to add some text you could use grid.text from the grid package
>
> I use it regularly for annotating
>
> See also
> https://stat.ethz.ch/pipermail/r-help/2005-February/066264.html
>
> https://stat.ethz.ch/pipermail/r-help/2005-April/069456.html
>
>
>
> Duncan
>
> -----Original Message-----
> From: Luigi Marongiu [mailto:marongiu.luigi at gmail.com]
> Sent: Thursday, 9 July 2015 19:01
> To: Duncan Mackay
> Subject: Re: [R] add outer strip for levels in lattice plot (useOuterStrips alternative for Lattice)
>
> Dear Duncan,
> funny this deviation of the variables outcomes. yesterday when i wrote
> the script it worked fine and even today when i loaded it on rstudio
> at work i obtained:
> Cycle num[1:540]
> Line num[1:540]
> Rn num[1:540]
> Target chr[1:540]
> Well num[1:540]
> my.data 540 obs. of 4 variables
> and the call for my.data returned a proper dataframe.
> I did not write lattice_Extra but "latticeextra's useOuterStrips()"
> [forgot to capitalize the second E].
> I'll try your suggestion, but essentially wouldn't be possible to
> write some text on the top and left portions of the xyplot graph using
> some "text" function within lattice itself without having to call
> latticeExtra?
> Many thanks
> regards
> Luigi
>
>
> On Thu, Jul 9, 2015 at 3:56 AM, Duncan Mackay <dulcalma at bigpond.com> wrote:
>> 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