折れ線グラフが積まれた状態でRで動作しない積み重なった棒グラフ

Question

折れ線グラフと折れ線グラフを持つ積み上げ棒グラフをプロットして作成しますが、行部分は表示されません。両方のy軸が上手く積み上げられた棒グラフも機能します。折れ線グラフ自体も機能しますが、積み上げ棒グラフと一緒には機能しません。私はそれを試したときに、1つのy軸チャートだけがすべてのコンポーネントを持っていましたが、スケールが異なるため、データを十分に視覚化していません。ここにサンプルデータのコードがあります：

library(plotly) 

#data 
big <- c(300000,400000,500000,600000,500000,600000) 
v1 <- c(3,4,5,5,4,3) 
v2 <-c(3,4,5,5,4,3) 
Date <- c("Jan 2016","Feb 2016","Mar 2016","Apr 2016","May 2016","June 2016") 
df <- data.frame(big, v1, v2, Date) 

#plot 
p1 <- plot_ly(
    x = df$Date, 
    y = df$big, 
    type="scatter" 
) 

p2 <- add_trace(
    p1, 
    x = df$Date, 
    y = df$v2, 
    type = "bar", 
    yaxis="y2") 

p25 <- add_trace(
    p2, 
    x = df$Date, 
    y = df$v1, 
    type = "bar", 
    yaxis="y2" 
) 

p3 <- layout(p25, 
      xaxis = list(
       title = "Month" 
      ), 
      yaxis = list(
       title = "big" 
      ), 
      yaxis2=list(
       title = "little", 
       tickfont = list(color = "red"), 
       overlying="y", 
       side="right" 
      ), 
      barmode="stack" 
) 

p3 

どのように修正するのですか？

Answer 1

これは私のために働い

：

# data 
big <- c(300000,400000,500000,600000,500000,600000) 
v1 <- c(3,4,5,5,4,3) 
v2 <-c(3,4,5,5,4,3) 
Date <- c("Jan 2016","Feb 2016","Mar 2016","Apr 2016","May 2016","June 2016") 
df <- data.frame(big, v1, v2, Date) 

library(plotly) 

df %>% 
    plot_ly(x = ~Date) %>% 
    add_bars(y = ~v1, 
      name = "bar1") %>% 
    add_bars(y = ~v2, 
      name = "bar2") %>% 
    add_lines(y = ~big, 
      name = "line", 
      yaxis = "y2") %>% 
    layout(barmode = "stack", 
     yaxis2 = list(overlaying = "y", 
         side = "right"), 
     barmode = "stack")