Färbung Legende in Balkendiagramm in R

Question

Ich bin ganz neu zu R und brauche Hilfe bei der Manipulation meiner Grafik. Ich versuche, tatsächliche und prognostizierte Zahlen zu vergleichen, kann aber die Farben der Legenden nicht richtig erfassen. Die Daten sieht wie folgt aus:

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 

Und der Code sieht wie folgt aus:

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) 

Die Grafik sieht letzten Endes wie folgt aus:

Answer 1

Ich glaube, Ihr Problem ist, dass Ihre Daten sind nicht gut formatiert, um ggplot zu verwenden. Sie möchten zuerst Ihren Datenrahmen aufräumen. Sehen Sie sich http://tidyr.tidyverse.org/ an, um sich mit dem Konzept sauberer Daten vertraut zu machen.

Mit dem Tidyverse (ggplot ist ein Teil davon), habe ich Ihre Daten aufgeräumt und ich glaube, dass Sie die gewünschte Plot haben.

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"))