StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p><code>axis.POSIXct()</code> already works quite hard to guess suitable pretty values for the axis, so I would start by hacking that. At the moment, it relies internally on using <code>pretty()</code> applied to the some function of the datetimes. It uses the defaults for <code>pretty()</code> so you could hack the function to add an <code>n</code> or <code>min.n</code> argument which would increase the number of pretty marks selected.</p> <p>Copy <code>axis.POSIXct()</code> to your own function/file (give it a new name). Add a <code>n</code> or <code>min.n</code> argument to the definition, probably with larger values as defaults than those used by the <code>pretty()</code> function. And pass that to each of the <code>pretty()</code> calls that is made.</p> <p>Try it out. If it works reasonably well, then you can do <code>fixInNamespace(axis.POSIXct)</code> to make the same changes to the actual function so it gets used on all plots for which it is called.</p> <p>P.S. Here is a possible hack</p> <pre><code>function (side, x, at, format, labels = TRUE, n = 5, ...) { mat <- missing(at) || is.null(at) if (!mat) x <- as.POSIXct(at) else x <- as.POSIXct(x) range <- par("usr")[if (side%%2) 1L:2L else 3L:4L] d <- range[2L] - range[1L] z <- c(range, x[is.finite(x)]) attr(z, "tzone") <- attr(x, "tzone") if (d < 1.1 ) { sc <- 0.001 if (missing(format)) format <- "%H:%M:%OS6" } else if (d < 1.1 * 30) { sc <- 1 if (missing(format)) format <- "%H:%M:%OS3" } else if (d < 1.1 * 60) { sc <- 1 if (missing(format)) format <- "%H:%M:%S" } else if (d < 1.1 * 30 * 60) { sc <- 60 if (missing(format)) format <- "%H:%M:%S" } else if (d < 1.1 * 60 * 60) { sc <- 60 if (missing(format)) format <- "%H:%M" } else if (d < 1.3 * 60 * 60 * 24) { sc <- 60 * 60 if (missing(format)) format <- "%H:%M" } else if (d < 2 * 60 * 60 * 24) { sc <- 60 * 60 if (missing(format)) format <- "%a %H:%M" } else if (d < 7 * 60 * 60 * 24) { sc <- 60 * 60 * 24 if (missing(format)) format <- "%a" } else { sc <- 60 * 60 * 24 } if (d < 60 * 60 * 24 * 50) { zz <- pretty(z/sc,n=n) z <- zz * sc z <- .POSIXct(z, attr(x, "tzone")) if (sc == 60 * 60 * 24) z <- as.POSIXct(round(z, "days")) if (missing(format)) format <- "%b %d" } else if (d < 1.1 * 60 * 60 * 24 * 365) { z <- .POSIXct(z, attr(x, "tzone")) zz <- as.POSIXlt(z) zz$mday <- zz$wday <- zz$yday <- 1 zz$isdst <- -1 zz$hour <- zz$min <- zz$sec <- 0 zz$mon <- pretty(zz$mon,n=n) m <- length(zz$mon) M <- 2 * m m <- rep.int(zz$year[1L], m) zz$year <- c(m, m + 1) zz <- lapply(zz, function(x) rep(x, length.out = M)) zz <- .POSIXlt(zz, attr(x, "tzone")) z <- as.POSIXct(zz) if (missing(format)) format <- "%b" } else { z <- .POSIXct(z, attr(x, "tzone")) zz <- as.POSIXlt(z) zz$mday <- zz$wday <- zz$yday <- 1 zz$isdst <- -1 zz$mon <- zz$hour <- zz$min <- zz$sec <- 0 zz$year <- pretty(zz$year,n=n) M <- length(zz$year) zz <- lapply(zz, function(x) rep(x, length.out = M)) z <- as.POSIXct(.POSIXlt(zz)) if (missing(format)) format <- "%Y" } if (!mat) z <- x[is.finite(x)] keep <- z >= range[1L] & z <= range[2L] z <- z[keep] if (!is.logical(labels)) labels <- labels[keep] else if (identical(labels, TRUE)) labels <- format(z, format = format) else if (identical(labels, FALSE)) labels <- rep("", length(z)) axis(side, at = z, labels = labels, ...) } </code></pre> <p>Differences to the original function can be seen <a href="https://www.diffchecker.com/89tc49wj" rel="nofollow">here</a></p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload