8

ggplot2を希望どおりに動作させるのに少し問題があります。基本的に、実際の観測値と、それらを1つのプロットにまとめて概算したものを比較したいと思います。例えば、

> library(ggplot2)
> df.actual <- data.frame(x = 1:100, y = (1:100) * 2)
> df.approx <- data.frame(x = 1:150, y = (1:150) * 2 + 5  + rnorm(150, mean = 3) )
> ggplot() + geom_point(aes(x, y), data = df.actual) + geom_line(aes(x,y), data = df.approx)

私の問題は、凡例を表示できないことです。ggplot2の凡例はあまり柔軟ではないことをどこかで読みました（？）。理想的には、

  • title='タイプ'
  • キー：黒い塗りつぶされたポイントと黒い線
  • キーラベル：「実際」、「概算」
  • legend.position='トップライト'

ありがとう。

4

2 に答える 2

7

これを試して始めましょう

ggplot() + 
  geom_point(aes(x, y, colour = "actual"), data = df.actual) + 
  geom_line(aes(x, y, colour = "approximate"), data = df.approx) + 
  scale_colour_discrete("Type")
于 2009-11-24T14:35:04.043 に答える
4

これは、グリッド オブジェクトを操作して凡例を変更するための一種のハックです。

library("ggplot2")
df.actual <- data.frame(x=1:100, y=(1:100)*2)
df.approx <- data.frame(x=1:150, y=(1:150)*2 + 5 + rnorm(150, mean=3))
p <- ggplot() +
     geom_point(aes(x, y, colour="Actual"), data=df.actual) +
     geom_line(aes(x, y, colour="Approximate"), data=df.approx) +
     scale_colour_manual(name="Type",
                         values=c("Actual"="black", "Approximate"="black"))
library("grid")
grob <- ggplotGrob(p)
tmp <- grid.ls(getGrob(grob, "key.segments", grep=TRUE, global=TRUE))$name
grob <- removeGrob(grob, tmp[1])  # remove first line segment in legend key
tmp <- grid.ls(getGrob(grob, "key.points", grep=TRUE, global=TRUE))$name
grob <- removeGrob(grob, tmp[2])  # remove second point in legend key
grid.draw(grob)

ggplot2 出力 http://img134.imageshack.us/img134/8427/ggplotlegend.png

于 2009-11-25T14:54:36.343 に答える