R语言：多数据框站点地图的分色悬停文本配置问题

这个问题我之前碰到过类似的！要让两组不同数据集的点都能显示各自的悬停文本，有两种实用方法，我给你一步步讲清楚：

这种方法简洁高效，把两个站点数据合并成一个data frame，新增一列标记组别（比如区分红色/蓝色站点），然后统一设置悬停文本内容，最后转成交互式图形就能实现各自的hover效果。

假设你的两个站点数据集分别叫df_red（红色点）和df_blue（蓝色点），示例代码如下：

# 加载依赖包
library(maps)
library(ggplot2)
library(dplyr)
library(plotly)

# 获取英国区域地图
UK <- map_data("world") %>% filter(region=="UK")

# 模拟你的两个站点数据集（替换成你实际的数据）
df_red <- data.frame(long = c(-0.1, -0.2), lat = c(51.5, 51.6), site_name = c("伦敦站点A", "伦敦站点B"), metric = c(12.3, 15.7))
df_blue <- data.frame(long = c(-0.3, -0.4), lat = c(51.7, 51.8), site_name = c("曼彻斯特站点C", "曼彻斯特站点D"), metric = c(8.9, 10.2))

# 合并数据集，新增group列区分组别，同时生成自定义悬停文本
df_combined <- bind_rows(
  df_red %>% mutate(group = "红色站点", hover_text = paste0("站点名称: ", site_name, "\n监测值: ", metric)),
  df_blue %>% mutate(group = "蓝色站点", hover_text = paste0("站点名称: ", site_name, "\n监测值: ", metric))
)

# 绘制基础地图
JCMap <- ggplot() +
  geom_polygon(data = UK, aes(x=long, y=lat, group=group), fill="lightgray", color="white") +
  geom_point(data = df_combined, aes(x=long, y=lat, color=group, text=hover_text), size=3) +
  scale_color_manual(values = c("红色站点" = "red", "蓝色站点" = "blue")) +
  theme_minimal()

# 转换为交互式图形，自动识别hover_text作为悬停内容
ggplotly(JCMap, tooltip = "text")

这样处理后，红色点hover时会显示df_red的内容，蓝色点则显示df_blue的专属信息。

如果你的两个数据集结构差异很大，不想合并，也可以在添加每个geom_point图层时，单独设置对应的悬停文本，再转成交互式图形。

示例代码：

library(maps)
library(ggplot2)
library(dplyr)
library(plotly)

# 获取英国区域地图
UK <- map_data("world") %>% filter(region=="UK")

# 模拟你的两个站点数据集（替换成实际数据）
df_red <- data.frame(long = c(-0.1, -0.2), lat = c(51.5, 51.6), red_site = c("站点A", "站点B"), red_value = c(10, 20))
df_blue <- data.frame(long = c(-0.3, -0.4), lat = c(51.7, 51.8), blue_site = c("站点C", "站点D"), blue_value = c(30, 40))

# 绘制地图，分别设置两个点图层的悬停文本
JCMap <- ggplot() +
  geom_polygon(data = UK, aes(x=long, y=lat, group=group), fill="lightgray", color="white") +
  # 红色站点图层：单独设置悬停文本
  geom_point(data = df_red, aes(x=long, y=lat, text=paste0("红色站点: ", red_site, "\n数值: ", red_value)), 
             color="red", size=3) +
  # 蓝色站点图层：单独设置悬停文本
  geom_point(data = df_blue, aes(x=long, y=lat, text=paste0("蓝色站点: ", blue_site, "\n数值: ", blue_value)), 
             color="blue", size=3) +
  theme_minimal()

# 转换为交互式图形，自动读取每个图层的text参数
ggplotly(JCMap, tooltip = "text")

这个方法不需要合并数据，每个图层的悬停内容完全独立，适合数据集结构差异大的场景。

静态的ggplot图本身不支持悬停交互，所以必须借助plotly（或ggiraph）这类交互式可视化包转换图形，才能实现hover显示文本的效果。悬停文本的内容可以根据你的实际需求，用paste0拼接任意列，用\n实现换行。

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