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.

まず、subplot()、facet_wrap()、nrows=2 を使って issue の例を再現し、次に subplot のエントリポイントと、facet 化された ggplots および行レイアウトの処理を追跡します。nrows が 1 より大きい場合でも facet strip が正しく配置されたままとなり、報告された例を対象とする回帰テストが含まれていれば完了です。