Как создать гистограмму с накоплением из суммированных данных в ggplot2

Я пытаюсь создать гистограмму с накоплением, используя ggplot 2. Мои данные в широкой форме выглядят так. Цифры в каждой ячейке — это частота ответов.

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

Я расплавил эту таблицу, используя reshape2 и

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

Это то, что я могу получить. Я хочу создать столбчатую диаграмму с действиями по оси x, частотой ответов по оси y и каждой полосой, показывающей распределение ответов «да», «нет» и «не знаю»

. Я пробовал

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

но боюсь это не правильное решение

Любая помощь горячо приветствуется.