棒グラフ内の色分けの凡例R

Question

私はRにはまったく失敗しており、グラフを操作する上で助けが必要です。私は実際の数値と予測数値を比較しようとしていますが、伝説の色付けは正しくできません。データは次のようになります。グラフは、このように見える終わる

ggplot(sam4, aes(hierarchy))+ theme_bw() + 
    geom_bar(aes(y = Actual, colour="Actual"),fill="#66FF33", stat="identity",position="dodge", width=0.40) + 
    geom_bar(aes(y = Forecast, colour="Forecast"), fill="#FF3300", stat="identity",position="dodge", width=0.2) 

：

hierarchy Actual Forecast 
    <fctr>  <dbl>  <dbl> 
1   E  9313  5455 
2   K  6257  3632 
3   O  7183  8684 
4   A  1579  6418 
5   S  8755  0149 
6   D  5897  7812 
7   F  1400  8810 
8   G  4960  5710 
9   R  3032  0412 

とコードのようになります

Answer 1

私はあなたの問題があることであると信じてあなたのデータはggplotを使うのにうまくフォーマットされていません。まずデータフレームを整理したいと思っています。整頓されたデータの概念を理解するには、http://tidyr.tidyverse.org/をご覧ください。

tidyverse（ggplotはその一部です）を使用して、私はあなたのデータを整理しました。私はあなたが望むプロットを得たと信じています。

library(tidyverse) #includes ggplot 
newdata <- gather(sam4, actualorforecast, value, -hierarchy) 
ggplot(newdata, aes(x = hierarchy)) + 
    theme_bw() + 
    geom_bar(aes(y = value, fill = actualorforecast), 
      stat = "identity", 
      width = ifelse(newdata$actualorforecast == "Actual", .4, .2), 
      position = "dodge") + 
    scale_fill_manual(values= c(Actual ="#66FF33", Forecast="#FF3300"))