R + ggplot: trazado de series temporales irregulares

Question

Tengo datos en un número de días desde un evento. Estos datos se muestrean de manera irregular; mis puntos de tiempo son como 0, 5, 6, 10, 104 días. No tengo información específica de fecha y hora, es decir, no tengo idea de cuándo sucedió en la vida real el evento que estoy estudiando.

Me gustaría trazar, usando ggplot, mis series de tiempo. Puedo usar, digamos

p <- ggplot(data,aes(x=time,y=expression)) 
p <- p + geom_point() 

pero por supuesto mi variables del eje x se representan junto a la otra, de modo que la distancia entre t = 10 y t = 104 es el mismo que t = 5 y t = 6 . Así que puedo hacer algo como

start <- ISOdate(2001, 1, 1, tz = "") 
data$time <- start + data$time*60*60*12 

los que casi funciona, pero ahora las garrapatas en mis x-eje son terriblemente tiempos fecha inexactas. Podría volver a formatearlos tal vez? Pero no puedo ver de todos modos para hacer que el formato "días desde el inicio". Y ahora he estado buscando en Google por bastante tiempo, con la sensación persistente de que me estoy perdiendo algo seriamente obvio. ¿Soy yo?

Answer 1

suena como su variable de time es un factor o tal vez un vector de caracteres, no un valor numérico! Si lo hace data$time <- as.numeric(data$time) bien puede resolver su problema.

ggplot es bastante bueno en el uso del tipo correcto de escala para el tipo correcto de datos. (Tristemente, las rutinas de importación de datos en R generalmente son menos inteligentes ...)

Answer 2

No estoy seguro si esto es lo que está buscando (vea this related question). Puede reformatear el eje y tratar la irregularidad usando las funciones scale_x. Por ejemplo:

p <- qplot(1:3, 1:3, geom='line') 
p + scale_x_continuous("", breaks=1:3, 
     labels = as.Date(c("2010-06-03", "2010-06-04", "2010-06-07"))) 

Por cierto, aquí es una función que creé para el trazado multivariantes zoo objetos:

qplot.zoo <- function(x) { 
    if(all(class(x) != "zoo")) stop("x must be a zoo object") 
    x.df <- data.frame(dates=index(x), coredata(x)) 
    x.df <- melt(x.df, id="dates", variable="value") 
    ggplot(x.df, aes(x=dates, y=value, group=value, colour=value)) + geom_line() + opts(legend.position = "none") 
}