perspを使ったカラフルなプロット

Question

私は'persp 'を使って3D-Plotを生成しています。私の図で

persp(TestMatrix ,theta = 30, phi = 30, expand = 0.19,scale=FALSE,shade=0.4,border=NA,box=FALSE) 

：それは結果です。私は青から赤に連続した色を変更したいと思います。

どうすればよいですか？

UPDATE

私はこのような図を生成したいと思います：

Answer 1

あなただけの影赤い曲線が必要な場合は、お使いのパースビュー機能でcolパラメータを追加しよう：

persp(TestMatrix, 
     theta = 30, phi = 30, expand = 0.19, scale=FALSE, 
     shade=0.4, col="red", border="blue", 
     box=FALSE) 

編集： あなたの編集のおかげで、私はあなたが2色のプロットが必要であるとは確信していませんでした。この問題に関する質問はここにあります：Create 3D Plot Colored According to the Z-axis。サーフェスの各ファセットの色を指定するには、カラーマトリックスが必要です。サブミルポイントは、各ファセットの中央の高さ（z）、すなわちグリッドの4つの頂点の平均（z値に対応する）を計算することです。ただ、等高線図を構築

# Color palette (100 colors) 
col.pal<-colorRampPalette(c("blue", "red")) 
colors<-col.pal(100) 
# height of facets 
z.facet.center <- (z[-1, -1] + z[-1, -ncol(z)] + z[-nrow(z), -1] + z[-nrow(z), -ncol(z)])/4 
# Range of the facet center on a 100-scale (number of colors) 
z.facet.range<-cut(z.facet.center, 100) 

persp(x, y, z, 
    theta = 30, phi = 30, expand = 0.19, scale=FALSE, 
    shade=NA, col=colors[z.facet.range], border="grey80", 
    box=FALSE)