library(leaflet)
## Warning: package 'leaflet' was built under R version 3.3.3
data <- read.csv("Bestaande_koopwoning.csv", sep = ";", dec = ",")
LatLon <- data[,4:5]
popuptext1 <- data$Stad
popuptext2 <- paste("EUR", data$euro)
popuptext <- paste(popuptext1, "," ,popuptext2)
LatLon %>%
leaflet() %>%
addTiles() %>%
addMarkers(clusterOptions = markerClusterOptions(), popup = popuptext)