Use a picture of me as the icon for each location…
KenLatLong <- data.frame(
lat = c(41.766667,41.716667,40.441944,42.295833,42.134064,42.083333,35.766667),
lng = c(-71.45,-71.416667,-86.9125,-71.713333,-71.969017,-71.4,-78.633333))
KenLatLong %>%
leaflet() %>%
addTiles() %>%
addMarkers(icon = KenPic, popup=c("Cranston, RI", "Warwick, RI - I was born here!", "West Lafayette, IN - Purdue University where I went to college!", "Shrewsbury, MA", "Charlton, MA", "Franklin, MA","Raleigh, NC - where I live now!"))