search for: localaxi

...NULL, sub = NULL, xlab = NULL, ylab = NULL, ann = par("ann"), axes = TRUE, frame.plot = axes, panel.first = NULL, panel.last = NULL, asp = NA, ...) { ## These col, bg, pch, cex can be vectors, so exclude them ## Also, axis and box accept some of these localAxis <- function(..., col, bg, pch, cex, lty, lwd) Axis(...) localBox <- function(..., col, bg, pch, cex, lty, lwd) box(...) localWindow <- function(..., col, bg, pch, cex, lty, lwd) plot.window(...) localTitle <- function(..., col, bg, pch, cex, lty, lwd) title(...) if (!is...

...ere is the simplest patch to correct this issue (it fixes both plot with xlim/ylim and matplot). The plot.R was unchanged between 2.7 and current R-devel. It would be great if the patch could be (tested and) applied to both the current patched and the current devel versions. 70,71c70,71 < localAxis(if(is.null(y)) xy$x else x, side = 1, ...) < localAxis(if(is.null(y)) x else y, side = 2, ...) --- > localAxis(xlim, side = 1, ...) > localAxis(ylim, side = 2, ...) It works fine with y given or y NULL, which was an issue before when the above is.null test was in...

...1), ncol=d) > c <- hsv(apply(m, 1, function(x) {sum(x*x)/d}), 1, 1) > pairs(m, col=c) gives me the desired coloring of the points but also colors the axes. Looking at the source for pairs() suggests, that this is the case because col is part of the ... argument list which is passed on to localAxis (and from there to axis). Wouldn't it be more approptiate to use the same color box() uses to draw the border around each scatterplot? If yes, should I open a bug for this or how would such a feature request be handled? -- Olaf Mersmann

...1), ncol=d) > c <- hsv(apply(m, 1, function(x) {sum(x*x)/d}), 1, 1) > pairs(m, col=c) gives me the desired coloring of the points but also colors the axes. Looking at the source for pairs() suggests, that this is the case because col is part of the ... argument list which is passed on to localAxis (and from there to axis). Wouldn't it be more approptiate to use the same color box() uses to draw the border around each scatterplot? If yes, should I open a bug for this or how would such a feature request be handled? -- Olaf Mersmann

...efault, with default TRUE) - drop support for the 'axes' flag in Axis.table's '...' argument (which is neither documented nor supported by other Axis.* functions AFAICS) - in plot.table and Axis.table, forward '...' to axis() (in plot.table: "filtered" via a localaxis()-function similar to localAxis() in plot.default) This would remove the minor bug and simplify the code. As a downside, the change breaks code which uses 'axes' as '...'-argument in a call to Axis.table(). But, as already mentioned, this is neither documented nor working for...

...uot;x", "y"), ""), + collapse="") + xy <- xy.coords(x, y, xlabel, ylabel, log=log) + plot.xy(xy, type, ...) + return(invisible()) + } + ## These col, bg, pch, cex can be vectors, so exclude them ## Also, axis and box accept some of these localAxis <- function(..., col, bg, pch, cex, lty, lwd) Axis(...) localBox <- function(..., col, bg, pch, cex, lty, lwd) box(...) localWindow <- function(..., col, bg, pch, cex, lty, lwd) plot.window(...) localTitle <- function(..., col, bg, pch, cex, lty, lwd) title(...) - xla...

...9.09 0.02 9.09 plot.new 0.02 9.09 0.02 9.09 sort 0.02 9.09 0.02 9.09 Axis 0.02 9.09 0.00 0.00 Axis.default 0.02 9.09 0.00 0.00 legend 0.02 9.09 0.00 0.00 localAxis 0.02 9.09 0.00 0.00 localBox 0.02 9.09 0.00 0.00 par 0.02 9.09 0.00 0.00 rect 0.02 9.09 0.00 0.00 rect2 0.02 9.09 0.00 0.00 $sample.interval [1] 0.02 $samp...

...raceback ------------------------------------------ s> source("SysVUserTime.R") Loading required package: DBI *** caught segfault *** address f9, cause 'memory not mapped' Traceback: 1: axis(side = side, at = at, labels = labels, ...) 2: Axis.default(...) 3: Axis(...) 4: localAxis(x, side = 1, ...) 5: plot.default(g$fit, g$res, xlab = "Fitted", ylab = "Residuals") 6: plot(g$fit, g$res, xlab = "Fitted", ylab = "Residuals") 7: eval.with.vis(expr, envir, enclos) 8: eval.with.vis(ei, envir) 9: source("SysVUserTime.R") Poss...