ggplot2 Bug: scale_x_date Visualizzazione/non eliminazione di dati al di fuori dei limiti specificati

Question

Sto riscontrando un problema in cui ggplot2 sta visualizzando dati al di fuori dei limiti specificati nella scala. Vedi l'esempio qui sotto. Perché vedo i punti prima del 2009/01/01 e dopo il 2015/01/01 nel grafico se i limiti sono impostati su questi valori?

library(ggplot2) 
library(scales) 
set.seed(100) 
z <- seq.Date(as.Date("2008/12/1"), as.Date("2015/12/14"), "day") 
l <- expand.grid(z, c("a", "b", "c")) 
w <- data.frame(x= l[, 1], t = l[, 2]) 
w$val <- runif(nrow(w)) 
ggplot(data=w, aes_string(x="x", y="val"))+scale_x_date(
    labels = date_format("%m/%d/%Y"), 
    limits= c(as.Date("2009/1/1"), as.Date("2015/1/1")), 
    breaks = "1 year")+ 
    geom_point(aes(color = t)) 

E 'possibile lasciare ancora il break/scala come specificato, ma è sufficiente rimuovere i dati al di fuori dei limiti che utilizzano ggplot/senza pre-filtraggio dei dati? Questo mi sembra un insetto. La documentazione afferma che limita i dati del filtro.

Answer 1

Questo ha l'aspetto di un insetto per me.

library(ggplot2) 
library(scales) 
set.seed(100) 
z <- seq.Date(as.Date("2008/12/1"), as.Date("2015/12/14"), "day") 
l <- expand.grid(z, c("a", "b", "c")) 
w <- data.frame(x= l[, 1], t = l[, 2]) 
w$val <- runif(nrow(w)) 
n <- as.Date("2009/1/1") 

Con scale_x_continuous:

ggplot(w,aes(as.numeric(x),val))+geom_point()+ 
    scale_x_continuous(limits=c(as.numeric(n),NA))+ 
     geom_vline(xintercept=as.numeric(n),colour="red") 

Ora con scale_x_date:

ggplot(w,aes(x,val))+geom_point()+ 
    scale_x_date(limits=c(n,NA))+ 
     geom_vline(xintercept=as.numeric(n),colour="red") 

Vorrei pubblicarlo allo ggplot issues list, e nel frattempo lavorarci intorno con subset().