在R中使用Plotly的子图（已修复错误）

如何在R中使用Plotly创建子地块栅格

官方网站有：

python代码有选项

rows=2

和

cols=2

，但在R中

子批

函数只有参数

nrows

，没有

ncols

我在R中尝试了这个示例，但是

nrows

无法按预期工作：

# Basic subplot
library(plotly)
p <- plot_ly(economics, x = date, y = uempmed)
subplot(p,p,p,p,
  margin = 0.05,
  nrows=2
) %>% layout(showlegend = FALSE)

#基本子批次
图书馆（绘本）
p%布局（showlegend=FALSE）

它们在一条直线上，而不是在网格中。见结果：

这是供参考的文件。不幸的是，使用

ggplotly

对我来说不是一个选项，比如

更新

---

那是一只虫子。Plotly团队速度非常快，仅用了3天就修好了（）！Github版本已经更新。干得好

这似乎是一个真正的错误，

subplot（）

为两个绘图生成y轴域。事实上，它们重叠在一起，如果您执行

p <- plot_ly(economics, x = date, y = uempmed)
q <- plot_ly(economics, x = date, y = unemploy)


subplot(p,q, nrows = 2)

这将产生：

现在，如果您想复制类似于Python示例的4x4子地块矩阵，您可能需要以类似的方式手动调整x轴域

由于这是一个bug，而我的解决方案只是一个解决方案，因此我建议您根据以下内容，在

上以

方式提交一个问题：

p%
tidyr:：gather（变量、值、-date）%>%
转换（id=as.integer（因子（变量）））%>%
plot_-ly（x=~date，y=~value，color=~variable，colors=“Dark2”，
yaxis=~paste0（“y”，id））%>%
添加行（）%>%
子批次（nrows=5，shareX=TRUE）

Tks谢谢您的回复。我听从了你的建议，在GitHub中打开了应用程序。它们真的很快。修正错误。我正在尝试这个例子。我在子批（，nrows=5，shareX=TRUE）中得到错误
错误：未使用的参数（nrows=5，shareX=TRUE）
subplot(p,q, nrows = 2) %>% layout(yaxis = list(domain = c(0, 0.48)), 
                                   yaxis2 = list(domain = c(0.52, 1)))

p <- economics %>%
  tidyr::gather(variable, value, -date) %>%
  transform(id = as.integer(factor(variable))) %>%
  plot_ly(x = ~date, y = ~value, color = ~variable, colors = "Dark2",
          yaxis = ~paste0("y", id)) %>%
  add_lines() %>%
  subplot(nrows = 5, shareX = TRUE)