予測用のggplotからプロットを延長する

Question

今後、特定の日付の収益レベルを予測しようとしています。私がしたのは、私のプロットに滑らかな曲線を適用することでした。コードはこの

ggplot(timeseries, aes(x=Weekstarting, y=PHCumm))+ 
geom_line()+ 
stat_smooth(method = glm, fullrange =TRUE, formula= y~poly(x,5)) 

は私が（as.POSIXctを XLIM = cをスマート取得し、最後に、この小さなスニペットを追加しようとしましたです（「2017年1月1日午後12時00分00秒」、フォーマット= "％ Y =％m-％d％H：％M：％S "）、 + as.POSIXct（ '2017-07-01 00:00:00'、format ="％Y-％m-％d％H ：％のM：％S "）

と、私はエラーを取得unclass（E2）で

エラー：

缶の環境をunclassすることはできませんオメオネは私を助けてくれますか？

Answer 1

私は何が必要だと思う（自分のデータに応じて、またはscale_x_datetime）scale_x_dateです：

library(tidyverse) 
set.seed(42) 

# sample data 
timeseries <- data_frame(
    Weekstarting = 
     seq.Date(
      from = as.Date("2017-01-02"), 
      by = "week", 
      length.out = 250 
     ), 
    PHCumm = cumsum(rnorm(250)) 
    ) 

timeseries %>% ggplot(aes(x = Weekstarting, y = PHCumm)) + 
    geom_line() + 
    stat_smooth(method = glm, fullrange =TRUE, formula= y~poly(x,5)) + 
    scale_x_date(limits = c(as.Date("2017-01-02"), as.Date("2022-06-02")))