[R] labels on axis(4) and adaptation of legend to size of the plot

[Jan Verbesselt]

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)