特定のグループのみについて回帰直線を追加する

Question

ggplotに傾向線を追加したいが、重要な関係についてのみ追加する。 geom_smoothまたはstat_smoothは、各グループにトレンドラインを追加しますが、トレンドラインを取得するグループと、そうでないグループを指定します。私のスクリプトの例以下は

：

plot20<-ggplot(data, aes(x=data$Density, y=data$Total.degrees, color=Species, shape=Species)) 
+ geom_point(size=3) 
+ scale_shape_manual(values=shapeset) 
+ scale_colour_manual(values=colorset) 
+ theme(legend.position="none") 
+ geom_smooth(method=lm, se=FALSE) 

Answer 1

一つの解決策は、geom_smooth()内のデータのsubset()を入れて、あなたはトレンドラインをプロットする必要のある値を与えることであろう。

データ使用例mtcars（サンプルデータが提供されていないため）。 subset()cylで4または6の値が選択されます。 Insede geom_smooth()もaes()を繰り返す必要があります。

ggplot(mtcars,aes(wt,mpg,color=factor(cyl)))+geom_point()+ 
    geom_smooth(data=subset(mtcars,cyl==4 | cyl==6), 
       aes(wt,mpg,color=factor(cyl)),method=lm,se=FALSE)