如何在ggiraph中实现X轴标签交互？能否使用scale_discrete_manual_interactive？

• 需求可实现：X轴标签的交互功能（如悬停提示、点击响应等）完全可以在ggiraph包中实现。
• 关于scale_discrete_manual_interactive：该函数仅用于为离散型美学映射（如颜色、填充）添加交互逻辑，无法实现X轴标签的交互，不要用它来处理轴标签需求。
• 正确实现方式：使用scale_x_discrete_interactive函数搭配interactive_labels来定义X轴标签的交互属性。

代码示例 #

library(tidyverse)
library(ggiraph)

my_df <- tibble(x=letters[1:5], y=1:5)

# 构建带X轴标签交互的图表
p <- my_df |>
  ggplot(aes(x, y)) +
  geom_col_interactive(aes(data_id=x, tooltip=paste("柱形数据:", x, y))) +
  scale_x_discrete_interactive(
    labels = interactive_labels(
      labels = my_df$x,
      tooltip = paste("X轴标签:", my_df$x), # 悬停提示文本
      data_id = my_df$x, # 给每个标签分配唯一标识，可用于后续交互逻辑
      onclick = "alert('你点击了X轴标签: ' + d)" # 可选：添加点击事件
    )
  )

# 渲染交互式图表
p_obj <- girafe(ggobj = p, height_svg = 3) 
p_obj

代码说明 #

• scale_x_discrete_interactive是ggiraph专为离散型X轴提供的交互式刻度函数，用于替换常规的scale_x_discrete。
• interactive_labels负责定义标签的交互参数：除了tooltip，还可以添加onclick实现点击响应，或者data_id配合girafe_options实现更复杂的交互逻辑。

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