ggplotly可视化问题：标题副标题Viewer面板不显示，交互仅Viewer可用求助

现象原因解释 #

• Plot与Viewer面板的差异：
  • Plot面板显示的是原生ggplot2静态图表，所以能正常加载你设置的标题、副标题；Viewer面板展示的是ggplotly()转换后的交互网页图表，默认不会自动继承ggplot2的所有标题元素，因此看不到标题。
  • 交互仅在Viewer可用是正常情况：Plot面板是RStudio的静态绘图区域，不支持网页交互效果，而ggplotly()生成的是基于JavaScript的交互图表，只能在Viewer这类网页渲染面板中运行。

解决标题副标题在Viewer显示的办法 #

需要在ggplotly()之后通过layout()函数手动添加标题、副标题和说明文字，让交互图表同步显示这些元素。修改后的代码如下：

library(ggplot2)
library(plotly)
library(ggthemes) # 假设你使用的dark_mode来自该包

df_select %>%
  ggplot(aes(x = monthlyDateN,
             y = CivilAviationTotalPassengerKm_million_passengerkilometres_monthly_average_or_calendar_months,
             colour = country.name.en,
             group = country.name.en,
             text = paste("Country: ", country.name.en, "<br>",
                          "Date: ", monthlyDateN, "<br>",
                          "Total km (millions): ", CivilAviationTotalPassengerKm_million_passengerkilometres_monthly_average_or_calendar_months, "<br>",
                          "Population: ", pop, "<br>"))) +
  geom_line(linewidth = 0.5) +
  geom_point(size = 0.1) +
  labs(x = "Date",
       y = "Total Civil (Passenger) Aviation in km Million",
       colour = "Country") +
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_continuous(limits = c(0,15000), expand = c(0, 0)) +
  dark_mode(theme_bw()) %>%
  ggplotly(tooltip = c("text")) %>%
  layout(
    title = list(
      text = "Total Civil Aviation Per Calendar Month<br><sub>European Countries in 2020 & 2021</sub>"
    ),
    xaxis = list(title = "Date"),
    yaxis = list(title = "Total Civil (Passenger) Aviation in km Million"),
    legend = list(title = list(text = "Country")),
    annotations = list(
      text = "Source: unstats.un.org/unsd/mbs/app/DataSearchSeries.aspx",
      x = 1, y = -0.15, xref = "paper", yref = "paper",
      showarrow = FALSE, align = "right"
    )
  )

关键修改点 #

• 将原labs()中的标题、副标题、来源说明移到layout()中：用<br><sub>...</sub>实现副标题效果，用annotations添加底部来源标注。
• 可在layout()中统一设置坐标轴、图例名称，确保交互图表的元素完整。

内容的提问来源于stack exchange，提问作者ollie09