Hi weekend R helpers,
*Is it possible to get a ylabel on the right hand side axis ==> axis(4)?
Thankx,
Jan
opar <- par(mfrow = c(2,1))
plot(ts.Origi[,1],ylab='NDII', main=name)
# Add the legend text in the right order
legend.txt <- c("NDII", "Inverse KBDI")
legend(2001.8,0.29, legend.txt,col=c(1,2), lty=1)
par(new=T)
plot(ts.Origi[,2], yaxt="n", type="l", col=2, las=1, ylab="")
axis(4)
plot(ts.NDVIKB[,1],ylab='NDVI', main=name)
# Add the legend text in the right order
legend.txt <- c("NDVI", "Inverse KBDI")
legend(2001.8,0.42, legend.txt,col=c(1,2), lty=1)
par(new=T)
plot(ts.NDVIKB[,2], yaxt="n", type="l", col=2, las=1, ylab="")
axis(4)
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
