如何在R的sf与ggplot地图中嵌入图片、添加onclick函数及设置悬停主题

我希望在R的这幅地图绘图中嵌入一张图片。请问如何为plotly绘图中的每个国家添加onclick函数？R中是否有可用于悬停文本框的主题？

1. 在Plotly地图中嵌入图片 #

可以通过Plotly的layout()函数里的images参数添加图片，需要指定图片路径/URL、位置坐标和尺寸：

# 获取目标国家的中心坐标（以选中的第一个国家为例）
target_center <- st_centroid(selected_africa[1, ])
center_lon <- st_coordinates(target_center)[1]
center_lat <- st_coordinates(target_center)[2]

# 给plotly地图添加图片
africa_plotly <- africa_plotly %>%
  layout(
    images = list(
      list(
        source = "你的图片路径或网络URL", # 替换为实际图片地址
        x = center_lon,
        y = center_lat,
        xref = "x",
        yref = "y",
        sizex = 5, # 图片对应经度范围宽度
        sizey = 5, # 图片对应纬度范围高度
        xanchor = "center",
        yanchor = "middle"
      )
    )
  )

如果要给多个国家各添加图片，只需在images列表中新增多个配置元素即可。

2. 为每个国家添加onclick函数 #

借助htmlwidgets::onRender()可以给Plotly元素绑定自定义JavaScript点击事件，实现点击交互：

library(htmlwidgets)

africa_plotly <- africa_plotly %>%
  event_register("plotly_click") %>%
  onRender("
    function(el, x) {
      el.on('plotly_click', function(eventData) {
        // 获取点击的国家名称
        var country = eventData.points[0].text;
        // 自定义点击后的操作，这里以弹窗为例
        alert('你点击了：' + country);
      });
    }
  ")

如果需要更复杂的逻辑（比如联动其他内容），可以在JavaScript代码块中扩展，若结合Shiny使用还能调用R端函数。

3. 自定义悬停文本框样式 #

Plotly没有专门的悬停框主题包，但可以通过layout()的hoverlabel参数直接配置样式：

# 先在ggplot中定义悬停显示内容
africa.plot <- ggplot() +
  geom_sf(data = africa, aes(text = paste("国家：", name_long))) +
  geom_sf(data = selected_africa, fill = "transparent", color = "brown") +
  geom_sf_text(data = selected_africa, aes(label = name_long), color = "black", size = 3, nudge_y = 0.1) +
  theme_void()

# 转换为plotly并配置悬停框样式
africa_plotly <- ggplotly(africa.plot, tooltip = "text") %>%
  layout(
    hoverlabel = list(
      bgcolor = "#e6f7ff", # 背景色
      bordercolor = "#1890ff", # 边框色
      font = list(
        family = "Arial",
        size = 11,
        color = "#0050b3" # 字体色
      ),
      align = "left" # 文本对齐方式
    )
  )

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