4

R で pheatmap パッケージを使用して、さまざまな種類のデータでヒートマップを作成しています。また、colorramppalette を使用して色を作成していますが、色は非常に明るいです。

暗い色が欲しいのですが、どうすればいいですか？

コードは次のとおりです。

hmcols<-colorRampPalette(c("white","red"))(256)

pheatmap(
  test,
  color=hmcols,
  cluster_rows=FALSE,
  cluster_cols=FALSE,
  legend=TRUE,
  show_rownames=FALSE,
  show_colnames=FALSE,
  filename="a.png"
)

colorramppalette で色の強度を上げるにはどうすればよいですか? または、pheatmap に似ているが暗い色を生成する他のヒートマップ パッケージを使用できますか?

4

1 に答える 1

6

hcl輝度ステップを使用して調整してみてください。例えば：

cols <- hcl(0,l=seq(1,100,length=11))
cols
# [1] "#3F0000" "#470016" "#591D2D" "#6F3744" "#87505B" "#A06974" "#BB838D" "#D69DA8"
# [9] "#F1B8C3" "#FFD4DE" "#FFF0FB"
plot(1:11,cex=4,bg=cols,pch=21)

以下に多くの例があり?hcl、ニーズに合ったカラー ブレークが見つかると確信しています。

それがあなたのニーズに合わない場合は、RColorBrewerパッケージの下にあるカラースケールのいくつかを使用することもできます.カラースケール。 colorRampPalettebrewer.pal

RColorBrewerまた、シーケンシャル スケールとは対照的に、発散カラー スケールを使用することもできます。そのため、いくつかの例を次に示します。

require(RColorBrewer)
par(mfrow=c(2,2))

cols <- colorRampPalette( colors = hcl(0,l=seq(1,100,length=11)) )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "HCL Colours")

cols <- colorRampPalette( colors = rev(brewer.pal(9,"Reds")) )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "Sequential RColorBrewer palette")

cols <- colorRampPalette( colors = rev(brewer.pal(9,"Reds"))[1:5] )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "Truncated sequential\nRColorBrewer palette" )

cols <- colorRampPalette( colors = brewer.pal(9,"RdBu") )
plot( 1:11 , cex = 4 , bg = cols(11) , pch = 21 , main = "Diverging RColorBrewer palette" )

ここに画像の説明を入力

于 2013-06-05T23:44:01.693 に答える