Rはplotly - 私がプロットしようとしているグループ化されたチャート

Question

をプロットするときの色を修正するためにどのように同じ機能GRPによってグループ化され、plotly使用ライン、バーグラフを重ね。
私は線と棒の両方に固定色を使用する必要があります。

私は最初のバーのトレースを追加するときにはうまく機能：

library(plotly) 

df <- data.frame(year = rep((2000:2017), each=2), 
      grp = rep(c("Grp1", "Grp2"), 18), 
      y1 = rnorm(36, 100, 40), 
      y2 = rnorm(36, 50, 10) 
      ) 


plot_ly(df) %>% 
    add_trace(x = ~year, y = ~y1, 
      type = 'bar', 
      yaxis = "y2", 
      opacity = .4, 
      color = ~grp, 
      colors = colorRamp(c("grey", "black"))) %>% 
    add_trace(x = ~year, y = ~y2, 
      type = 'scatter', 
      mode = 'lines+markers', 
      linetype = ~grp, 
      line = list(color = "red")) %>% 
    layout(yaxis2 = list(overlaying = "y", 
        side = "right")) 

しかし、私はバーのトレースとライントレースを切り替える場合は、バーの私の色の選択が消えます。

plot_ly(df) %>% 
    add_trace(x = ~year, y = ~y2, 
      type = 'scatter', 
      mode = 'lines+markers', 
      linetype = ~grp, 
      line = list(color = "red")) %>% 
    add_trace(x = ~year, y = ~y1, 
      type = 'bar', 
      yaxis = "y2", 
      opacity = .4, 
      color = ~grp, 
      colors = colorRamp(c("grey", "black"))) %>% 
    layout(yaxis2 = list(overlaying = "y", 
        side = "right")) 

明らかに私の構文が正しくありません：誰かが色は順序があるものは何でも安定していることを確認するために、適切にこのコードを書く方法を知っているのですか？

多くの感謝！

Answer 1

はplot_ly内部colorsをspecifiyするようにしてください：

plot_ly(df, colors = colorRamp(c("grey", "black"))) %>% 
    add_trace(x = ~year, y = ~y2, 
     type = 'scatter', 
     mode = 'lines+markers', 
     linetype = ~grp, 
     line = list(color = "red")) %>% 
    add_trace(x = ~year, y = ~y1, 
     type = 'bar', 
     yaxis = "y2", 
     opacity = .4, 
     color = ~grp) %>% 
    layout(yaxis2 = list(overlaying = "y", 
     side = "right"))