Ich habe eine einfache Nebenzeichnung mit zwei Diagrammen, beide haben standardmäßig eine Legende, aber ich möchte nur eine davon sehen.

Ich habe es versucht:

require(plotly)
p1 <- plot_ly(data=iris,x=~Sepal.Length,y=~Sepal.Width,split=~Species) %>% layout(showlegend = FALSE)
p2 <-  plot_ly(data=iris,x=~Sepal.Length,y=~Sepal.Width,split=~Species) %>% layout(showlegend = TRUE)
subplot(p1,p2)
subplot(p2,p1)

Aber es funktioniert nicht: Es scheint, als ob nur ein showlegend-Attribut behandelt wurde. Wenn ich also mit p1 beginne, habe ich zwei Legenden. Wenn ich mit p2 beginne, habe ich zwei.

Irgendwelche Ideen