That's strange. When I run
example(plot.zoo)
its also cut off but if I run the very same code by copying and pasting it into
my session then its not cut off:
> packageDescription("zoo")$Version
[1] "1.4-0"
> R.version.string
[1] "R version 2.6.0 Patched (2007-10-08 r43124)"
library(zoo)
example(plot.zoo)
opar <- par(mai = c(.8, .8, .2, .8))
plot(z[,1], type = "l",
xlab = "X axis label", ylab = colnames(z)[1])
Waiting to confirm page change...
par(new = TRUE)
plot(z[,2], type = "l", ann = FALSE, yaxt = "n", col = "blue")
axis(4)
legend(x = "topleft", bty = "n", lty = c(1,1), col = c("black", "blue"),
legend = paste(colnames(z), c("(left scale)", "(right scale)")))
usr <- par("usr")
# mtext line should replace text line if y labels are to have same orientation
# mtext(colnames(z)[2], 4, 2, col = "blue")
text(usr[2] + .1 * diff(usr[1:2]), mean(usr[3:4]), colnames(z)[2],
srt = -90, xpd = TRUE, col = "blue")
par(opar)
On 10/20/07, Dave Hewitt <[EMAIL PROTECTED]> wrote:
> I was curious about the exact same question that John Theal posed - how to
> get a second y-axis label for a plot of two data series against a common x
> (in my case, time).
>
> I tried two different methods - one in lattice and one in plot. Both times
> the y-axis on the right side appears but the label does not. Similar to
> John's comment, it appears that there is not enough room for the label.
>
> Gabor mentioned that the plot.zoo examples give a plot like this. When I
> run that series of examples, #7 appears to be what Gabor was referring to,
> but even there the label for the right-hand y-axis is missing.
>
> Help?
>
> Dave Hewitt
>
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
