Hi all.
Currently, if you try:
> lag.plot(1:10)
you get superposed labels '1' and '10'. Things go worse in more extreme cases:
x <- ts(1:10)
x1 <- lag(x, 4)
plot(x1, x)
This is due to a mistake in plot.ts. My suggestion is the following
really minimal patch to plot.ts:
@@ -530,7 +530,7 @@ plot.ts <-
text(xy, labels =
if(is.character(xy.labels)) xy.labels
else if(all(tsp(x) == tsp(y))) formatC(time(x), width = 1)
- else seq_along(x),
+ else seq_along(xy$x),
col = col, cex = cex)
if(xy.lines)
lines(xy, col = col, lty = lty, lwd = lwd,
Best regards,
Antonio.
--
Antonio, Fabio Di Narzo
Ph.D. student at
Department of Statistical Sciences
University of Bologna, Italy
diff --git a/src/library/stats/R/ts.R b/src/library/stats/R/ts.R
index 53de297..de5995c 100644
--- a/src/library/stats/R/ts.R
+++ b/src/library/stats/R/ts.R
@@ -530,7 +530,7 @@ plot.ts <-
text(xy, labels =
if(is.character(xy.labels)) xy.labels
else if(all(tsp(x) == tsp(y))) formatC(time(x), width = 1)
- else seq_along(x),
+ else seq_along(xy$x),
col = col, cex = cex)
if(xy.lines)
lines(xy, col = col, lty = lty, lwd = lwd,
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
