Re: [R] 3D Plot

[Jim Lemon]

On 04/23/2010 10:51 PM, Ariane C. Böhm wrote:
Hi guys of the R-Help-Team!<br /><br />First of all - you do a great job!<br
/>I've found a lot of your mails in the internet. So I thought it would be a
good idea to ask you a question about R.<br /><br />R is new to me, so sorry,
if the question is too simple :)<br /><br />I have a matrix.<br />I can make a
2D Heatmap of this matrix.<br /><br />My question:<br />Can I also make a 3D
Heatmap of this matrix - so the third parameter should the value in the
matrix.<br /><br />My first thought was :<br />&gt; mat&lt;- read.table(file
=&quot;AvgMatrix.mat&quot;)<br />&gt; x&lt;-as.matrix(mat)<br />&gt; hv
&lt;- heatmap.2 (x, col=topo.colors, Colv = NA, Rowv = NA,
main=&quot;AvgMatrix&quot;, xlab=&quot;Columns&quot;, ylab=&quot;Rows&quot;,
key=TRUE, trace =&quot;none&quot;)<br />But that is just a 2D heatmap.<br
/><br />Thanks for your help<br /><br />Ariane<br /><br />
Hi Ariane,
The color2D.matplot function can almost do this, as there is an option 
to display the numeric values within the cells. Now with the small 
kludge of adding an extra argument:

x3=NULL

and changing the following lines:

   if(show.values)
    text(sort(rep((1:xdim[2])-0.5,xdim[1])),
     rep(seq(xdim[1]-0.5,0,by=-1),xdim[2]),
     round(x,show.values),col=vcol,cex=vcex)
  }

to this:

   if(show.values)
    if(is.null(x3)) xval<-x
    else xval<-x3
    text(sort(rep((1:xdim[2])-0.5,xdim[1])),
     rep(seq(xdim[1]-0.5,0,by=-1),xdim[2]),
     round(xval,show.values),col=vcol,cex=vcex)
  }

You may have a solution to your plotting problem.

Of course this will do nothing at all for your problem of sending HTML 
formatted messages.

Jim

______________________________________________
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.