Displaying 2 results from an estimated 2 matches for "meanscale".
2005 Aug 02
1
multiple scale
...# Number of time series on left vertical scale
lty <- c(1:(k+1)) # Line types
col <- c(1:(k+1)) # Line colors
# Scale time series on right vertical axis
scale <- (max(xleft)-min(xleft))/(max(xright)-min(xright))
xright2 <- xright*scale
meanScale <- mean(xleft) - mean(xright2)
xright2 <- xright2 + meanScale
# Plot the series
ts.plot(xleft, xright2, lty=lty, col=col, main=main, ylab=ylab, xlab=xlab,
lwd=lwd, gpars=gpars)
# Add the right vertical axis labels
lab <- seq(round(m...
2004 Mar 24
0
High/low level: Plot 2 time series with different axis (left and ri ght)
...matrix(xleft)) # Number of time series on left vertical scale
lty <- c(1:(k+1)) # Line types
col <- c(1:(k+1)) # Line colors
# Scale time series on right vertical axis
scale <- (max(xleft)-min(xleft))/(max(xright)-min(xright))
xright2 <- xright*scale
meanScale <- mean(xleft) - mean(xright2)
xright2 <- xright2 + meanScale
# Plot the series
ts.plot(xleft, xright2, lty=lty, col=col, main=main, ylab=ylab, xlab=xlab,
lwd=lwd, gpars=gpars)
# Add the right vertical axis labels
lab <- seq(round(min(xright), digits), round(max(xright),...