Plotten Zeitreihendaten in ggplot2 mit facet_wrap

Question

Ich versuche, ts Daten geteilt durch das Jahr zum Vergleich zu plotten.

Problem ist, ich kann nicht herausfinden, wie man ggplot erzwingt, um fehlende Daten auf jeder Handlung zu überspringen.

Meine Datenstruktur sieht wie folgt aus:

> head(pmWaw) 
       date   stacja pm25 pm10  season year month 
1 2014-01-01 00:00:00 MzWarNiepodKom 100 122 winter (DJF) 2014  1 
2 2014-01-01 00:00:00 MzWarszUrsynow 63 68 winter (DJF) 2014  1 
3 2014-01-01 00:00:00 MzWarTarKondra NA 79 winter (DJF) 2014  1 
4 2014-01-01 01:00:00 MzWarNiepodKom 69 77 winter (DJF) 2014  1 
5 2014-01-01 01:00:00 MzWarszUrsynow 36 38 winter (DJF) 2014  1 
6 2014-01-01 01:00:00 MzWarTarKondra NA 90 winter (DJF) 2014  1 
> tail(pmWaw) 
        date  stacja pm25 pm10  season year month 
52483 2015-12-30 22:00:00 MzWarAlNiepo 36 47 winter (DJF) 2015  12 
52484 2015-12-30 22:00:00 MzWarKondrat 26 29 winter (DJF) 2015  12 
52485 2015-12-30 22:00:00 MzWarWokalna 36 44 winter (DJF) 2015  12 
52486 2015-12-30 23:00:00 MzWarAlNiepo 39 59 winter (DJF) 2015  12 
52487 2015-12-30 23:00:00 MzWarKondrat 36 39 winter (DJF) 2015  12 
52488 2015-12-30 23:00:00 MzWarWokalna 40 49 winter (DJF) 2015  12 

ggplot2 code Ich kam ist:

pmWaw %>% 
    ggplot(aes(x=date, y=pm25)) + 
    geom_jitter(alpha=0.5) + 
    geom_smooth() + 
    facet_wrap(~ year) 

Resultierende Grundstück hat Lücken in jedem Jahr, Ich mag würde zu entfernen, kann aber ‚t herauszufinden, wie:

Answer 1

Versuchen 0 in facet_wrap

wie diese

pmWaw %>% 
    ggplot(aes(x=date, y=pm25)) + 
    geom_jitter(alpha=0.5) + 
    geom_smooth() + 
    facet_wrap(~ year, scales = "free_x")