1

Suppose I have 1 question with 8 choices. A respondent can select minimum 1 choice and maximum 2 choices. I have coded a dummy for each choice.

Now it's easy to use ggplot to plot 8 graph where each graph containing yes and no barplot. However my question is how to use ggplot in order to create a single plot that removes all no and keep only the yes (so in my case the graph should have 8 yes bar)

respondant1 = c("yes","no","no","no","no","no","no","yes")
respondant2 = c("yes","no","no","no","no","no","no","yes")
respondant3 = c("no","no","no","no","yes","no","no","no")
respondant4 = c("no","yes","no","no","no","yes","no","no")
respondant5 = c("no","no","yes","no","no","no","no","no")
respondant6 = c("no","yes","no","no","no","no","no","no")
respondant7 = c("no","no","no","no","no","no","yes","yes")
respondant8 = c("no","no","no","yes","no","no","no","no")

new = rbind(respondant1,respondant2,respondant3,respondant4,
            respondant5,respondant6,respondant7,respondant8)

new = as.data.frame(new)
tonytonov
  • 25,060
  • 16
  • 82
  • 98
S12000
  • 3,345
  • 12
  • 35
  • 51

1 Answers1

1

Conversion to factor (the first line) is not necessary, however, factor is a suitable data structure for responses. The only thing left to do is to aggregate positive scores, and to use geom_bar with stat=identity.

new[] <- lapply(new, function(x) factor(x, levels = c('yes', 'no')))
yes_plot <- data.frame(question=colnames(new), 
                       yes=sapply(new, function(x) sum(x == 'yes')))
ggplot(yes_plot, aes(question, yes)) + geom_bar(stat='identity')

enter image description here

tonytonov
  • 25,060
  • 16
  • 82
  • 98