Plots using POSIX

Is there a reason that the bottom axis changes color when POSIX data is used
in plot function?

For example:

timedata <- c("2/3/2003","3/4/2003","5/4/2003")
timedata2 <- strptime(timedata,format="%m/%d/%Y")
numdata <- c(2,3,4)
plot(as.POSIXct(timedata2),numdata,col="red",type="o")

As compared to:

numdata2 <- c(3,4,5)
plot(numdata2,numdata,col="red",type="o")

I assume that the work around is to place the box and axis after the plot is
created, correct?

plot(as.POSIXct(timedata2),numdata,type="n")
lines(as.POSIXct(timedata2),numdata,col="blue",type="o")

Is there a reason that the bottom axis changes color when POSIX data is used
in plot function?

I assume that the work around is to place the box and axis after the plot is
created, correct?

On Thu, 26 Jun 2003 07:59:00 -0500, Shawn Way <sway at tanox.com> wrote :

Is there a reason that the bottom axis changes color when POSIX data is used
in plot function?

It's the old problem of too much of ... being passed onwards.  Here's
the current definition:

plot.POSIXct <- function (x, y, xlab = "", xaxt = par("xaxt"), ...) 
{
    axisInt <- function(x, main, sub, xlab, ylab, ...) axis.POSIXct(1,
        x, ...)
    plot.default(x, y, xaxt = "n", xlab = xlab, ...)
    if (xaxt != "n") 
        axisInt(x, ...)
}

The "col" argument is being passed to axisInt, but it should have been
intercepted.  Here's one way to intercept it:

plot.POSIXct <- function (x, y, xlab = "", xaxt = par("xaxt"), col =
par("col"), ...) 
{
    axisInt <- function(x, main, sub, xlab, ylab, ...) axis.POSIXct(1,
        x, ...)
    plot.default(x, y, xaxt = "n", xlab = xlab, col = col, ...)
    if (xaxt != "n") 
        axisInt(x, ...)
}

However, this would still mess up if "lty" or "lwd" were specified;
are there others?