Displaying 1 result from an estimated 1 matches for "strengthbar".
2004 Nov 29
1
Labeling charts within a loop
...RP<-mean(get(paste("school",school.number,sep=""))[["bprr3ccf"]])
LT<-mean(get(paste("school",school.number,sep=""))[["bprl3ccf"]])
IT<-mean(get(paste("school",school.number,sep=""))[["bpri3ccf"]])
strengthbar<-cbind(AV,RP,LT,IT)
pdf(paste("school",school.number,"rel", ".pdf",sep=""))
barplot(strengthbar,names=c("AV", "RP", "LT",
"IT"),width=c(.5,.5,.5,.5),ylim = c(0, 4),col=("salmon"))
legend(1.0,3.8,legend=c(&...