подсети общей оси с plot.ly для R

Question

Я пытаюсь использовать подзаголовки с библиотекой plot.ly R для интерактивного онлайн-графика. Я могу успешно создать подзаголовок, однако изо всех сил стараюсь иметь только одну ось Y, которая является общей для обеих диаграмм.

plot.ly сайт действительно обеспечивает пример для общей оси х, однако это делается немного по-другому, используя и дополнительные trace, а не group варианта, предоставляемые в рамках функции plot_ly().

пример кода:

library(data.table) 
library(plotly) 
dt <- data.table(x = c("A","B","C","D","A","B","C","D"), 
       y = c(12,4,3,9,5,10,3,7), 
       group = factor(c(rep("G1",4),rep("G2",4)))) 
dt$id <- as.integer(dt$group) 
xx <- xaxis_standard 
yy <- yaxis_standard 
p <- plot_ly(dt, x=x, y=y, group = group, xaxis = paste0("x",id)) 
p <- layout(p, yaxis = list(range = c(0, max(y)))) 
p <- subplot(p, margin = 0.05) 
p <- layout(p,showlegend = F, yaxis = list(anchor = 'x1')) 
p 

Это изображение показывает, что результаты, когда я выполняю код.

То, что я хотел бы иметь, это один и тот же график, однако без оси Y в правой части подзаголовка.

Answer 1

Подразделения находятся на отдельных осях, обозначенных xaxis2, yaxis2 и т. Д. Эти оси также являются аргументами для layout().

p <- layout(p, showlegend = F, yaxis = list(anchor = 'x1'), 
      yaxis2 = list(showticklabels = F)) 
p