r - Rでグリッドに色を付ける

Question

描いた絵をzの値に合わせて色付けしたいのですが、このように例を挙げてみましょう。

x<-y<-seq(-2*pi, 2*pi, pi/15)
f<-function(x,y) sin(x)*sin(y)
z<-outer(x,y, f)
#contour(x,y,z,col="blue")
persp(x,y,z,theta=30, phi=30, expand=0.7,col=heat.colors(25))

この画像を虹色またはheat.colorsで着色したい場合は、zの値が大きいほど、色が暗くなります。どうすればよいですか、カラーセットを制御する方法

皆さん、ありがとうございました

Answer 1

ヘルプの例に加えて、デフォルトでz値に基づいてカラーバーから色が割り当てられているパッケージdrape.plotから使用できます。その後にperspが呼び出され、最後に凡例ストリップがimage.plotで追加されます。fieldsdrape.color

ncol <- 5
library(fields)
drape.plot( x,y,z, col=rainbow(nbcol))