Odd ggplot gestapelt bar Ausgang

Question

Ich habe Dutzende von Parzellen weit komplizierter, aber aus irgendeinem Grund mein Gehirn dieses heraus nicht funktioniert ..

ein Datenrahmen und ein Code von Da ...

# libraries 
require(ggplot2) 
require(dplyr) 
require(tidyr) 

# create data 
data <- data.frame("When"=c("(2008 - 2009)","(2010 - 2011)","(2012 - 2013)","(2014-2015)","Cannot Remember"), 
        "Friend"=c(2,7,15,3,0), 
        "News Website"=c(2,10,8,3,1), 
        "Printed Newspaper"=c(0,1,3,0,0), 
        "Academic Paper"=c(0,0,2,0,0), 
        "Online Forum"=c(6,16,25,6,1), 
        "Cannot Remember"=c(1,3,7,2,1) 
        ) 

# reshape to long format 
data <- gather(data,var,val,2:7) 

# plot stacked bar 
ggplot(data[which(data$val>0),],aes(x=When, Y=val)) + 
     geom_bar(aes(fill=var)) 

Ich bekomme eine gestapelte Bar und versuchte sogar umgestalten nach this post aber die Bars (und Sub Bars) sind definitiv nicht die Werte in der Tabelle, Richtwert um 6 und ich kann nicht für das Leben von mir sehen, warum. Bis jetzt 2 Stunden hantieren und ich kann das nicht richtig machen.

Bitte kann mir jemand mein verwirrtes Gehirn retten?

Answer 1

Hallo Sie Y in Großbuchstaben haben in Ihrem aes, und Sie haben stat = "identity" zu setzen, versuchen:

ggplot(data[which(data$val>0),],aes(x=When, y=val)) + 
    geom_bar(aes(fill=var), stat = "identity")