Hi:
Here is simplified example of what I am having trouble with:
I want to set the gray shade of the background of each panel of a
xyplot with its mean.
My aim is to be able to compare at a glance which panel has the highest mean.
But, in order to achieve this I have to normalize the means between 0 and 1.
The normalization is necessary to stay within the valid range for the
gray() command.
I can’t figure out how to do it :-(
Here is an example where I use max(Oats$yield) (the all around maximum
value) to normalize.
Note that what I am looking for is an expression what would mean
something like this as max(<mean of every panel>)
# Start Example, just copy and paste
data(Oats, package = "MEMSS")
tp1.oats <- xyplot(yield ~ nitro | Variety + Block,
data = Oats,
panel = function(x, y, subscripts, ...) {
# How to normalize my heatmap metric with
# the value of the panel that has maximum
average ?
# metric = eval(mean(y)/
max(<mean-of-each-panel>)))))
metric = eval(mean(y)/max(Oats$yield))
panel.fill(col = gray(metric))
panel.lines(x,y)
}
)
print(tp1.oats)
# End Example
Does anybody have any suggestion how I can get max(<mean-of-each-panel>) ?
Thanks
PS: Deepayan THANKS to your reply to my previous email it was exactly
what I needed.
______________________________________________
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.
