dceoy · August 29, 2015 14:21
diff --git a/heatmap.R b/heatmap.R
 #!/usr/bin/env Rscript

 sapply(c('data.table', 'ggplot2'), function(p) require(p, character.only = TRUE))

 mtx <- fread('matrix.csv')

 heatmap <- ggplot(mtx, aes(x = col, y = row, fill = val)) +
             geom_tile() +
             scale_fill_gradient(trans = 'log', breaks = c(10, 100, 1000), low = 'grey', high = 'blue') +
             labs(x = 'col', y = 'row')

 svg('plot.svg', width = 6, height = 4)
 plot(heatmap)
 dev.off()
diff --git a/matrix.csv b/matrix.csv
diff --git a/plot.svg b/plot.svg
	#!/usr/bin/env Rscript

	sapply(c('data.table', 'ggplot2'), function(p) require(p, character.only = TRUE))

	mtx <- fread('matrix.csv')

	heatmap <- ggplot(mtx, aes(x = col, y = row, fill = val)) +
	geom_tile() +
	scale_fill_gradient(trans = 'log', breaks = c(10, 100, 1000), low = 'grey', high = 'blue') +
	labs(x = 'col', y = 'row')

	svg('plot.svg', width = 6, height = 4)
	plot(heatmap)
	dev.off()