6

次の例があります。

data <- structure(list(a = c(-1.25549186262767, -0.840855480786298, -
0.635371312524283, 
-0.602907981454667, -0.472166385166945, -0.285773634866154, 0.0701427664273268, 
0.138108224803923, 1.38435934347858, 1.71144087270237), b = c(-3.44400412039417, 
0.675644682353751, -1.04793816522475, -7.38303347186651, 2.34519166466874, 
0.334780748573386, 4.76806919070976, 4.8633533150074, 3.50106026731172, 
-1.27172351054143), c = c(-3.02376206439776, -2.56390769080574, 
-1.48659913867609, -1.27976202274701, -0.368725655874139, 1.08537150160227, 
3.98619381956471, 4.50687017428731, 4.10341582203292, -1.61769414438858
), d = c(5.71851494232005, 2.90539833491649, 2.75195159216204, 
2.73478241733301, 2.65941820902101, 2.60630235726839, 3.34836154776286, 
3.62938300664006, 4.61153521538016, 5.56230567213863), e = c(8.98703236551896, 
4.5660296657415, 4.32487774825464, 4.29789523068949, 4.17945528847841, 
4.09598014088541, 5.26217626511884, 5.70382046327322, 7.24733897758039, 
8.74153894964533)), .Names = c("a", "b", "c", "d", "e"), row.names = c(NA, 
-10L), class = "data.frame")

ggplot(data, aes(x=a, y=b)) + geom_point() + 
    geom_line(aes(x=a, y=c)) + 
    geom_line(aes(x=a, y=(c - d), colour="red")) +
    geom_line(aes(x=a, y=(c + d), colour="red")) +
    geom_line(aes(x=a, y=(c - e), colour="blue")) +
    geom_line(aes(x=a, y=(c + e), colour="blue"))

ラベルを「d」と「e」にしたいのですが、代わりに「color」フィールドの値が与えられています。2つの質問：

1）どうすれば凡例を完全に削除できますか？2）凡例を含めたい場合、色ではなく特定の値に設定するにはどうすればよいですか？

4

3 に答える 3

8

ここで覚えておくべき重要なことは、内部のアイテムがaes()データを美学にマッピングするということです。定数値を設定している場合は、その情報をの外に移動できますaes()。コードを少し変更すると、次のようになります。

ggplot(data, aes(x=a, y=b)) + geom_point() + 
geom_line(aes(x=a, y=c)) + 
geom_line(aes(x=a, y=(c - d)), colour="red") +
geom_line(aes(x=a, y=(c + d)), colour="red") +
geom_line(aes(x=a, y=(c - e)), colour="blue") +
geom_line(aes(x=a, y=(c + e)), colour="blue")

それはあなたに伝説なしであなたが求めているものを与えます。上記の凡例を含めるための@koshkeのアプローチが好きなので、それを複製しないでください。実行できる他のアプローチは、呼び出しの外部でデータ操作を実行し、プロットする前にそれを長い形式に変換することですggplot2()。への複数の呼び出しを取り除くことができるので、melt()それはへの呼び出しを短縮しますが、明らかにデータの前処理のオーバーヘッドがあります。この問題ではおそらく1つに6つ、もう1つに1/2ダースですが、将来の問題に備えて覚えておくべきことがあります。ggplot()geom_line()

于 2011-01-19T05:39:47.790 に答える
5

これはあなたがやりたいことですか？

ggplot(data, aes(x=a, y=b)) + geom_point() + 
    geom_line(aes(x=a, y=c)) + 
    geom_line(aes(x=a, y=(c - d), colour="d")) +
    geom_line(aes(x=a, y=(c + d), colour="d")) +
    geom_line(aes(x=a, y=(c - e), colour="e")) +
    geom_line(aes(x=a, y=(c + e), colour="e")) +
    scale_colour_manual(name="legend title", 
                        values=c("red", "blue"),
                        breaks=c("d", "e"))
于 2011-01-19T04:55:37.733 に答える
2

ラベルの削除は、+ opts(legend.position = "none")オプションを追加することでも実行できます。

于 2011-01-19T08:57:53.140 に答える