Nothing
chron_trans <-
function(format = "%Y-%m-%d", n = 5)
{
breaks. <- function(x)
chron(scales::pretty_breaks(n)(x))
format. <- function(x)
format(as.POSIXct(x, tz = "GMT"), format = format)
scales::trans_new("chron",
transform = as.numeric, inverse = chron,
breaks = breaks., format = format.)
}
scale_x_chron <-
function(..., format = "%Y-%m-%d", n = 5)
{
ggplot2::scale_x_continuous(..., trans = chron_trans(format, n))
}
scale_y_chron <-
function(..., format = "%Y-%m-%d", n = 5)
{
ggplot2::scale_y_continuous(..., trans = chron_trans(format, n))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.