複数の代わりに1つのgeom_smooth曲線をプロットする

Question

異なる色で表現された3つの異なるカテゴリのグラフをプロットしています。 1つのカーブで全体のデータの傾向を表現したいのですが、geom_smoothを使用すると3つの曲線が得られます。私のコードは次のとおりです。

#plot the data 
ggplot(data=transfer_data, aes(x=DATE_OF_TRANSFER, y=NUMBER_OF_TRANSFERS, colour = region)) + geom_point() + geom_smooth() + scale_colour_manual(values=c("green", "blue", "red", "orange")) 

Answer 1

がこれを解決する2つの方法があります。geom_smooth層で 1）オーバーライドカラーaestetic

#plot the data 
    ggplot(data=transfer_data, 
      mapping=aes(x=DATE_OF_TRANSFER, 
         y=NUMBER_OF_TRANSFERS, 
         colour = region)) + 
    geom_point() + 
    geom_smooth(color="black") + 
    scale_colour_manual(values=c("green", "blue", "red", "orange")) 

または層のみ（複数可）が必要に 2）移動カラーaesteticそれは

#plot the data 
    ggplot(data=transfer_data, 
      mapping=aes(x=DATE_OF_TRANSFER, 
         y=NUMBER_OF_TRANSFERS)) + 
    geom_point(mapping=aes(colour = region)) + 
    geom_smooth() + 
    scale_colour_manual(values=c("green", "blue", "red", "orange"))