Subplot with faceted ggplots: misplaced facet strips with nrows>1

When passing faceted ggplots to subplot(), the result is rendered properly as long as nrows=1. However, once I pass nrows=2 or greater, the facet strips become misplaced.

require(ggplot)
require(plotly)

ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
# With nrows = 1, facets are rendered properly
subplot (ggiris , ggiris+facet_wrap(~Species))
# With nrows>1, facets are messed up
subplot (ggiris , ggiris+facet_wrap(~Species), nrows=2)

This used to work correctly on my system, using a previous version of the library - I found the error after updating plotly and a bunch of other libraries. Unfortunately, I haven't been able to restore the previous environment, so I don't know on which release it stopped working.

Inizia riproducendo gli esempi nell’issue con subplot(), facet_wrap() e nrows=2, quindi traccia il punto di ingresso di subplot e la sua gestione dei ggplots con facet e del layout delle righe. Il lavoro è completato quando le strisce delle facet rimangono posizionate correttamente con nrows maggiore di 1, con un test di regressione che copra l’esempio segnalato.