ggplot2の時系列データをfacet_wrapでプロットする

Question

私は比較のために年ごとにTSデータをプロットしようとしています。

問題ggplotに各プロットの欠落した日付をスキップさせる方法がわかりません。

私のデータ構造は次のようになります。

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

結果のプロットは、私が削除したい各年のギャップを持っていますが、次のことができます。私が思いついた

> 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コードがあります「Tは、方法を見つけ出す：

Answer 1

てみてくださいスケール= "free_x" を、感謝を：0それが働い

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