Displaying 1 result from an estimated 1 matches for "ndvikb".
Did you mean:
ndvi
2004 Mar 20
2
labels on axis(4) and adaptation of legend to size of the plot
...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",...