I have created a boxplot showing perceived risk vs. actual risk in a cohort.
ggplot(data = RiskData, aes(x=Variable, y = Risk)) + geom_boxplot(width = 0.2,