を使用して画像を作成したマトリックスがありますimage(matrix)
。プロットに凡例を追加するときのように、画像に色の凡例を追加する方法はありますか?
ベストアンサー1
または、凡例は次のように提供することもできます。
legend(grconvertX(0.5, "device"), grconvertY(1, "device"),
c("0",".5","1"), fill = colMap[c(1, 10, 20)], xpd = NA)
ここで、grconvertX() と grconvertY() および xpd は凡例がプロット領域外にあることを確認します。妥当な例は次のようになります。
nsamples <- 20
mat <- rnorm(nsamples, .5, .15)
dim(mat) <- c(4, 5)
colMap <- colorRampPalette(c("red","white","blue" ))(nsamples)
image(1:4, 1:5, mat, col = colMap, ylab="", xlab="")
legend(grconvertX(0.5, "device"), grconvertY(1, "device"),
c("0",".5","1"), fill = colMap[c(1, 10, 20)], xpd = NA)
追伸: これは古いリクエストであり、解決済みであることは承知しています。しかし、同様の回答を探していたのですが、見つかりませんでした。この問題を解決するのに苦労したので、他の誰かもこの回答から利益を得られるかもしれないと思いました。