一貫したカラースキームのサイドバイサイドバープロット

Question

私は、共通の変数を共有する異なるデータフレームのデータを使用して、複数のバープロットにわたって一貫したcolour schemeを使用しています。このアプローチは、this questionへの回答に基づいていました。これらのケースのそれぞれで、私は1つの変数を見ていました。

ここで私がしたいのは、同じプロット上の2つの変数を見て、カラースキームを一致させておくことです。これは、同じ色（パレットの最初）、Bのための2つのバーが同じ色（パレットにおける第二）、など

あるべきである必要があります Aのための2つのバーを除いて、次のようになります

サンプルデータ：

mydata <- data.frame("Channel" = LETTERS[1:11], 
        "V1" = seq(1100, 100, -100), 
        "V2"= seq(110, 10, -10)) 

以上のプロットのためのコード：

barplot(t(mydata[,2:3]), beside=T, 
    col=brewer.pal(11, "RdGy"), 
    names.arg=LETTERS[1:11]) 

私は（私の好みである）ggplotでこれをやろうとしてきたが、成功していません。私はreshape2からmeltまでのデータを使用してからfillを使用しましたが、それは2色しか得られません。私はまた、position='dodge'をさまざまな方法で使ってみました。 2番目の変数の棒グラフと折れ線グラフを組み合わせて同様の最終結果を得ることができますが、2重棒グラフを好むでしょう。

また、ggplotを使用することをお勧めしますが、どのような解決策も認められます。

Answer 1

少しハックして解決しました。私はChannelとfamily〜variablesに色を設定しました。第2のものは、position = "dodge"を使用したときに、同じChannelの両方がお互いの上にプロットされるのを防ぎます。

library(ggplot2) 
library(reshape2) 
library(dplyr) 

mydata <- data.frame("Channel" = LETTERS[1:11], 
         "V1" = seq(1100, 100, -100), 
         "V2"= seq(110, 10, -10)) 

df <- mydata %>% 
     melt(id = c("Channel")) 

ggplot(df, aes(x = Channel, y = value, fill = Channel, family = variable)) + 
    geom_bar(stat = "identity", position = "dodge", color = "black") + 
    scale_fill_brewer(palette = "RdGy") 

あなたは別のテーマを使用することができ、背景を好きではない場合。たとえば、ggthemesパッケージのtheme_base()は、あなたと同じように見えるはずですbarplot、

Answer 2

隣接するバーごとに繰り返す色を指定することで、ベースグラフィックを使用できます。

barplot(t(mydata[,2:3]), beside=T, col=rep(brewer.pal(11, "RdGy"), each=2), names.arg=LETTERS[1:11])