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

Không có tệp triển khai hoặc bài kiểm thử nào được nêu tên. Trước tiên, hãy tái hiện ví dụ ggplot2 và ggplotly được cung cấp, sau đó lần theo đường chuyển đổi cho labs(); công việc được xem là hoàn tất khi biểu đồ kết quả hiển thị cả phụ đề và chú thích như trong ggplot nguồn.