Plot2

Многоквартирные жилые дома г.Анапа, в которых осуществлён капитальный ремонт

fileURL <-'./data/house.png'
house.icon <- makeIcon(iconUrl = fileURL,
                      iconWidth = 31, iconHeight = 31,
                      iconAnchorX = 31, iconAnchorY = 31)

fileURL <- './data/data2.csv'
doc <- read.csv2(fileURL, stringsAsFactors = F)
doc <- doc[, c('number', 'data_name', 'long', 'lat')]
doc$lat <- as.numeric(doc$lat)
doc$long <- as.numeric(doc$long)


map.sites <- paste0(doc$data_name, '</br>',
                    doc$schedule,'</br>',
                    doc$adress)


myMap <- doc %>% leaflet(width =800, height =800) %>%
  addTiles() %>% addMarkers(icon = house.icon, popup = map.sites)

myMap