Displaying 1 result from an estimated 1 matches for "sch_names05".
2005 Aug 24
2
Remove NAs from Barplot
...7','Grade \n 8'),
ylim=c(0,120), ylab="Percentage", xlab="Grade Level")
tot <- round(math.bar,digits=0)
graph.max <- max(math.bar, apmxpmeet, na.rm=T)
text(math.barplot, graph.max+5, format(tot), xpd = TRUE, col = c("blue",
"orange") )
tmp$sch_nameS05 <- as.character(tmp$sch_nameS05)
legend(2,120,legend=(c(tmp$sch_nameS05, "Average")),
fill=c("blue","orange"))
Thanks,
Harold
[[alternative HTML version deleted]]