Jak utworzyć skumulowany wykres słupkowy ze skumulowanych danych w ggplot2

Question

Próbuję utworzyć skumulowany wykres słupkowy za pomocą ggplot 2. Moje dane w szerokiej formie wyglądają tak. Liczby w każdej komórce to częstotliwość odpowiedzi.

activity       yes no dontknow 
Social events      27 3 3 
Academic skills workshops   23 5 8 
Summer research     22 7 7 
Research fellowship    20 6 9 
Travel grants      18 8 7 
Resume preparation    17 4 12 
RAs        14 11 8 
Faculty preparation    13 8 11 
Job interview skills    11 9 12 
Preparation of manuscripts  10 8 14 
Courses in other campuses   5 11 15 
Teaching fellowships    4 14 16 
TAs        3 15 15 
Access to labs in other campuses 3 11 18 
Interdisciplinary research   2 11 18 
Interdepartamental projects  1 12 19 

I stapia tę tabelę przy użyciu reshape2 i

melted.data(wide.data,id.vars=c("activity"),measure.vars=c("yes","no","dontknow"),variable.name="haveused",value.name="responses") 

to ile mogę dostać. Chcę utworzyć skumulowany wykres słupkowy z działaniami na osi X, częstość odpowiedzi na osi y, a każdy słupkowy przedstawiający rozkład tak, nos i dontknows

próbowałam

ggplot(melted.data,aes(x=activity,y=responses))+geom_bar(aes(fill=haveused)) 

ale obawiam się, że to nie jest właściwe rozwiązanie.

Każda pomoc jest doceniana.

Answer 1

Nie powiedziałeś, co jest nie tak w twoim rozwiązaniu. Ale niektóre problemy, które mogą być interpretowane jako problemy i jedno możliwe rozwiązanie dla każdego, to:

• Etykiety znaczników osi X biegną do siebie. ROZWIĄZANIE - obróć etykiety znaczników;
• Kolejność, w jakiej wyświetlane są etykiety (i odpowiadające im paski), nie jest taka sama jak kolejność w oryginalnej ramce danych. ROZWIĄZANIE - zmień kolejność poziomów "aktywności";
• Aby umieścić tekst wewnątrz pręty ustawić parametr vjust w position_stack 0,5

Poniższy może być początek.

# Load required packages 
library(ggplot2) 
library(reshape2) 

    # Read in data 
df = read.table(text = " 
activity       yes no dontknow 
Social.events      27 3 3 
Academic.skills.workshops   23 5 8 
Summer.research     22 7 7 
Research.fellowship    20 6 9 
Travel.grants      18 8 7 
Resume.preparation    17 4 12 
RAs        14 11 8 
Faculty.preparation    13 8 11 
Job.interview.skills    11 9 12 
Preparation.of.manuscripts  10 8 14 
Courses.in.other.campuses   5 11 15 
Teaching.fellowships    4 14 16 
TAs        3 15 15 
Access.to.labs.in.other.campuses 3 11 18 
Interdisciplinay.research   2 11 18 
Interdepartamental.projects  1 12 19", header = TRUE, sep = "") 

    # Melt the data frame 
dfm = melt(df, id.vars=c("activity"), measure.vars=c("yes","no","dontknow"), 
    variable.name="haveused", value.name="responses") 

    # Reorder the levels of activity 
dfm$activity = factor(dfm$activity, levels = df$activity) 

    # Draw the plot 
ggplot(dfm, aes(x = activity, y = responses, group = haveused)) + 
geom_col(aes(fill=haveused)) + 
theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.25)) + 
geom_text(aes(label = responses), position = position_stack(vjust = .5), size = 3) # labels inside the bar segments