如何在Quarto中为ggplot的facet_wrap标题添加弹窗提示？

完全可以实现这个需求。原生ggplot生成的是静态图形，无法直接添加交互效果，但可以借助plotly包将静态图转换为交互式图形，从而给分面标题添加悬停文本。具体步骤如下：

实现代码 #

library(tidyverse)
library(ggplot2)
library(plotly)

data(iris)

# 建立指标与描述的映射关系
descriptions <- c(
  "Sepal.Length" = "Sepal Length (cm)",
  "Sepal.Width" = "Sepal Width (cm)",
  "Petal.Length" = "Petal Length (cm)",
  "Petal.Width" = "Petal Width (cm)"
)

# 转换数据格式并添加描述列
iris_long <- iris %>%
  pivot_longer(cols = Sepal.Length:Petal.Width, 
               names_to = 'metric', 
               values_to = 'value') %>%
  mutate(desc = descriptions[metric])

# 绘制基础静态箱线图
p <- iris_long %>%
  ggplot(aes(x = metric, y = value)) +
  geom_boxplot(aes(fill = Species)) +
  facet_wrap(~metric, scales = 'free')

# 转换为交互式图形并配置分面标题悬停
ggplotly(p) %>%
  layout(
    annotations = lapply(
      .$x$layout$annotations,
      function(anno) {
        # 提取分面标题中的指标名称
        metric_name <- gsub("^metric = ", "", anno$text)
        # 为分面标题添加悬停文本
        anno$hovertext <- descriptions[metric_name]
        anno$hoverinfo <- "text"
        anno
      }
    )
  )

说明 #

1. 首先通过命名向量descriptions建立每个指标与对应描述的映射，确保分面标题能匹配到正确的说明文本。
2. 将鸢尾花数据集转换为长格式后，加入描述列，为后续交互配置提供数据支持。
3. 用常规ggplot语法绘制静态箱线图，再通过ggplotly()将其转换为交互式图形。
4. 遍历plotly生成的分面注释（即标题元素），给每个注释添加对应的悬停文本，实现鼠标悬停在分面标题时显示描述的效果。

Quarto支持直接渲染plotly交互式图形，将上述代码放入Quarto的R代码块中，渲染后即可看到带悬停效果的分面箱线图。

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