4

塗りつぶしが値（0.05）を条件とするいくつかの密度プロットに取り組んでいます

library(plyr)
library(ggplot2)

allNorm<-data.frame(value=rnorm(300),
                 aCategory=rep(1:3, c(100, 100, 100)))
allNorm<-ddply(allNorm, .(aCategory), mutate,
            shapWilkP=shapiro.test(value)$p.value)

mixed<-data.frame(value=c(rlnorm(200), rnorm(100)),
                aCategory=rep(1:3, c(100, 100, 100)))
mixed<-ddply(mixed, .(aCategory), mutate,
            shapWilkP=shapiro.test(value)$p.value)

ggplot(allNorm, (aes(x=value)))+
  geom_density(aes(fill=shapWilkP>0.05))+
  facet_wrap(~aCategory)

ggplot(mixed, (aes(x=value)))+
  geom_density(aes(fill=shapWilkP>0.05))+
  facet_wrap(~aCategory)

これは (ほぼ) 機能します。TRUE を常に青に強制する方法を考え出す必要があります。

誰か助けてくれませんか？

ありがとう

4

1 に答える 1

5

と値scale_fill_manual()に目的の色を設定した両方のプロットに追加します。TRUEFALSE

+ scale_fill_manual(values=c("FALSE"="red","TRUE"="blue"))
于 2013-03-14T18:26:55.137 に答える