ggplotly转换ggplot choropleth地图样式丑陋，求替代交互式tooltip方案

我尝试用ggplotly给美观的ggplot choropleth地图添加tooltip实现交互功能，但转换后地图样式变丑、图例丢失，而且渲染耗时很长。

仅使用ggplot生成的地图效果：

使用ggplotly后的地图效果（图例丢失、样式丑陋）：

我的ggplot示例代码：

ggplot(data = sdpf_f, aes( fill = n,x = long, y = lat, group = group, text = tooltip)) +
  geom_polygon(color = "white") +
   theme_void() +
  scale_fill_continuous(low="#c3ffff", high="#0291da",
                        guide = guide_legend(title.position = "top", label.position = "bottom", keywidth = 2,
                                             keyheight = 0.5,
                                             title = "Number of agreements"),na.value="lightgrey"
                       ) +
  theme(legend.position="bottom") +
  coord_map()

希望找到其他可为ggplot地图添加tooltip实现交互的方法，解决当前样式及渲染问题。

1. 使用ggiraph包（推荐） #

这是专门为ggplot设计的交互式扩展工具，能完美保留原ggplot的样式细节，渲染速度远快于ggplotly，同时支持自定义tooltip内容。

操作步骤： #

• 安装并加载包：

install.packages("ggiraph")
library(ggiraph)

• 修改原代码，将geom_polygon替换为geom_polygon_interactive，并保留tooltip映射：

p <- ggplot(data = sdpf_f, aes(fill = n, x = long, y = lat, group = group, tooltip = tooltip)) +
  geom_polygon_interactive(color = "white") +
  theme_void() +
  scale_fill_continuous(low="#c3ffff", high="#0291da",
                        guide = guide_legend(title.position = "top", label.position = "bottom", keywidth = 2,
                                             keyheight = 0.5,
                                             title = "Number of agreements"),na.value="lightgrey"
                       ) +
  theme(legend.position="bottom") +
  coord_map()

• 渲染交互式地图：

ggiraph(ggobj = p, width_svg = 8, height_svg = 6)

此方法会完整保留你原图表的配色、图例布局和主题样式，hover tooltip响应流畅。

2. 使用plotly原生语法构建地图（追求高性能） #

如果你的数据可转换为sf空间格式，直接用plotly原生函数生成地图，能彻底避免ggplot转plotly的兼容性问题，渲染速度更快。

操作步骤： #

• 安装并加载必要包：

install.packages(c("sf", "plotly"))
library(sf)
library(plotly)

• 将数据转换为sf格式（假设你的原始数据是经纬度点聚合的多边形数据）：

sdpf_sf <- st_as_sf(sdpf_f, coords = c("long", "lat"), crs = 4326)
# 如果是已聚合的多边形，可直接读取或转换，确保几何列正确

• 用plotly原生代码生成交互式地图：

plot_ly(sdpf_sf, fill = ~n, color = ~n, colors = c("#c3ffff", "#0291da"),
        text = ~tooltip, hoverinfo = "text") %>%
  add_sf(line = list(color = "white")) %>%
  layout(legend = list(orientation = "h", x = 0.1, y = -0.1,
                       title = list(text = "Number of agreements")),
         geo = list(showframe = FALSE, showcoastlines = FALSE)) %>%
  colorbar(title = "Number of agreements", orientation = "h", y = -0.2)

这种方式可通过plotly参数精细调整样式，完全避免转换时的样式丢失问题。

3. 修复ggplotly的样式问题（若坚持使用） #

如果一定要用ggplotly，可尝试以下调整来恢复样式：

• 禁用自动样式调整并手动配置图例：

p <- ggplot(...) # 你的原ggplot代码
ggplotly(p, tooltip = "text") %>%
  layout(legend = list(orientation = "h", x = 0, y = -0.1,
                       title = list(text = "Number of agreements"))) %>%
  config(displayModeBar = FALSE)

• 手动指定颜色映射范围：

ggplotly(p) %>%
  style(colors = colorRampPalette(c("#c3ffff", "#0291da"))(10))

但此方法仍可能存在渲染缓慢的问题，仅作为临时解决方案。

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