1

同じバープロットに 2 つのデータ系列 (同じタイプとメジャー数ですが、2 つのタイムポイントで測定) をプロットしたいと思います。好ましくは、第１のシリーズは灰色でプロットされ、第２のシリーズはシリーズ１のデータが依然として見えるように透明度のある色でプロットされる。私が持っているデータは次の形式です。

MyData = data.frame(
  method=rep(c("A","B","C","D","E"),times=3),
  time1=rnorm(30,10,3),
  time2=rnorm(30,8,2),
  lab=rep(rep(c(1,2,3),each=5),times=2),
  cat=rep(c(1,2),each=15)
  )

探しているプロットのタイプを表示するために、以下のデータ シリーズ 1 をプロットするためのコードを追加しました。

p <- ggplot(data = MyData,
            aes(x=lab,
                y=time1,
                fill=method))
p + geom_bar(stat="identity",
             position="dodge",
             alpha=.3) +
  facet_grid(. ~ cat)

最終的に、データ系列のどちらがグレーでどちらがカラーであるかは、それらが互いの上にプロットされ、両方が表示されている限り、実際には問題ではありません。

すべての提案を歓迎します!

4

2 に答える 2

2

アクティブな は 1 つしか存在できないfill_scaleため、変数メソッドを別のもの (groupまたは) にマップする必要がありますcolor。

library(ggplot2)

MyData = data.frame(
  method=rep(c("A","B","C","D","E"),times=3),
  time1=rnorm(30,10,3),
  time2=rnorm(30,8,2),
  lab=rep(rep(c(1,2,3),each=5),times=2),
  cat=rep(c(1,2),each=15)
)

p <- ggplot(data = MyData,
            aes(x=lab)) +
  geom_bar(aes(y=time2,fill=method),
           stat="identity",
           position="dodge",
           alpha=.3
           ) +
  geom_bar(aes(y=time1,group=method),
           stat="identity",
           position="dodge",
           alpha=.3) +
  scale_fill_discrete() +
  facet_grid(. ~ cat)
p

ここに画像の説明を入力

于 2015-07-09T09:15:46.823 に答える