5

このデータを使用して、プロットを当てはめています。

p <- ggplot(dat, aes(x=log(Explan), y=Response)) + 
      geom_point(aes(group=Area, colour=Area))+
      geom_abline(slope=-0.062712, intercept=0.165886)+
      geom_abline(slope= -0.052300, intercept=-0.038691)+
      scale_x_continuous("log(Mass) (g)")+
      theme(axis.title.y=element_text(size=rel(1.2),vjust=0.2),
            axis.title.x=element_text(size=rel(1.2),vjust=0.2),
            axis.text.x=element_text(size=rel(1.3)),
            axis.text.y=element_text(size=rel(1.3)),
            text = element_text(size=13)) +
      scale_colour_brewer(palette="Set1")

2 つのアブラインは、各エリアの傾向について系統学的に調整された関係を表します。適切なエリア データと同じカラー パレットで ablines を取得することは可能ですか? 最初に指定されたのはエリア A 用で、2 番目はエリア B 用です。

私が使用した：

g <- ggplot_build(p)

最初の色が #E41A1C で 2 番目の色が #377EB8 であることを確認しますが、+geom_abline コマンド内で aes を使用してこれらの色を指定しようとすると、つまり

p <- ggplot(dat, aes(x=log(Explan), y=Response)) + 
      geom_point(aes(group=Area, colour=Area))+
      geom_abline(slope=-0.062712, intercept=0.165886,aes(colour='#E41A1C'))+
      geom_abline(slope= -0.052300, intercept=-0.038691,aes(colour=#377EB8))+
      scale_x_continuous("log(Mass) (g)")+
      theme(axis.title.y=element_text(size=rel(1.2),vjust=0.2),
            axis.title.x=element_text(size=rel(1.2),vjust=0.2),
            axis.text.x=element_text(size=rel(1.3)),
            axis.text.y=element_text(size=rel(1.3)),
            text = element_text(size=13)) +
      scale_colour_brewer(palette="Set1")

ポイントの色を変更し、凡例に追加しますが、これはやりたくありません。

どんなアドバイスでも大歓迎です！

4

2 に答える 2

15

aes()色を直接設定しているので、単に使用する必要はありませんcolour='#E41A1C'。

+geom_abline(slope=-0.062712, intercept=0.165886,colour='#E41A1C')
于 2013-07-03T17:02:40.290 に答える