```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) library(leaflet) # Создаем фрейм данных с координатами (например, известные города/места) places <- data.frame( lat =, lng =, popup = c(“Astana
Capital of Kazakhstan”, “Almaty
Cultural and financial center”, “Shymkent
Major historical and industrial hub”), name = c(“Astana”, “Almaty”, “Shymkent”) )
places %>% leaflet() %>% addTiles() %>% addMarkers( popup = ~popup, label = ~name, clusterOptions = markerClusterOptions() ) %>% addMouseCoordinates()