Add different pictures to each Markers in the Leaflet Package (Map Application)

General
, , ,
1

Hello everyone,

Hello to all of you,

I'm making an interactive R map with the Leaflet package, the application domain is related to zoology with the distribution of the Hedgehogs of the World.

Luckily I have already found some well done tutorials on the internet to train myself and produce the result.

Nevertheless, to make it perfect I still have a problem with one thing of great importance.

Here's my code

# - - -  Project Map Hedgehogs 


library(shiny)

library(shinythemes)

library(leaflet)

library(leaflet.providers)

library(dplyr)

library(maps)

library(RColorBrewer)

library(leaflet.extras)

library(rworldxtra)

library(raster)

library(sf)

library(tidyverse)


# 0] Load data


Data_Herisson <- read.csv("XXXXX/Documents/Question hérisson.csv")


# 1] Color from a factor which is " Genus Name "


Genus_names <- Data_Herisson$genus_name  %>% unique()


# Palette de couleurs


library(RColorBrewer)

brewer.pal(n = 3, name = "Paired")

Color <- c("blue","red","green")


pal <- colorFactor(Color,domain = Genus_names)


# [FINAL] Afficher la carte 

Map_Herisson<-leaflet() %>%
  addProviderTiles("Esri.WorldImagery") %>%                                        
  addCircleMarkers(data = Data_Herisson,                                          
                   lat = ~latitude,                           
                   lng = ~longitude,                          
                   color = ~pal(Data_Herisson$genus_name),                        
                   stroke = FALSE,                                                
                   popup = paste("Taxinomie : ", Data_Herisson$complete_name,
                                 "<br>",
                                 "N° échantillonnage : ", Data_Herisson$specimen_code,
                                 "<br>","<br>","<hr>",
                                 "Mode de conservation : ", Data_Herisson$preservation_method,
                                 "<br>",
                                 "Date prélèvement : ", Data_Herisson$date_collected,
                                 "<br>",
                                 "Statut étude phylogénétique : ", Data_Herisson$phylogeny_status),
                   label = ~as.character(name),                                    
                   clusterOptions = markerClusterOptions(),                        
                   fillOpacity = 0.5)                                           




# Ajout Légende des Genres à la Carte 

Map_Herisson %>% addLegend(data = Data_Herisson, 
                              position = "topright", 
                              pal = pal,
                              values = Data_Herisson$genus_name,
                              title = "Genres de Brentidae", 
                              opacity = 1)

Voici ce que j'obtiens ce qui est déjà très satisfaisant :

Carte Interactive (2)
Carte Interactive (2)1771×1051 212 KB

My question is the following, how can I display in the popup a photo of each specimen?

It would be possible to use a link to a photo of the taxon, but that would break the aesthetic and interactive interest of the thing.

I have already seen and understood how to add a photo that is displayed for each marker (Source : Add a pop-up with an image to a leaflet map in R) but I can't figure out how to do it knowing that my real dataset is much larger .... :frowning:

If this works, the result would be truly wonderful ! :smiley:

Thak you in advance, wishing you a great day