0

そのため、私は R での 3D プロット全体にかなり慣れていないため、ここや他の Web サイトや本でさまざまな記事や投稿を読むのに最後の 1 日を費やしました。そして、私は告白しなければなりません、私はまだ迷っています。だから、人々が私に与えることができるどんな助け/アドバイスも大歓迎です!

わかりました、これが私の問題です（サンプルデータ付き）。私は 3 つの場所 (AC) を 12 年間 (2001 年から 2012 年) 連続してサンプリングしましたが、多くのゼロがありました。だから私はテーブル/マトリックス/データフレームにこのデータを持っています:

LocationA<-c(0,0,0.83,0.167,0.167,0.083,0.25,0.212,0,0.083,0,0)
LocationB<-c(0,0,0,0,0,0,0,0,0,0.212,0,0)
LocationC<-c(0.633,0.462,0.167,0.467,0,0.167,0.451,0.333,0.462,0.595,0,0)

TestMat<-cbind(LocationA,LocationB,LocationC)
rownames(TestMat)<-c(2001:2012)

私が望むのは地形図に似たもので、x 軸は場所、z 軸は年、y 軸は測定対象の値です。棒グラフを使用する可能性はありますが、理想的には wireframe() のようなものが最適です。私はさまざまな機能やパッケージをいじっていますが、なぜ私がやっていることはうまくいかないのか分かりません。

ご助力ありがとうございます！私は少しばかで、それを理解していない可能性があることを十分に認識しています。

乾杯！

編集：

というわけで「長文」に変更。x 値を非数値にすることはできなかったので、x2 に変更しました (以下を参照)。

x<-c(rep("LocationA",12),rep("LocationB",12),rep("LocationC",12))
y<-rep(c(2001:2012),3)
z<-c(LocationA,LocationB,LocationC)
x2<-c(rep(1,12),rep(2,12),rep(3,12))

次に、wireframe() 関数を使用しました。

wireframe(z~x2*y,xlab="Location",ylab="Year",zlab="Value",distance=0.4,zoom=0.6,
        scales=list(arrows=FALSE,
                x=list(at=c(1:3),label=c("A","B","C")),
                y=list(at=c(2001:2012),label=c(2001:2012)),
            z=list(at=c(0,0.2,0.4,0.6,0.8,1),label=c(0,0.2,0.4,0.6,0.8,1)),
                distance=c(2,2,2)),
        drape=TRUE)

今、私が理解できず、いじっているのは、色付けです。drape() サブ関数を使用すると、ラティスに色の変化のグラデーションを与えることができ、高い値が低い値とは異なる色を示すことを知っています。しかし、私はそれを機能させることができないようです。それは私に色のグラデーションを与えますが、ターコイズ色（デフォルトの色のグラデーションはピンクターコイズです-後でこれを変更しようとします）である必要がある最高値（これは0.83です）は、実際には〜に対応する色です0.3 値。エラーメッセージや警告メッセージは添付されておらず、なぜこれが起こっているのかわかりません...何かアイデアはありますか?

再度、感謝します！:)

4

0 に答える 0