Вторая ось Y в графическом графе R

Question

Я объединил 2 диаграммы, и я пытаюсь добавить вторую ось y, но каждый раз, когда я добавляю yaxis = "y2" в свой код, я теряю свои гистограммы ,

> MediaDate  Spend Search_Visits Other_Visits MediaDate2 
> 2016-04-01 $39654.36   19970   2899 Apr 2016 
> 2016-05-01 $34446.28   14460   2658 May 2016 
> 2016-06-01 $27402.36   12419   2608 Jun 2016 

мой оригинальный код:

p <- plot_ly(x= w$MediaDate2,y=w$Search_Visits,name = "Paid Search", 
type = "bar") 
p2 <- add_trace(p, x=w$MediaDate2, y=w$Other_Visits,name = "Other Traffic", 
type = "bar") 
spend_visits <- layout(p2, barmode = "stack") 
spendvisits2 <- spend_visits %>% add_trace(data=w, x=MediaDate2, y=round(Spend,0), fill="tonexty", mode="lines", 
         text=w$MediaDate2, hoverinfo='name+y+text', name="Spend") 

Когда я добавляю YAxis = "у2", только область диаграммы остается:

`spendvisits2 <- spend_visits %>% add_trace(data=w, x=MediaDate2,  y=round(Spend,0), yxis="y2" fill="tonexty", mode="lines", 
         text=w$MediaDate2, hoverinfo='name+y+text', name="Spend")` 

Любые предложения будут очень полезны. Спасибо

Answer 1

Посмотрите это быстро Plotly tutorial для нескольких осей. Вам нужно указать атрибуты для второй оси y в layout().

df <- data.frame(MediaDate = as.Date(c("2016-04-01","2016-05-01","2016-06-01"), format = "%Y-%m-%d"), 
       Spend = c(39654, 34446, 27402), 
       Visits = c(19970, 14450, 12419)) 

plot_ly(df, x = MediaDate, y = Spend, type = "bar", name = "Spend") %>% 
    add_trace(x = MediaDate, y = Visits, modee = "lines", yaxis = "y2", name = "Visits") %>% 
    layout(yaxis2 = list(overlaying = "y", side = "right"))