複数geom_barにggplotする凡例を追加する方法

Question

私は赤と黒の色でそれに凡例を追加するこの

# two data frames 
sf = data.frame(days = c('05-06', '05,08'), Frequency = c(0, 2)) 
normal = data.frame(days = c('05-06', '05,07'), Frequency = c(1, 3)) 

# plot 
ggplot() + 
    geom_bar(aes(y = Frequency, x = days), data = normal, 
      stat="identity", colour = 'black') + 
    geom_bar(aes(y = Frequency, x = days), data = sf, 
      stat="identity", colour = 'red') 

ようなコードは、私は私の質問に最も関連のソリューションです。このoneを試してみましたしかし、それはちょうど最初のバープロットの伝説を示しています。どのように黒と赤の色でバプテットの伝説を持つことができますか？

注意：1つのデータフレームではなく、2つの別々のデータフレームで、行数が異なるため、これらを一緒にマージすることはできません。そこで私は2つの棒グラフをプロットします。上記のコードはプロットを塗りつぶします、私が望むのは、最初の棒グラフが黒で、2番目の棒グラフが赤であることを示す凡例を追加することです。

Answer 1

ggplotの多くの質問と同様に、直面している問題は正しい形式ではないデータが原因です。列がdays,Frequency、groupの単一のデータフレームが必要です。

ggplotの審美的なグループ内の色を設定し、色と黒を設定する手動のカラースケールを指定します。 http://ggplot2.tidyverse.org/reference/：

library(ggplot2) 

df = data.frame(days = c('05-06', '05,08', '05-06', '05,07'), 
       Frequency = c(0, 2, 1, 3), 
       group = c("sf", "sf", "normal", "normal")) 


# plot 
ggplot(df, aes(y = Frequency, x = days, fill = group)) + 
    geom_bar(stat="identity") + 
    scale_fill_manual(values = c("red", "black")) 

私がデータを使用する方法についての理解の少し多くを得るためにggplot参照指導の基本を読んで励ます

。さらに、ggplotのチートシートは参考になります： https://www.rstudio.com/wp-content/uploads/2015/03/ggplot2-cheatsheet.pdf