heatmap.R

#https://gist.github.com/dsparks/3710171

#MELT DATA
display.brewer.all()
myPalette <- colorRampPalette(brewer.pal(7, "RdYlGn"))

zp1 <- ggplot(star3[CIN=="H2643"],
              aes(x = variable, y = CIN, fill = value))
zp1 <- zp1 + geom_tile()
zp1 <- zp1 + scale_fill_gradientn(colours = myPalette(100))
zp1 <- zp1 + scale_x_discrete(expand = c(0, 0))
zp1 <- zp1 + scale_y_discrete(expand = c(0, 0))
zp1 <- zp1 + coord_equal()
zp1 <- zp1 + theme_bw()
print(zp1)  # Your plot