Interactive facets in ggplotly

Currently a plot like this:

library(reshape2)
library(plotly)
p <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
p <- p + facet_wrap( ~ day, ncol=2)
fig <- ggplotly(p)
fig

does not have any interactive elements for the facets. A few improvements would be:

• Show a dropdown list with the title of the facets to allow selecting one facet or "All" (there does not seem to be an easy way nor an example to do this)
• Click in the facet title shows only that subplot (zooms). The user can reset the zoom as usual.
• Show a list of facet title that work similar to the legend: single-click shows/hides the facet, double-click shows only this facet/shows all facets.

Bắt đầu bằng cách chạy ví dụ R của issue với ggplotly(p), facet_wrap và dữ liệu tips để tái hiện hành vi facet hiện tại. Xem xét cách ggplotly biểu diễn các subplot được chia facet và xác định mẫu tương tác nào trong ba mẫu được đề xuất là mẫu dự kiến; công việc được xem là hoàn tất khi đã thống nhất một tương tác facet với hành vi chọn hoặc hiển thị hoạt động đúng.