ggplotly删除R中的图例上标和标题

Question

我正试图通过ggplotly创建一个带有ggplot对象的交互式绘图。ggplot绘图很好，但ggplotly从图例中删除了superscript，也删除了绘图的caption。

我该怎么解决这个问题？

library(tidyverse)
library(plotly)

# df
Pollutant_1 = c(2.5, 3.5, 1.5, 7.5)
Pollutant_2 = c(4, 1.3, 2.5, 3.5)
Year = c(2000, 2001, 2004, 2003)

df = data.frame(Year , Pollutant_1,  Pollutant_2)

# Plot 
# Make a legend vector
legend = expression(Pollutant_1~"(ug/m)"^{3},
Pollutant ~"Matter 2.5 (ug/m)"^3)

gg = ggplot(df, aes(x = Year)) +
geom_line(aes(y = Pollutant_1, color = Pollutant_1),size = 1) +
geom_point(aes(y = Pollutant_1)) +
scale_color_discrete(labels = legend) +
geom_line(aes(y = Pollutant_2, color = Pollutant_2), size = 1) +
geom_point(aes(y = Pollutant_2)) +
labs(x = "Date",
y = "Concentration", 
title = "Title",
color = "Legend",
caption = str_wrap("big caption."))
# Interactive 
ggplotly(gg)

Answer 1

这是一个已知的问题。

这里有一个短标题的解决方法：在图表中添加源或标题。有关(MANY(绘图注释选项，请参阅本文档。

对于较长的标题，您需要设置一些空白。此处的说明：Python：在Plotly 中的图形上方创建注释空间

我很想知道是否有人有更好的方法。