add limits

statistics.Rnw

@@ -165,11 +165,11 @@ write.csv(data.frame(Number=grades$legi, Grade=grades$grade, Points=grades$point
 <<grades, echo=FALSE, warning=FALSE, error=TRUE, fig.width=5, fig.height=5, out.width="0.49\\linewidth", fig.show='hold', fig.env="figure*", fig.subcap=c("Histogram", "CDF"), fig.pos='h!'>>=
 ggplot(grades, aes(x=grade)) +
     geom_histogram(binwidth = 0.25, alpha=0.8) +
-    scale_x_continuous(breaks=seq(1,6, by=1)) +
+    scale_x_continuous(breaks=seq(1,6, by=1), limits=c(1,6)) +
     ylab("Num. Stud")
 ggplot(grades, aes(x=grade)) +
     stat_ecdf()  +
-    scale_x_continuous(breaks=seq(1,6, by=1)) +
+    scale_x_continuous(breaks=seq(1,6, by=1), limits=c(1,6)) +
     ylab("Percentage")
 @ %def