1

グレー スケール コマンドを使用して、3 番目の次元が色のグラデーションを表す 3D 散布図を作成することができました。とはいえ、それに合わせた伝説を作ろうとすると壁にぶち当たります。必要な色の範囲は既にありますが、R にそれらを凡例にするように指示する方法がわかりません。これが私のコードです。

conocarp.stands<-c(264,330,400,594,600,700,726,730,800,825,825,826,1914,2145,2200,2310,2475,2640,3630,3960,3960,4124,4554,5082,8250,8475,9200,1000)

fimb.size<-c(540,2160,1100,1170,350,850,2340,600,200,738,1080,1300,2416,540,3565,810,648,0,900,0,635,1210,0,900,2340,1152,0,0)

sugar.visits.cono<-c(0.005682,0,0.065,0,0,0.010714,0,0.010274,0.011875,0,0,0,0,0,0.007045,0,0.001414,0.002273,0,0.014141,0.001263,0.006426,0.000769,0.000295,0.005515,0.000186,0.00359,0.004939)

colors <- rev(grey(1:101/101))
zcolor <- colors[round((sugar.visits.cono -min(sugar.visits.cono))/diff(range(sugar.visits.cono))*100 + 1)]
plot(conocarp.stands,fimb.size, pch=1, cex=1.8,ann=FALSE)
points(conocarp.stands,fimb.size,col=zcolor, pch=16, cex=1.5)

zcolor は私の z 軸の値であり、私の凡例を作成するために使用できるはずです。SDMTools やフィールドなど、さまざまなパッケージで作業を試みましたが、そのルートに行く必要はありません。

4

2 に答える 2

1

これを試して、

library(ggplot2)

d = data.frame(conocarp.stands = conocarp.stands,
               fimb.size = fimb.size,
               sugar.visits.cono = sugar.visits.cono)

ggplot(data = d, mapping = aes(x = conocarp.stands, y = fimb.size)) +
     geom_point(aes(colour = sugar.visits.cono), shape = 19)

last_plot() + scale_colour_gradient(high="grey10", low="grey90") + theme_bw()
于 2012-11-21T08:50:58.973 に答える
0

raster.grid コマンドを使用すると、この質問も解決できることがわかりましたが、軸にラベルを付ける方法がわかりませんでした。Baptisteに感謝します。ggplots 2パッケージを避けてきましたが、飛び込む時が来たと思います。これが誰かに役立つ場合、raster.gridを使用したコードです:

ライブラリ(グリッド) grid.raster(1:101/101、幅=.075、高さ=.1)

于 2012-11-21T12:32:32.037 に答える