R heatmap for Ja Yong (zeros and positive number)

heatmap_JaYong.R

library('pheatmap')

##~~~~~~~~~~~~~~~~~~simulating data~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
rn <- 100
cn <- 12
testdat <- matrix(rnorm(rn * cn), rn, cn)
testdat[1 : (rn/2), seq(1, cn, 2)] <- testdat[1 : (rn/2), seq(1, cn, 2)] + 5
testdat[(rn/2 + 1) : rn, seq(2, cn, 2)] <- testdat[(rn/2 + 1) : rn, seq(2, cn, 2)] + 7
testdat <- apply(testdat, 1:2, function(x) ifelse(x < 0, 0, x))

colnames(testdat) <- paste('Sample', 1 : cn, sep = "")
rownames(testdat) <- paste('Protein', 1 : rn, sep = "")
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

pheatmap(testdat, fontsize_row = 3)
pheatmap(testdat, color = colorRampPalette(c('navy', 'white', 'firebrick3'))(50), fontsize_row = 3)