小技メモ（0を基準として上下に伸びる棒グラフ）

• ヒートマップの色を変更する

library(gplots)
library(RColorBrewer)
hmcol <- colorRampPalette(brewer.pal(10, "PRGn"))


heatmap.2(UseData, col=hmcol, density.info="none", trace="none", key=T, keysize = 1.2, symkey=F, 
	  hclustfun=function(d) hclust(d, method="ward"), margins = c(8, 4))

• 0を基準として上下に伸びる棒グラフとテキストの回転

Vec <- rnorm(20)
names(Vec) <- c(1:20)

par(mar = c(0, 3, 3, 0))
plot(Vec, type = "n", bty = "n", ylab = "")
for(i in 1:length(Vec)){
	rect(i - 1, Vec[i], i, 0, col = "black")
}
for(i in 1:length(Vec)){
	text(i - 0.5, 0, names(Vec)[i], srt = -90, cex = 0.8, col = "grey30", adj = 0)
}

※textのところはデータによって要変更