plot.ly 用于 R 的公共轴子图

common axis subplots with plot.ly for R

我正在尝试将子图与 plot.ly R 库一起用于交互式在线图表。我可以成功地创建一个子图,但是我很难只拥有两个图表共有的一个 y 轴。

plot.ly 网站确实提供了一个通用 x 轴的示例,但是使用和附加 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 轴。

子图位于标记为 xaxis2yaxis2 等的单独轴上。这些轴也是 layout().

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