antivax-attitudes

commit f2ec3e6d5188be0057b4a8928f6f8dfaa6e2727e
parent 8f681fb2165e1fd237ace7e409f9568df8743d26
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Sat, 29 Aug 2015 22:44:55 -0400

Just touching up the plot.

Diffstat:
M
ggPostPlot.R
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ggPostPlot.R b/ggPostPlot.R
@@ -61,6 +61,10 @@ ggPosteriorPredictive <- function(modelData, codaObject,
     geom_point(aes(y = posterior_mean), 
                size=3, color="red") + 
     geom_errorbar(aes(ymin = posterior_hdi_low, ymax = posterior_hdi_high), 
-                  size=2, color="red", width=0)
+                  size=2, color="red", width=0) + 
+    scale_x_continuous(breaks = 1:6) + # XXX hardcoded 6
+    scale_y_continuous(limits = c(0, 1)) +
+    xlab("Response") + 
+    ylab("Proportion of Responses")
   return(p)
 }