r - ggplot2：異なる色の線で接続されているポイントに複数の塗りつぶし色を指定する方法

Question

私は初めてggplot2です。点が線とは異なる色で塗りつぶされている点を含む折れ線グラフを作成したいと思います（下のプロットを参照）。 私が使用しているデータセットが以下のデータセットであると仮定します。

set.seed(100)
data<-data.frame(dv=c(rnorm(30), rnorm(30, mean=1), rnorm(30, mean=2)), 
                 iv=rep(1:30, 3), 
                 group=rep(letters[1:3], each=30))

次のコードを試しました。

p<-ggplot(data, aes(x=iv, y=dv, group=group,  pch=group)) + geom_line() + geom_point()

p + scale_color_manual(values=rep("black",3))+ scale_shape(c(19,20,21)) + 
scale_fill_manual(values=c("blue", "red","gray"))

p +  scale_shape(c(19,20,21)) + scale_fill_manual(values=c("blue", "red","gray"))

しかし、私は欲しいものが得られません。誰かが私を正しい方向に向けてくれることを願っています。ありがとう！

Answer 1

scale_fill_manual()、scale_shape_manual()を設定した場合、またはの内部でscale_colour_manual()のみ使用できます。fill=shape=colour=aes()

ポイントだけの色を変更するには、コールcolour=group内に追加する必要がありgeom_point()ます。

  ggplot(data, aes(x=iv, y=dv, group=group,shape=group)) + 
    geom_line() + geom_point(aes(colour=group)) +
    scale_shape_manual(values=c(19,20,21))+
    scale_colour_manual(values=c("blue", "red","gray"))