塗りつぶし等高線プロットの色を操作するR

Question

私はRが非常に新しく、時間（x）にわたって水柱（y）の酸素濃度（z）の変化を示すためにRで塗りつぶし等高線プロットを作成したいと思います。 Bellowは、filled.contour（）関数を使用して初期プロットを作成した方法です。私の質問は次のとおりです： 1-プロットの色を変更するには？私は濃い青色（高酸素）から赤色（低酸素）の間にいるのが好きです。
2 Y軸に深さが表示されるので、プロットをわかりやすくするために、0 mの代わりに22 m（湖の最大深度）から開始するにはどうすればよいですか？あなた

mat <- structure(c(9.76, 11.25, 11.15, 8.56, 8.94, 6.51, 8.30, 9.16, 
    6.75, 6.16, 6.48, 7.18, 7.17, 5.34, 5.03, 9.78, 11.52, 11.22, 7.39, 
    8.97, 6.48, 8.28, 9.40, 6.69, 6.11, 6.34, 7.06, 6.45, 5.05, 4.51, 9.72, 
    11.57, 11.21, 8.35, 8.96, 6.47, 8.21, 9.37, 6.60, 6.08, 6.31, 6.90, 
    5.86, 4.51, 3.56, 10.16, 11.53, 9.75, 8.53, 8.96, 6.44, 8.12, 9.37, 
    6.48, 6.04, 6.25, 6.81, 5.62, 4.19, 3.21, 10.48, 9.70, 8.78, 7.89, 
    9.00, 6.43, 8.08, 8.41, 6.33, 6.02, 6.22, 6.68, 5.51, 3.73, 2.88, 8.95, 
    8.01, 7.48, 7.42, 7.89, 6.41, 7.95, 7.80, 6.13, 5.92, 6.20, 6.52, 4.89, 
    3.31, 2.27, 7.41, 5.06, 4.10, 4.45, 3.25, 6.40, 7.71, 7.46, 5.97, 5.90, 
    6.17, 6.15, 4.31, 2.94, 1.72, 5.71, 3.86, 1.27, 1.97, 0.61, 6.38, 5.94, 
    7.43, 5.89, 5.87, 6.15, 5.81, 3.70, 2.70, 1.26, 5.02, 3.30, 0.80, 0.27, 
    0.48, 6.34, 4.89, 7.10, 5.87, 5.87, 6.12, 5.52, 3.34, 2.23, 0.58, 3.90, 
    3.02, 0.43, 0.18, 0.41, 5.92, 2.43, 6.97, 5.91, 5.92, 6.10, 5.01, 3.01, 
    0.32, 0.18, 3.46, 2.51, 0.24, 0.19, 0.38, 0.51, 0.19, 6.03, 5.92, 5.93, 
    6.09, 4.79, 1.86, 0.26, 0.10, 2.87, 1.35, 0.18, 0.14, 0.36, 0.23, 0.03, 
    5.52, 5.90, 5.97, 6.08, 4.46, 0.72, 0.20, 0.09, 1.67, 0.72, 0.12, 0.10, 
    0.34, 0.14, 0.00, 1.64, 5.72, 5.27, 6.06, 4.05, 0.52, 0.15, 0.07, 0.82, 
    0.59, 0.09, 0.08, 0.33, 0.13, 0.00, 0.41, 5.66, 5.86, 6.05, 0.90, 0.44, 
    0.14, 0.06, 0.48, 0.43, 0.07, 0.07, 0.32, 0.11, 0.00, 0.25, 2.47, 5.85, 
    6.03, 0.49, 0.39, 0.13, 0.05, 0.38, 0.37, 0.07, 0.07, 0.33, 0.10, 0.00, 
    0.19, 0.14, 5.62, 6.02, 0.35, 0.38, 0.12, 0.05, 0.28, 0.34, 0.07, 0.06, 
    0.33, 0.09, 0.00, 0.16, 0.08, 4.11, 6.02, 0.28, 0.36, 0.11, 0.04, 0.30, 
    0.33, 0.09, 0.07, 0.32, 0.09, 0.00, 0.15, 0.06, 0.72, 6.02, 0.24, 0.35, 
    0.10, 0.03, 0.31, 0.31, 0.11, 0.08, 0.31, 0.08, 0.00, 0.14, 0.04, 0.10, 
    6.01, 0.21, 0.34, 0.09, 0.02, 0.38, 0.31, 0.09, 0.07, 0.30, 0.08, 0.00, 
    0.14, 0.03, 0.06, 6.01, 0.22, 0.33, 0.07, 0.02, 0.44, 0.30, 0.07, 0.05, 
    0.29, 0.07, 0.00, 0.13, 0.02, 0.04, 6.01, 0.26, 0.31, 0.05, 0.02, 0.41, 
    0.30, 0.04, 0.04, 0.28, 0.06, 0.00, 0.14, 0.01, 0.02, 6.02, 0.27, 0.31, 
    0.05, 0.02, 0.37, 0.29, 0.04, 0.03, 0.28, 0.06, 0.00, 0.14, 0.00, 0.01, 
    6.02, 0.26, 0.31, 0.05, 0.02), .Dim = c(15L, 23L), .Dimnames = 
    list(c("06/25/2015", "07/08/2015","07/22/2015", "08/04/2015", 
    "08/18/2015", "09/01/2015", "09/15/2015", "09/30/2015","10/14/2015", 
    "10/26/2015", "11/12/2015", "01/06/2016", "01/20/2016", "02/04/2016", 
    "02/16/2016"), c("0.5", "1", "2", "3", "4", "5", "6", "7", "8", "9", 
    "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", 
    "22"))) 

    dates <- as.Date(dimnames(mat)[[1]], "%m/%d/%Y") 
    depths <- as.numeric(dimnames(mat)[[2]]) 

    filled.contour(x=dates, y=depths, z=mat, xlab="Date", ylab="Depth") 

Answer 1

おかげで私はあなたが22で始まるに関する話していたかを把握できなかったが、これはそこに道のあなたの部分を取得します。ところで

cols = rev(colorRampPalette(c('darkred','red','blue','lightblue'))(24)) 

filled.contour(x=dates, y=depths, z=mat, xlab="Date", ylab="Depth", 
       col = cols 
       ) 

私は色を反転した場合、その後、ちょうどrev()文を削除してください。私は2番目の質問には何を意味するか