Rでプロットして時系列で複数の系列/線をプロットする方法は？

Question

私はx軸にmm/ddをプロットし、plot_lyを使ってy軸に何年もプロットする必要がある数年の時系列を持っています。私はここのサンプルデータを生成しています

date<-seq(as.Date("2010-11-22"),as.Date("2016-05-26"),by ="days") 
sales = runif(2013, 2000, 6000) 
df = data.frame(date,sales) 

私は、このデータをプロットし、この取得：

plot_ly(df,x= ~date) %>% add_lines(y = ~sales,color=I("red")) 

は今、私はplot_lyを使用して複数のy軸をプロットしてみました：

plot_ly(df, x = ~date) %>% add_lines(y = ~sales, 
df$date <= "2010-12-31",color=I("red")) %>% 
      add_lines(y = ~sales, df$date <= "2013-12-31" & 
      df$date >= 2013-01-01, color = I("green")) 

しかし、私は間違ったプロットを得ました：

何が間違いですか？

私はこのようなプロットたい：

Answer 1

たちはplotly::group_byとグループ内のdfを分割する必要があり、同じグラフ上の別の線を作成します。あなたのケースでは、これは今年で分割するlubridateを使用して達成される：

library(plotly) 
library(lubridate) 
date <- seq(as.Date("2010-11-22"), as.Date("2016-05-26"), by = "days") 
# Add some variations to distinguish lines 
sales <- runif(2013, 10, 20) + year(date) * 5 + yday(date)/5 
df <- data.frame(date, sales) 


df %>% 
    mutate(year = year(date)) %>% 
    group_by(year) %>% 
    plot_ly(x = ~ yday(date)) %>% 
    add_lines(y = ~ sales, 
      color = ~ factor(year) 
      )