search for: apmxpmeet

...'m creating a series of barplots using Sweave that must assume a standard format. This is student achievement data and the x-axis must include all grades 3 to 8. In some cases, the data for a grade (or more than one grade) are missing in the vector math.bar, but are never missing for the vector apmxpmeet. The following sample code illustrates the issue. Using the code below to create the plot works fine. However, the following command is designed to place the data onto the plot: text(math.barplot, graph.max+5, format(tot), xpd = TRUE, col = c("blue", "orange") ) This does wor...

...ing of the bars and the data and then also have the labels for the y-axis not print after the value 100%? In looking at ?legend I didn't see an option that would address this. Below is some code that you can use to create a similar chart. Thanks, Harold math.bar <- c(53,31,55,28,55,100) apmxpmeet <- c(47, 50, 49, 50, 49, 46) par(ps=10) math.bar <- rbind(math.bar, apmxpmeet) math.barplot <- barplot(math.bar, beside=T, col=c('blue','orange'), names=c('Grade \n 3','Grade \n 4','Grade \n 5','Grade \n 6','Grade \n 7','Grade \n...