similar to: abline on heatmap

Hi, I wanted to make more than one side color bar. For example, I can make one side color bar (col1) with the following code: ----------------------------------- library(gplots) mat <- matrix(sample(1:100,40),nrow=5) class1 <- c(rep(0,4),rep(1,4)) col1 <- ifelse(class1 == 0,"blue","red") class2 <- c(rep(1,3),rep(2,5)) col2 <- ifelse(class2 ==

Hi, I am using heatmap.2 of gplots to make heatmaps of my the attached file. I am giving my code for the same .. library(gplots) x=read.table("1.txt", header=TRUE) mat=data.matrix(x) heatmap.2(mat, col=greenred(75), Rowv=TRUE, Colv=TRUE, distfun = dist, hclustfun = hclust, dendrogram = c("both"), scale = c("row"), na.rm=TRUE, trace="none",

Using the heatmap.2 function, I am trying to generate a heatmap of a 2 column x 500 row matrix of numeric values. I would like the 1st column of the matrix sorted from the highest to the lowest values - so that the colors reflected in the first column of the heatmap (top to bottom) go from red to green. After sorting the matrix (z), I tried the following command, but the data remains

Hi When I give the command: > heatmap.2(as.matrix(d),Rowv=as.dendrogram(hc.gene),Colv=FALSE,scale="row ",trace="none",col=greenred.colors(79)) The resulting heatmap has re-ordered my columns! This is time-course data, and I don't want my columns re-ordered! Note from the help: Rowv: determines if and how the _row_ dendrogram should be reordered.

The function heatmap() allows to specify row/column labels via the options labRow/labCol. From the code of heatmap(), I understand that when no labels are specified, the row/column labels (or indices) of the input matrix are taken as labels and re-ordered together with the rows and columns of the matrix before plotting, whereas labels supplied via labRow/labCol are plotted in the original order.

I would like to use gridBase to place four separate heatmaps (actually, a stripped-down heatmap.2 from ght gregmisc package that contains only the "image" part) into four different viewports. I can get the placement correct, but I keep 'losing' the previous plot. Any suggestions? Here is some quick example code trying to put a heatmap into the left viewport and then

I'm trying to display the probability space of a function and wanted to see specifically where the maximum posterior probability is. data=read.table("PosteriorData",header=F) mat=as.matrix(data) heatmap.2(mat/max(mat,na.rm=T),dendrogram=c("none"),trace=c("none"), Rowv=F,Colv=F,labRow=3*c(10:-10),labCol=3*c(-10:10),symm=T,col=rainbow(100)) As the

Dear All, There might be a bug in heatmap(): x <- matrix(rnorm(10*5), 10, 5) heatmap(x, labCol=1:5) Error in axis(1, 1L:nc, labels = labCol, las = 2, line = -0.5, tick = 0, : 'at' and 'labels' lengths differ, 5 != 10 Works fine under 4.0.1. Looking at the code from 4.0.1 vs. Rdevel, esp. this part sticks out: labRow <- labRow[rowInd] %||% rownames(x) %||%

Hello All, I have a simple question based on how things are labeled on my heat map; particularly, there is this annoying "X" that appears before the numeric value of all the labels of my columns. Let's say I have the following silly data, stored in "temp.txt" 1905 1910 1950 1992 2011 2020 Gnat 0.08 0.29 0.29 0.37 0.39 0.43 Snake

Hi I made heatmap of QTL based on Lod score. Where I have traits in columns and marker data (rows). I can not cluster both column and rows as I need the right order for marker data. Can someone suggest me better way of generating heatmaps especially the colour key I want to select to visualize the results which are more interesting to look at. > library(gplots) >

Hi, I'm trying to save heatmaps as PDFs. However, the PDF version of the heatmaps (Heatmap_CAFvsTNF_run2.pdf) is blurred when compared to its counterpart, which was saved manually by using the software "Grab" (Heatmap_CAFvsTNF_run2.tiff). -----R code-------- sample_output <- "stroma_run2" filename <-

Dear R Community, I am trying to create an heatmap for the following set of data: ##example of data matrix o4 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 green 27 28 29 29 28 28 26 25 25 23 23 22 22 21 21 22 22 22 yellow 6 8 8 7 7 7 6 6 6 7 7 7 6 6 6 6 6 5 red 15 15 15 15 15 15 14 13 12 11 12 10 9 8 7 6 8 9 pink

I have written a wrapper for heatmap.2 called heatmap.w.row.and.col.clust which auto-generates breaks using breaks<-round((c(seq(from=(-20 * stddev), to=(20 * stddev))))/20, digits = 2) #(stddev in this case = 2.5) This has always worked well in the past but now I am getting an error that non-finite breaks are being generated. Drilling down, it seems that my wrapper is generating finite

Hey, I am still working on my heat map (for those who are read my previous post about row.names)… Now, I would like to save my heat map.2 in .png or .tiff in order being able to work on the picture in photoshop, but it doesn't work. I'am using (as I have found on some forum) > png("heatmap.2.png) # and it just doesn't work. when I try doing it with::

Dear All: I tried to use heatmap.2 to generate hierarchical clustering using the following command: heatmap.2(datamatrix, scale="row", trace="none", col=greenred(256), labRow=genelist[,1], margins=c(10,10), Rowv=TRUE, Colv=TRUE) datamatrix is subset of a RMA normalized data subset by a genelist. The problem is a lot of times, the z-score in key are from, like -5 to 15 or

Hi folks, I am wondering if the following is possible: I want to control the arguments sent to a function by string variables. For example, instead of > heatmap.2( A, col=greenred(75) ) I would want to have something like: > heatmap.2 ( paste(A, "col=greenred(75)", sep=",") ) Is this possible to do that? Thanks, D.

Hi, I am drawing a heat map using gplots of R package. The file (new4) is having values 0 and 1 only. library(gplots) library(marray) x=read.table("new4", header=TRUE) mat=data.matrix(x) heatmap.2(mat, col=colorRampPalette(c("black","red"))(256), #col=greenred(75), Rowv=TRUE, Colv=TRUE, distfun = dist, hclustfun = hclust, dendrogram = c("row"), scale =

Hi, I have been trying to add labels to the rows of a heatmap produced using image() function. It is simply not working. Here is what I did. A2Rplot.hclust(hcc,k=length(num),col.up="black",col.down=num,lty.up=2,lty.down=1,lwd.up=1,lwd.down=2,show.labels=FALSE) #used the above external program to create a colored dendrogram xsort <- x[1:nrow(x), hcc$labels[hcc$order]]

I am using heatmap with the arguments below. The title size stays the same no matter what I set cex.main to. Is this expected? Can I adjust the title size in heatmap? Also, the position of the main title is at the very upper edge of the output and if I use a "\n" to stack the title the upper line is out of bounds and doesn't show up. I am outputting to pdf. Any help? Thanks,

Hi, Can anyone tell me how to set Z-score according to my own requirement as the below code is taking as per the file entries. Any help would be appreciable. library(gplots) x=read.table("final.txt", header=TRUE) mat=data.matrix(x) heatmap.2(mat, col=colorRampPalette(c("green","white","red"))(256), #col=greenred(75), Rowv=TRUE, Colv=FALSE, distfun = dist,