R + ggplot2: jak ukryć brakujące daty na osi X?

Question

Powiedzmy, że mamy następującą prostą ramkę danych dla par wartości daty i czasu, gdzie brakuje niektórych dat w sekwencji (tj. Od 12 stycznia do 14 stycznia). Kiedy rysuję punkty, pokazuje te brakujące daty na osi X, ale nie ma punktów odpowiadających tym datom. Chcę zapobiec wyświetlaniu brakujących dat na osi X, aby sekwencja punktów nie zawierała żadnych przerw. Wszelkie sugestie, jak to zrobić? Dzięki!

dts <- c(as.Date(c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16'))) 
df <- data.frame(dt = dts, val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() + 
     scale_x_date(format = '%d%b', major='days') 

Answer 1

Turn dane date na czynnik czasu. W tej chwili ggplot interpretuje dane w takim sensie, w jakim powiedziałeś im, że dane znajdują się w ciągłej skali dat. Nie chcesz tego skalę, chcesz kategoryczne skala:

require(ggplot2) 
dts <- as.Date(c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16')) 
df <- data.frame(dt = dts, val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() + 
     scale_x_date(format = '%d%b', major='days') 

kontra

df <- data.frame(dt = factor(format(dts, format = '%d%b')), 
        val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() 

która produkuje:

Czy tego chcesz?

Answer 2

Pierwsze pytanie brzmi: dlaczego chcesz to zrobić? Nie ma sensu pokazywać wykresu współrzędnych, jeśli twoje osie nie są współrzędnymi. Jeśli naprawdę chcesz to zrobić, możesz przekonwertować na współczynnik. Bądź ostrożny na celu choć:

dts <- c(as.Date(c('31-10-2011', '01-11-2011', '02-11-2011', 
      '05-11-2011'),format="%d-%m-%Y")) 
dtsf <- format(dts, format= '%d%b') 
df <- data.frame(dt=ordered(dtsf,levels=dtsf),val=seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() 

Z czynników trzeba być ostrożnym, ponieważ kolejność jest dowolna w czynnik, chyba że czynią go zamawiać czynnikiem. Ponieważ czynniki są uporządkowane alfabetycznie domyślnie, możesz mieć kłopoty z niektórymi formatami dat. Uważaj więc, co robisz. Jeśli nie brać pod uwagę kolejność, otrzymasz:

df <- data.frame(dt=factor(dtsf),val=seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() 

Answer 3

Zrobiłem pakiet że to robi. Nazywa się bdscale i jest dostępny pod CRAN i github. Bezwstydna wtyczka.

Aby replikować swój przykład:

> library(bdscale) 
> library(ggplot2) 
> library(scales) 
> dts <- as.Date(c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16')) 
> ggplot(df, aes(x=dt, y=val)) + geom_point() + 
    scale_x_bd(business.dates=dts, labels=date_format('%d%b')) 

Ale co prawdopodobnie chcesz załadować znanych ważnych dat, a następnie wykreślić swoje dane za pomocą ważnych dat na osi x:

> nyse <- bdscale::yahoo('SPY') # get valid dates from SPY prices 
> dts <- as.Date('2011-01-10') + 1:10 
> df <- data.frame(dt=dts, val=seq_along(dts)) 
> ggplot(df, aes(x=dt, y=val)) + geom_point() + 
    scale_x_bd(business.dates=nyse, labels=date_format('%d%b'), max.major.breaks=10) 

Warning message: 
Removed 3 rows containing missing values (geom_point). 

ostrzeżenie z informacją, że jest ona usuwana trzech terminach:

• 15th = sobota
• 16-te = niedziela
• 17-ty = MLK Day