[R] help- subtitles for multiple charts

jalen jalen at mtu.edu
Thu Jun 23 22:41:00 CEST 2011


http://r.789695.n4.nabble.com/file/n3620982/mbeFORUM.csv mbeFORUM.csv 

I uploaded my data and one more time the script (*adjusted version*):

pMBE<- MBE[MBE$left!=0,]
pMBE$bt<- interaction(pMBE$Block,pMBE$trt)
par(mfrow=c(3,3), oma=c(2,0,2,0))
for(i in unique(pMBE$bt)){
ss <- pMBE$bt==i
plot(pMBE$Year[ss], pMBE$DBH[ss], xlab="Year", ylab="DBH [in]",
ylim=range(0:12), col=28)
sm<-loess(DBH~Year, data=pMBE[ss,])
x=seq(2004, 2010, by=1)                   
points(x, predict(sm, data.frame("Year"=x)), type="l", col=650,
title("Diameter", adj=0.5, outer=T))
}

--
View this message in context: http://r.789695.n4.nabble.com/help-subtitles-for-multiple-charts-tp3620453p3620982.html
Sent from the R help mailing list archive at Nabble.com.



More information about the R-help mailing list