stat_summary（）の色を変更する方法

Question

私は生データの2つの列をプロットしようとしています（それらを1つのデータフレームに結合するために溶けて使用しました）。しかし、私は、各列の生データを1組の色にして、エラーが別の色の組をつけたいと思っていますが、動作させることができません。私が得ているプロットは下のリンクにあります。私は生データとエラーバーのために異なる色のペアを持っています。簡単な再生可能な例を以下に説明する。一つの方法は、この周り

dat2.m<-data.frame(obs=c(2,4,6,8,12,16,2,4,6),variable=c("raw","raw","raw","ip","raw","ip","raw","ip","ip"),value=runif(9,0,10)) 

    c <- ggplot(dat2.m, aes(x=obs, y=value, color=variable,fill=variable,size = 0.02)) +geom_jitter(size=1.25) + scale_colour_manual(values = c("blue","Red")) 

    c<- c+stat_summary(fun.data="median_hilow",fun.args=(conf.int=0.95),aes(color=variable), position="dodge",geom="errorbar", size=0.5,lty=1) 

    print(c) 

[1]: http://i.stack.imgur.com/A5KHk.jpg

Answer 1

geom_pointとstat_summaryに繰り返し呼び出しを使用することです。それらの関数の引数dataを使用して、各呼び出しにデータセットのサブセットをフィードし、aes()の外にcolor属性を設定します。それは繰り返してggplotのコンパクトさを幾分打ち負かすが、それはやるだろう。レコードの

c <- ggplot(dat2.m, aes(x = obs, y = value, size = 0.02)) + 
    geom_jitter(data = subset(dat2.m, variable == 'raw'), color = 'blue', size=1.25) + 
    geom_jitter(data = subset(dat2.m, variable == 'ip'), color = 'red', size=1.25) + 
    stat_summary(data = subset(dat2.m, variable == 'raw'), fun.data="median_hilow", fun.args=(conf.int=0.95), color = 'pink', position="dodge",geom="errorbar", size=0.5,lty=1) + 
    stat_summary(data = subset(dat2.m, variable == 'ip'), fun.data="median_hilow", fun.args=(conf.int=0.95), color = 'green', position="dodge",geom="errorbar", size=0.5,lty=1) 

print(c) 

Answer 2

：私は、これは本当に、本当に悪いアイデアだと思います。これが重要なユースケースがない限り、私はあなたの計画を再検討すべきだと思います。

しかし、新しい変数セットを追加して、最後にスペースを埋め込んで回避することができます。伝説と一緒に遊ぶことが必要ですが、これはうまくいくはずです（間違いなく間違っていますが）。

dat2.m<- data.frame(obs=c(2,4,6,8,12,16,2,4,6),variable=c("raw","raw","raw","ip","raw","ip","raw","ip","ip"),value=runif(9,0,10)) 


c <- ggplot(dat2.m, aes(x=obs, y=value, color=variable,fill=variable,size = 0.02)) +geom_jitter(size=1.25) + scale_colour_manual(values = c("blue","Red","green","purple")) 

c<- c+stat_summary(fun.data="median_hilow",fun.args=(conf.int=0.95),aes(color=paste(variable," ")), position="dodge",geom="errorbar", size=0.5,lty=1) 

print(c)