gistfile1.r

ggplot(db[db$gender %in% c("Male", "Female"), ], 
       aes(x=course, fill=gender, stat="identity")) + 
  geom_bar(position="fill", width = .5) + 
  geom_bar(data=db,mapping=aes(x="All Courses",fill=gender)) + 
  labs(title="Gender distribution") + 
  coord_flip() +
  scale_x_discrete(labels = course.titles) + 
  scale_y_continuous(labels = percent)