Disgust sensitivity and GMO and Anti-vax attitudes
This comes from our work on disgust sensitivity and "health purity attitudes." Probably landing on a blog post at sometime in the future.
R code, made with ggplot2 package
# Plot 1: Study 1, DS and GMO corrstats <- cor.test(study1$DS, study1$GMO) p <- round(corrstats$p.value, 3) r <- round(corr_stats$estimate, 2) n <- nrow(study1)
plotTitle <- paste0("Study 1: Pathogen Disgust Sensitivity\n Positively Correlated with Opposition to GM Foods\n (n = ",n,")\n\n r = ", r, ", p = ", p) ggplot(study1, aes(x = DS, y = GMO)) + geom_jitter(alpha = 0.5) + geom_smooth(method = "lm", color = "black") + scale_y_continuous(breaks = 1:7) + xlab("\nPathogen Disgust Sensitivity") + ylab("Opposition to GM Food\n") + ggtitle(plotTitle) + theme_bw()