Hi All.
I have created two, 3-D, color graphs using persp(). Z values range from 1
to 100 on the first plot, and 0.5 to 50 on the second plot.
I would like to keep the color range constant between the two graphs, rather
than each graph showing the full range of colors.
So the first graph should go from yellow to red and the second graph should
go from yellow to orange.
Below I present a simplified version of my code which was taken from one of
the examples in persp(). In the code below I could simply type
colorRampPalette(c("yellow","orange")) for the second graph,
but my actual
data is not this clean, so I am looking for a general solution to
keeping the colors consistent with z-values, rather than number of facets.
x <- 1:10
y <- 1:10
z1 <- matrix(1:100,10,10)
z2 <- matrix(seq(0.5,50,by=.5),10,10)
z <- z1
nrz <- nrow(z)
ncz <- ncol(z)
jet.colors <- colorRampPalette( c("yellow", "red") )
nbcol <- 100
color <- jet.colors(nbcol)
zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]
facetcol <- cut(zfacet, nbcol)
persp(x,y,z,col=color[facetcol], ticktype = "detailed",
phi=30,theta=30)
##### Second Graph ###
z <- z2
nrz <- nrow(z)
ncz <- ncol(z)
jet.colors <- colorRampPalette( c("yellow", "red") )
nbcol <- 100
color <- jet.colors(nbcol)
zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]
facetcol <- cut(zfacet, nbcol)
persp(x,y,z,col=color[facetcol], ticktype = "detailed",
phi=30,theta=30)
######
Thank you in advance for any advice.
Sincerely,
Tali Vardi, PhD Candidate
Scripps Institution of Oceanography
R 2.12.2 GUI 1.36 Leopard build 32-bit (5691)
--
View this message in context:
http://r.789695.n4.nabble.com/keep-color-range-constant-across-three-persp-graphs-tp3387932p3387932.html
Sent from the R help mailing list archive at Nabble.com.
[[alternative HTML version deleted]]
