如何使用Leafpop为Leaflet地图点位添加专属弹窗图片

该需求完全可以实现，leafpop包原生支持多图片与Leaflet点位一一绑定的效果。

• 路径读取错误：system.file("file/image_name.jpg", package = "jpg") 写法不符合规则，system.file 用于读取指定R包内置的文件，jpg 不是合法的R包名称，会导致读取不到有效图片路径，本地存储的图片直接填写相对/绝对路径即可，例如 img <- "./自定义文件夹/图片名.jpg"
• 分组不匹配：addCircleMarkers 未指定group参数，后续addPopupImages指定了group = "map"，弹窗无法和点位绑定，自然不会显示
• 单条路径无法实现一一对应：要实现每个点位弹出不同图片，需要传入和点位数量长度完全一致的图片路径向量，向量的每个位置对应对应点位的图片路径

假设你的空间数据map新增了一列img_path，存储每个点位对应的本地图片路径，示例代码如下：

library(leaflet)
library(leafpop)

# 生成和点位一一对应的图片路径向量，长度和map的点位数量完全一致
img_vec <- map@data$img_path
# 若测试单张图片应用到所有点位，可生成等长重复向量：img_vec <- rep("./test.jpg", nrow(map@data))

leaflet(map) %>% 
  addTiles() %>%
  # 给点位指定和弹窗一致的group参数
  addCircleMarkers(group = "map",
                   label = map@data$name,
                   weight = 2,
                   color = "grey",
                   fillColor = "red",
                   fillOpacity = 0.7) %>%
  # 传入图片路径向量，group和点位保持一致，可自定义图片宽度
  addPopupImages(image = img_vec, group = "map", width = 300)

• 图片路径建议使用相对路径，尽量避免路径包含中文或特殊字符，防止读取失败
• 如果需要在弹窗同时展示点位文字信息，可以配合popupTable等函数组合实现自定义弹窗内容

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