hist(data$praise_rejection)

ggplot(data=data, aes(x=vignette_response)) +
  geom_histogram(binwidth=3) +
  ggtitle("Histogram of vignette response by condition") +
  labs(x="vignette response", y="count prob of helpfulness") +
  facet_wrap(~condition)