Spezifische Füllfarben in ggplot2 durch Vorzeichen setzen

Question

Hi wollte die folgende Tabelle anpassen, so dass die Werte unter Null in rot und die oben genannten in dunkelblau gefüllt sind. Wie kann ich das mit ggplot2 machen?

mydata = structure(list(Mealtime = "Breakfast", Food = "Rashers", `2002` = 9.12, 
          `2003` = 9.5, `2004` = 2.04, `2005` = -20.72, `2006` = 18.37, 
          `2007` = 91.19, `2008` = 94.83, `2009` = 191.96, `2010` = -125.3, 
          `2011` = -18.56, `2012` = 63.85), .Names = c("Mealtime", "Food", "2002", "2003", "2004", "2005", "2006", "2007", "2008","2009", "2010", "2011", "2012"), row.names = 1L, class = "data.frame") 
x=ggplot(mydata) + 
    aes(x=colnames(mydata)[3:13],y=as.numeric(mydata[1,3:13]),fill=sign(as.numeric(mydata[1,3:13]))) + 
    geom_bar(stat='identity') + guides(fill=F) 
print(x) 

Answer 1

Die Art und Weise Sie Ihre Daten zu strukturieren ist nicht, wie es in ggplot2 sein sollte:

require(reshape) 
mydata2 = melt(mydata) 

Grund BarPlot:

ggplot(mydata2, aes(x = variable, y = value)) + geom_bar() 

Der Trick ist nun hinzufügen eine zusätzliche Variable, die angibt, ob der Wert negativ oder p ist ostive:

mydata2[["sign"]] = ifelse(mydata2[["value"]] >= 0, "positive", "negative") 

..und verwenden, die in dem Aufruf von ggplot2 (kombiniert mit scale_fill_* für die Farben):

ggplot(mydata2, aes(x = variable, y = value, fill = sign)) + geom_bar() + 
    scale_fill_manual(values = c("positive" = "darkblue", "negative" = "red"))