mirror of
https://github.com/gladstone-institutes/Bioinformatics-Workshops.git
synced 2025-11-30 09:45:43 -08:00
Updated intermediate R data visualization materials
This commit is contained in:
parent
08be3b61c3
commit
0eb7b8b40d
16 changed files with 584 additions and 0 deletions
17
intermediate-r-data-visualization/5. Heatmap.R
Normal file
17
intermediate-r-data-visualization/5. Heatmap.R
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
#Read table.
|
||||
library(gplots)
|
||||
|
||||
dat <- read.table("norm_counts.txt", sep = "\t", header = T)
|
||||
dat <- as.matrix(dat)
|
||||
|
||||
#Save in pdf format.
|
||||
pdf("Heatmap.pdf", width = 10, height = 10)
|
||||
heatmap.2(dat,
|
||||
dendrogram = "column") #Use labRow = "" to turn off row labels.
|
||||
dev.off()
|
||||
|
||||
#Save in TIFF format.
|
||||
tiff("Heatmap.tiff", width = 10, height = 10, units = 'in', res = 300)
|
||||
heatmap.2(dat,
|
||||
dendrogram = "column") #Use labRow = "" to turn off row labels.
|
||||
dev.off()
|
||||
Loading…
Add table
Add a link
Reference in a new issue