сюжетно множественный сюжетный аспект

Я хотел бы сделать несколько сюжетов с двумя осями на каждом сюжете, как это

library(plotly)
ay <- list(
  tickfont = list(color = "green"),
  overlaying = "y",
  side = "right", title = "y2 axis title"
)


par(mfrow=c(2,1))
ax <-list(title = "x axis title")
ay1 <-list(title = "y1 axds title")
plot_ly(x = 1:3, y = 10*(1:3), name = "slope of 10") %>%
  add_trace(x = 2:4, y = 1:3, name = "slope of 1", yaxis = "y2") %>%
  layout(title = "Double Y Axis", yaxis2 = ay, xaxis = ax, yaxis = ay1) 


 ax <-list(title = "x axis title")
 ay1 <-list(title = "y1 axds title")
 plot_ly(x = 1:3, y = 10*(1:3), name = "slope of 10") %>%
   add_trace(x = 2:4, y = 1:3, name = "slope of 1", yaxis = "y2") %>%
   layout(title = "Double Y Axis", yaxis2 = ay, xaxis = ax, yaxis = ay1)

но когда вы запускаете этот код, вы все равно видите только один сюжет. Можно ли plotly делать мульти-сюжеты? Может ли он делать огранку двумя осями?


r ggplot2 plotly r-plotly
person user3022875    schedule 25.07.2016    source источник
comment
Вы пытаетесь построить эти 2 (одинаковых) графика на одной странице?   -  person Sumedh    schedule 26.07.2016
comment
да. Я бы хотел, чтобы они появились один над другим. Но в идеале я бы хотел использовать facet_wrap с plotly. это возможно?   -  person user3022875    schedule 26.07.2016
comment
связанных: stackoverflow.com/questions/55251470/   -  person M--    schedule 08.08.2019

Ответы (1)


arrow_upward
3
arrow_downward

Вы ищете subplot. Посетите эту страницу для получения дополнительной информации.

library(plotly)
ay <- list(
    tickfont = list(color = "green"),
    overlaying = "y",
    side = "right", title = "y2 axis title"
)

ax <-list(title = "x axis title")
ay1 <-list(title = "y1 axds title")   

 subplot(
        plot_ly(x = 1:3, y = 10*(1:3), name = "slope of 10") %>%
            add_trace(x = 2:4, y = 1:3, name = "slope of 1", yaxis = "y2") %>%
            layout(title = "Double Y Axis", yaxis2 = ay, xaxis = ax, yaxis = ay1), 
        plot_ly(x = 1:3, y = 10*(1:3), name = "slope of 10") %>%
            add_trace(x = 2:4, y = 1:3, name = "slope of 1", yaxis = "y2") %>%
            layout(title = "Double Y Axis", yaxis2 = ay, xaxis = ax, yaxis = ay1), nrows = 2)

Вывод

введите здесь описание изображения

person Sumedh    schedule 25.07.2016
comment
когда я запускаю приведенный выше код, сюжет не появляется. Я также удалил) после ay1 в последней строке - person user3022875; 26.07.2016
comment
Я опубликовал результат, который я получаю, когда запускаю тот же самый код. Я использую plotly_3.6.0 и ggplot2_2.1.0 - person Sumedh; 26.07.2016
comment
Попробуйте следующее: назначьте свой первый plot_ly график a, а второй b. Затем запустите subplot(a,b, nrow= 2). Появляется ли сюжет сейчас? - person Sumedh; 26.07.2016
comment
@ user3022875, вы проверяете в области просмотра? plotly график не отображается на панели графиков - person Sumedh; 26.07.2016