Add support for captions and subtitles

This example shows the difference between ggplot and ggplotly objects regarding the use of "labs".
Source: R for Data Science

library(ggplot2)
library(plotly)
p<-ggplot(mpg, aes(displ, hwy)) +
  geom_point(aes(color = class)) +
  geom_smooth(se = FALSE) +
  labs(
    title = "Fuel efficiency generally decreases with engine size",
    subtitle = "Two seaters (sports cars) are an exception because of their light weight",
    caption = "Data from fueleconomy.gov"
  );
p  # This is ok, a ggplot2 object
g <- ggplotly(p)
g  #  "labs()" Just showing title (centered) and  subtilte & caption are not even showing up

labs() OK

labs() not ok

実装ファイルもテストも指定されていません。まず提供された ggplot2 と ggplotly の例を再現し、次に labs() の変換経路を追跡してください。完了条件は、結果のプロットに、元の ggplot に示されているとおりサブタイトルとキャプションの両方が表示されることです。