カラー1からカラー2までのn色のグラデーション

私はしばしばggplot2それを使ってグラデーションを素敵にしています（例はここをクリックしてください）。私はベースで作業する必要があり、scalesそこでカラーグラデーションを作成するためにも使用できると思いますが、その方法については非常にずれています。基本的な目標は、x色からy色までのn色のパレットを生成することです。ソリューションはベースで動作する必要があります。これは出発点でしたが、nを入力する場所がありません。

 scale_colour_gradientn(colours=c("red", "blue"))

私はよく知っています：

brewer.pal(8, "Spectral") 

からRColorBrewer。ggplot2がグラデーションを処理する方法に似たアプローチをもっと探しています。これは、これらの2つの色があり、途中で15色が必要だと言っています。どうやってやるの？

colorRampPalette ここであなたの友達になることができます：

colfunc <- colorRampPalette(c("black", "white"))
colfunc(10)
# [1] "#000000" "#1C1C1C" "#383838" "#555555" "#717171" "#8D8D8D" "#AAAAAA"
# [8] "#C6C6C6" "#E2E2E2" "#FFFFFF"

そして、それが機能することを示すために：

plot(rep(1,10),col=colfunc(10),pch=19,cex=3)

前の答えを拡張するだけです colorRampPalette、2色以上を処理できます。

より拡張された「ヒートマップ」タイプの外観には、次のことができます。

colfunc<-colorRampPalette(c("red","yellow","springgreen","royalblue"))
plot(rep(1,50),col=(colfunc(50)), pch=19,cex=2)

結果の画像：

以下を試してください：

color.gradient <- function(x, colors=c("red","yellow","green"), colsteps=100) {
  return( colorRampPalette(colors) (colsteps) [ findInterval(x, seq(min(x),max(x), length.out=colsteps)) ] )
}
x <- c((1:100)^2, (100:1)^2)
plot(x,col=color.gradient(x), pch=19,cex=2)

上記の答えは役に立ちますが、グラフでは、黒の暗いグラデーションを区別するのは困難です。私が見つけた1つの代替案は、次のように灰色のグラデーションを使用することです

palette(gray.colors(10, 0.9, 0.4))
plot(rep(1,10),col=1:10,pch=19,cex=3))

グレースケールの詳細はこちら。

追加されました

上記のコードを青や黒などのさまざまな色に使用した場合、グラデーションはそれほど明確ではありませんでした。 heat.colors()より便利なようです。

このドキュメントには、より詳細な情報とオプションがあります。pdf