カスタムカラースケールベースRとfitted.contourヒートマップについて

Question

私は私のグラフは、私が使用している

瞬間を見てどのよう

palette <- colorRampPalette(c("darkblue", "blue", "lightblue1", 
           "green", "yellow", "red", "darkred")) 

イラストを使用したいカラーパレットのこの種を持っていますfilled.contour()このグラフを変更してプロットします。

save.image()

ここで作られたmy workspaceからdata、channelsとdfを使用して幾分類似グラフ

load("workspace.RData") 
library(lubridate) 

breaks <- "2 hours" 
palette <- colorRampPalette(c("darkblue", "blue", "lightblue1", 
           "green", "yellow", "red", "darkred")) 
f <- function(x) as.POSIXct(levels(cut(x, breaks))) 

filled.contour(x = data$Time, 
       y = log10(channels), 
       z = df, 
       color.palette = palette, 
       plot.axes = axis(1, at = f(data$Time), 
           labels = format(f(data$Time), "%H:%M"))) 

を行うコードの一部です。

これで、デフォルトでは右のような色の凡例が表示されます。暗青色が0に対応し、濃い赤色がユーザー定義の値（例：2,000万）に対応していることを自分自身で説明したいと思います。

このデータのグラフと他のデータのグラフを比較すると、まったく同じ色の凡例になります。

詳細情報などを提供する必要があるかどうかを教えてください。

EDIT：

workspace.RDataファイルとしての私のワークスペースからのデータを提供しました。

Answer 1

levels（およびnlevels）のパラメータはちょうどいい仕事をしているようです...私は愚かだと感じます。