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.

Bắt đầu bằng cách tái hiện các ví dụ trong issue với subplot(), facet_wrap() và nrows=2, sau đó lần theo điểm vào của subplot và cách nó xử lý các ggplots được facet cùng bố cục hàng. Công việc được xem là hoàn tất khi các facet strip vẫn được đặt đúng vị trí với nrows lớn hơn 1, cùng với một bài kiểm thử hồi quy bao phủ ví dụ đã được báo cáo.