Pogrupowany wykres słupkowy w ggplot

Mam plik ankiety, w którym wierszu znajdują się pytania dotyczące obserwacji i kolumny.

Oto kilkafałszywe dane wyglądają na:

People,Food,Music,People
P1,Very Bad,Bad,Good
P2,Good,Good,Very Bad
P3,Good,Bad,Good
P4,Good,Very Bad,Very Good
P5,Bad,Good,Very Good
P6,Bad,Good,Very Good

Moim celem jest stworzenie tego rodzaju fabułyggplot2.

Absolutnienie przejmuj się kolorami, wzornictwem itp.Fabuła nie odpowiada fałszywym danym

Oto moje fałszywe dane:

raw <- read.csv("http://pastebin.com/raw.php?i=L8cEKcxS",sep=",")
raw[,2]<-factor(raw[,2],levels=c("Very Bad","Bad","Good","Very Good"),ordered=FALSE)
raw[,3]<-factor(raw[,3],levels=c("Very Bad","Bad","Good","Very Good"),ordered=FALSE)
raw[,4]<-factor(raw[,4],levels=c("Very Bad","Bad","Good","Very Good"),ordered=FALSE)

Ale jeśli wybiorę Y jako licznika, stanę przed problemem wyboru wartości X i grupy ... Nie wiem, czy mogę odnieść sukces bez użyciareshape2... Zmęczyłem się też używaniem przeróbki z funkcją topienia. Ale nie rozumiem, jak go używać ...

questionAnswers(1)

yourAnswerToTheQuestion