如何在Leaflet中为多组标记添加iframe弹窗？

问题根源 #

你用到的leafpop:::addPopupIframes是包的内部非公开函数，重复调用时会覆盖之前绑定的弹窗点击事件，导致只有最后一组标记能触发弹窗。

可行解决方案 #

方案一：用Leaflet原生addPopups手动绑定iframe弹窗

直接在添加标记时指定弹窗内容，明确关联对应组，避免事件覆盖：

library(leaflet)
library(plotly)
library(htmlwidgets)

df1=data.frame(Name="Site1", Lon=0, Lat=0)
df2=data.frame(Name="Site2", Lon=1, Lat=2)

p1 = plot_ly(data=data.frame(x=1:10, y=rnorm(10)), x=~x, y=~y) 
p2 = plot_ly(data=data.frame(x=1:10, y=rnorm(10)), x=~x, y=~y) 

# 保存Plotly部件到临时文件，关闭自包含模式避免路径问题
fl1 = tempfile(fileext = ".html")
saveWidget(p1, file = fl1, selfcontained = FALSE)

fl2 = tempfile(fileext = ".html")
saveWidget(p2, file = fl2, selfcontained = FALSE)

# 构建iframe HTML代码
iframe1 = sprintf('<iframe src="%s" width="100%%" height="300" frameborder="0"></iframe>', fl1)
iframe2 = sprintf('<iframe src="%s" width="100%%" height="300" frameborder="0"></iframe>', fl2)

leaflet() %>% 
  addTiles() %>%
  addMarkers(data = df1, lng = ~Lon, lat = ~Lat, group = "3", popup = iframe1) %>%
  addMarkers(data = df2, lng = ~Lon, lat = ~Lat, group = "2", popup = iframe2)

方案二：使用leafpop公开API addPopupGraphs（更简洁）

无需手动保存部件文件，直接传入Plotly对象列表，自动绑定对应组的弹窗：

library(leaflet)
library(leafpop)
library(plotly)

df1=data.frame(Name="Site1", Lon=0, Lat=0)
df2=data.frame(Name="Site2", Lon=1, Lat=2)

p1 = plot_ly(data=data.frame(x=1:10, y=rnorm(10)), x=~x, y=~y) 
p2 = plot_ly(data=data.frame(x=1:10, y=rnorm(10)), x=~x, y=~y) 

# 合并数据源和图表列表
combined_df = rbind(df1, df2)
graph_list = list(p1, p2)

leaflet() %>% 
  addTiles() %>%
  addMarkers(data = combined_df, lng = ~Lon, lat = ~Lat, group = c("3", "2")) %>%
  addPopupGraphs(graph_list, group = c("3", "2"), width = 400, height = 300)

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