Displaying 3 results from an estimated 3 matches for "heatbrk".
2011 Jul 29
2
problems with image.plot()
Hi all,
I used image.plot() to create a heat map of a matrix:
as.matrix(read.table("Matrix.txt", sep="\t"))->x
HeatBrk<-seq(5,25,2.5)
MyCol= gray((7:0)/7)
library(fields)
image.plot(x, col=MyCol, breaks=HeatBrk, legend.shrink=0.3)
dev.copy(device=pdf, file="HEAT4!.pdf", height=8, width=8)
dev.off()
There are a few things that I would like to do that I can't seem to find
help with online:
1) A...
2011 Aug 25
2
axes start at end of plot
...Matrix.txt", sep="\t"))->x
#the matrix is a square matrix measuring 104x104; it was too large to attach
#on left: labels are:
Side<-as.character(x[1,2:ncol(x)])
length(Side)->nS
#on bottom, labels are:
Bot<-as.character(x[2:nrow(x),1])
x[-1,-1]->x
25->x[x>=25]
HeatBrk<-seq(5,25,4)
MyCol= gray((4:0)/4)
image.plot(x, col=MyCol, breaks=HeatBrk, legend.shrink=0.3, axes = FALSE)
axis(2,las=2, at = 1:nS, label = Side, tick = TRUE)
axis(1,las=2, at = 1:nS, label = Bot, tick = TRUE)
Any help would be much appreciated.
Thanks,
Sumukh
2011 Aug 20
0
axis does not show up
...quot;, sep="\t"))->x
#on left: labels are:
Side<-as.character(x[1,2:ncol(x)])
length(Side)->nS
#on bottom, labels are:
Bot<-as.character(x[2:nrow(x),1])
#remove first row and column (they're labels)
x[-1,-1]->x
25->x[x>=25]
#define breaks and colors
HeatBrk<-seq(5,25,4)
MyCol= gray((4:0)/4)
#My axes are 104 components long, which is why my axis font is this small
par(cex.axis=0.3)
image.plot(x, col=MyCol, breaks=HeatBrk, legend.shrink=0.3, axes = FALSE)
and this is where my problem is: Nothing I do will get axes in the
proper places. I want...