R中根据数值大小着色的问题

topmad

各位大牛，现在有一问题
  利用R作的3d图，x-y-z，想根据z的值进行着色，z值越大 颜色越红，值越小，颜色越蓝，想用rainbow方案，但是不知道用应该怎么实现，特来此求教，
  附上小代码

1. x<-y<-seq(-2*pi, 2*pi, pi/15)
   
2. f<-function(x,y) sin(x)*sin(y)
   
3. z<-outer(x,y, f)
   
4. contour(x,y,z,col="blue")
   
5. persp(x,y,z,theta=30, phi=30, expand=0.7)

复制代码

还望各位多多指教