Buga, la ciudad donde nací

 Buga <-data.frame(lng=c(-76.303326,-76.298240,-76.293612,-76.295779),lat=c(3.879727,3.880135,3.887659,3.899783))

luego, para los mensajes que señalan cada sitio, crearé otra variable en la que almacenaré usando un vector, los mensajes que vaya a colocar en cada marcador.

Buga.popup = popup = c("Esta es mi ciudad natal","Este es el colegio donde me gradué como bachiller","Esta es la casa donde viví hasta mis 20 años","Este es un restaurante muy conocido donde trabajé por primera vez")
Buga.popup

[1] "Esta es mi ciudad natal"                                          
[2] "Este es el colegio donde me gradué como bachiller"                
[3] "Esta es la casa donde viví hasta mis 20 años"                     
[4] "Este es un restaurante muy conocido donde trabajé por primera vez"

#A continuación, se procedera a realizar el mapa en si, para ello se usará la libreria leaflet y se tomará como guia, el ejemplo dado en clase.

Buga %>% 
    leaflet() %>%
    addTiles() %>%
    addMarkers(popup = Buga.popup, clusterOptions = markerClusterOptions())