小技メモ(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)
}

f:id:isseing333:20110316134816j:image

f:id:isseing333:20110316180832j:image


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

ページTOPへ