2016-04-29 18 views
0

私の同僚と私はRでデータをマトリックスにしました(パイプを使う:dplyr、magrittr)、filled.contourプロットでプロットしました。しかし何らかの理由でそれは私の最後の2つの点をプロットしません。R:塗りつぶされた等高線プロットは行列のすべてをプロットしません

誰にもこれに対する修正がありますか?

はここに私のデータセット/行列のための私のdputさ:

structure(list(AvgDepth = c(5L, 5L, 15L, 5L, 15L, 25L, 5L, 15L, 
25L, 35L, 5L, 15L, 25L, 35L, 5L, 15L, 25L, 35L, 45L, 5L, 15L, 
25L, 35L, 45L, 55L, 5L, 15L, 25L, 35L, 45L, 55L, 65L, 5L, 15L, 
25L, 35L, 45L, 55L, 65L, 75L, 5L, 15L, 25L, 35L, 45L, 55L, 65L, 
75L, 85L, 95L), AvgMaxDepth = c(5L, 15L, 15L, 25L, 25L, 25L, 
35L, 35L, 35L, 35L, 45L, 45L, 45L, 45L, 55L, 55L, 55L, 55L, 55L, 
65L, 65L, 65L, 65L, 65L, 65L, 75L, 75L, 75L, 75L, 75L, 75L, 75L, 
85L, 85L, 85L, 85L, 85L, 85L, 85L, 85L, 95L, 95L, 95L, 95L, 95L, 
95L, 95L, 95L, 95L, 95L), MiddleOldG = c(-0.010339548, 
-0.019087115, -0.013710817, -0.018843724, -0.016954714, -0.009270159, 
-0.021369483, -0.020470118, -0.020793118, -0.038538718, -0.014960888, 
-0.010406261, -0.014440231, -0.018794958, -0.020203279, -0.015599607, 
-0.017050242, -0.024199387, -0.025290379, -0.026409047, -0.023564188, 
-0.027233605, -0.031364833, -0.033557383, -0.036140136, -0.022472455, 
-0.011018529, -0.01468673, -0.022262797, -0.027657312, -0.026680228, 
-0.02738715, -0.025351831, -0.026051226, -0.021691668, -0.025787225, 
-0.018350888, -0.019350486, -0.018076008, -0.011645933, -0.005070788, 
-0.006843451, -0.001764863, -0.001371702, -0.002248032, -0.002476992, 
0.00325166, 0.004070139, 0.033053363, 0.022264692), x = c(1, 
1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 2, 3, 
4, 5, 6, 1, 2, 3, 4, 5, 6, 7, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 
4, 5, 6, 7, 8, 9, 10), y = c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 
5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 
9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10 
)), class = "data.frame", .Names = c("AvgDepth", "AvgMaxDepth", 
"MiddleOldG", "x", "y"), row.names = c(NA, 
-50L)) 

はここで行列は次のようになります。ここでは

http://i.stack.imgur.com/x6ngn.png

コード

library(colorspace) 
library(dplyr) 
library(magrittr) 

Descent<-read.csv(file.choose()) 

attach(Descent) 

summary(Descent) 

Descent %<>% mutate(x = (AvgDepth + 5)/10, y = (AvgMaxDepth + 5)/10) 

z = matrix(NA, ncol = 10, nrow = 10) 

z.middle = Descent %>% select(x, y, MiddleOldG) 

for (i in 1:nrow(z.middle)) z[z.middle[i,1],z.middle[i,2]] = z.middle[i,3] 

filled.contour(x = seq(5, 95, by = 10), y = seq(5, 95, by = 10), z, color.palette=diverge_hsv, xlab="Depth (m)", ylab="Maximum Depth (m)", levels = pretty(c(-0.04,0.04),24)) 

ですが9,10と10,10のデータポイントをプロットしません行列のts

これらはプロットの右上隅にあるはずですが、そうではありません。

Filled.Contour

それは、これらの最後の2点をプロットされていない理由を任意のアイデア?ここ

は、データ・セットである:https://docs.google.com/spreadsheets/d/13BJQ9-EXr2wu5tZNqXSzdbg_cLUjVw65W7yAAwydf_8/edit?usp=sharing

おかげ

+0

:あなたは9列目に隣接する点を設定した場合は、その後、行列の右下の「コーナー」に対応する右上隅に適切な色を取得します。あなたの失敗の背後にある理由についての説明を見つけるべきです。 –

+0

@ 42-検索しましたが、結果はありません – LearningTheMacros

+0

filled.contourの中に点をプロットすると言っていると誤解しました。代わりに、あなたが注意を払わない理由は、人々が切り取りと貼り付けが簡単な形式でデータがない場合、あなたのproblenの再現を試みたくないということです。誰もそのイメージをインポートすることはできません。 'dput(Descent)'の結果を既存の質問の編集として投稿する方法を学んでください。 –

答えて

0

filled.contour関数が充填された領域を形成するための4点が必要です。あなたが見上げる場合 `満たさ

z[9:10,9] <- 0 
filled.contour(x = seq(5, 95, by = 10), y = seq(5, 95, by = 10), z, 
       color.palette=diverge_hsv, xlab="Depth (m)", ylab="Maximum Depth (m)", 
       levels = pretty(c(-0.04,0.04),24)) 

enter image description here

関連する問題