1

サンプルのデータフレームと相対geom_barプロットを考えてみましょう

data = data.frame(method=LETTERS[sample(x=c(1,2,3),size=100,replace=T)], 
                  x1=sample(x=c(1,2,3,4,5,6),size=100,replace=T), 
                  x2=sample(x=c(1,2,3,4,5,6),size=100,replace=T),
                  d =letters[sample(c(1,2,3,4),size=100,replace=T)] )

ggplot()+
  geom_bar(data=data, aes(x=method, y=x1),stat="identity") +
  facet_wrap(~d, ncol=2)

赤の各プロットの小さい方の列に色を付けたいと思います。どうやってやるの？

4

1 に答える 1

4

どの値が最小であるかを指定する新しい列を作成できるように、データを折りたたまずにそれを行う方法がわかりません。次に、その価値に美学を付加できます。これがあなたのデータを使った崩壊戦略です

collapsed < -as.data.frame(xtabs(x1~d+method, data))
collapsed$ismin <- with(collapsed, ave(Freq,d,FUN=function(x) x==min(x)))

そして今、私たちはプロットします

ggplot(collapsed, aes(x=method, y=Freq, fill=as.factor(ismin)))+
  geom_bar(stat="identity") +
  facet_wrap(~d, ncol=2) + 
  scale_fill_manual(breaks=c("0","1"), values=c("black","red"), guide="none")

その結果、

各ファセットで赤く着色された最小 mbar の bar char

于 2014-06-03T01:08:00.123 に答える