R图：子图仅显示底部图

Question

I would like to reproduce the "Scaled Subplots" in https://plot.ly/r/subplots/ for the mtcars data.

mtcars %>%
  transform(id = as.integer(factor(am))) %>%
  plot_ly(x = ~mpg, y = ~qsec, color = ~factor(vs), yaxis = ~paste0("y", id)) %>%
  add_markers() %>%
  subplot(nrows = 2, shareX = TRUE)

Only the bottom subplot shows up:

I thought that I did faithfully copy/translated the code, but something must be wrong. Of note, the subplot discriminates am , whereas the color discriminates vs . I tried am for both the subplot and the color:

mtcars %>%
  transform(id = as.integer(factor(am))) %>%
  plot_ly(x = ~mpg, y = ~qsec, color = ~am, yaxis = ~paste0("y", id)) %>%
  add_markers() %>%
  subplot(nrows = 2, shareX = TRUE)

It does not help much, but the two grids appear: On the latter example, I expected the am==0 (blueish) dots to be in the top subplot.

Any suggestion?

packageVersion('plotly')
[1] ‘4.9.0’

Answer 1

Well, this way here you can do this, but must create two plots and than use subplot()

p1 = mtcars %>%
      filter(am==0) %>%
      plot_ly(x = ~mpg, y = ~qsec, color = ~vs, legendgroup = "am0", name = "0",
          type = "scatter" , mode = "markers", showlegend = FALSE)

p2 = mtcars %>%
      filter(am==1) %>%
      plot_ly(x = ~mpg, y = ~qsec, color = ~vs, legendgroup = "am1", name = "1",
          type = "scatter" , mode = "markers")

subplot(p1,p2,nrows = 2, shareX = TRUE, titleY = TRUE, which_layout = 1)

Here the output: