subplot - merging titles following ggplotly conversion

data(faithful)

p1 <- plotly::ggplotly(
  ggplot(faithful, aes(x = eruptions)) + 
    geom_histogram(bins = 20) + 
    theme_minimal()  + 
    labs(title = "A.")
)

p2 <- plotly::ggplotly(
  ggplot(faithful, aes(x = waiting)) + 
    geom_histogram(bins = 20) + 
    theme_minimal()  + 
    labs(title = "B.")
)

pl <- subplot(p1, p2, nrows = 1, titleX = TRUE)

## note  that changing to labs(tag = "A.") results in loss of the 'tag' at the ggplotly function.  

I am creating a gglot (histogram, in this case) which includes a sub-panel label. I want to then convert to a plotly figure using the plotly::ggplotly function. The label is transmitted faithfully to each of p1 and p2. However, when combining these into a subplot, the label seems to be merged . I lose the 'A.' label on the first plot p1, generally. The titleX option does not prevent this from occurring.

Bắt đầu với ví dụ dữ liệu faithful có thể tái hiện bằng cách sử dụng ggplotly và subplot, sau đó theo dõi cách subplot kết hợp các tiêu đề từ p1 và p2 khi titleX được bật. Xác nhận hành vi đối với labs(title = "A.") và labs(title = "B."); hoàn thành khi cả hai nhãn vẫn hiển thị sau khi chuyển đổi và kết hợp.