subplot doesn't merge legend entries

[cpsievert]

m <- split(mtcars, mtcars$vs)
subplot(lapply(m, function(x) plot_ly(x, x = ~mpg, y = ~wt, color = ~factor(cyl))))

[ramay]

Hi ,
I am having the same problem. Have you found a solution to this?

Interestingly for my data, in one case it is merging legends and in another case it is not. I had added legendgroup and used showlegend to show legend for one of the two plots.

I am attaching my data and code used in the two plots so you can see what is happening.

Thanks!
Hena
subplot_Merge_Issue.zip

[cpsievert]

@ramay see this test