# --------------------------------------------------------
# Figure 1 for The Psychology of Moral Reasoning
# --------------------------------------------------------
# Monica Bucciarelli, Sangeet Khemlani, Phil Johnson-Laird

library(gplots)

makeGraph <- function(data, colors, upper, lower) {
 	par(lwd=2)
 	mp <- barplot2(t(t(data)), beside = TRUE,
         col = colors,
         legend = rownames(data), ylim = c(0, 14),
         cex.names = 1.5, plot.ci = TRUE, ci.l = lower, ci.u = upper, ci.lwd = 2, ylab="Seconds",
         prcol="gray90", grid.lwd = 2, plot.grid=TRUE, grid.col="white", border="white")
    box()
}

# ------------------

exp1 <- data.frame(Emotional = c(8.9, 11.1, 8.5),
				   Moral = c(9.5, 10.3, 8.7))
rownames(exp1) <- c("Emotion prevalent", "Evaluation prevalent", "Neutral in prevalence")

ci.u <- data.frame(Emotional = c(9.35, 11.89, 9.41), Moral = c(10.7, 11.75, 9.42))
ci.u <- t(t(ci.u))
ci.l <- data.frame(Emotional = c(8.45, 10.3, 7.59), Moral = c(8.3, 8.85, 7.98))
ci.l <- t(t(ci.l))

colnames(exp1) <- c("Emotional question", "Moral question")

makeGraph(t(exp1), c("gray20", "gray40"), t(ci.u), t(ci.l))