Laboratornaya rabota 3

library(leaflet)
customicon <- makeIcon (iconUrl = 'https://upload.wikimedia.org/wikipedia/commons/thumb/d/db/Countryball_-_Polandball.png/768px-Countryball_-_Polandball.png', iconWidth = 50, iconHeight = 50
                        
                        )
my_map <- leaflet() %>% 
  addTiles()%>% 
  addMarkers(lat=52.230910, lng=21.037240, 
             popup="polska strong", icon = customicon)
my_map

set.seed(2022)
df <- data.frame(lat = runif(50, min=52.1, max = 52.2),
                 lng = runif(50,min=21.1, max = 21.2))
library(leaflet)
df %>% 
  leaflet ()%>% 
  addTiles()%>% 
  addMarkers()

set.seed(2022)
df <- data.frame(lat = runif(50, min=52.1, max = 52.2),
                 lng = runif(50,min=21.1, max = 21.2),
                 col=sample(c('red','white'),50,replace=TRUE),
                 stringsAsFactors = FALSE)

library(leaflet)
df  

##         lat      lng   col
## 1  52.18160 21.11950 white
## 2  52.16473 21.12852 white
## 3  52.11203 21.17422   red
## 4  52.15438 21.13691 white
## 5  52.11847 21.16286   red
## 6  52.16358 21.15768   red
## 7  52.10743 21.13022 white
## 8  52.10420 21.14262 white
## 9  52.13703 21.14056 white
## 10 52.17573 21.11415   red
## 11 52.10019 21.15469   red
## 12 52.11598 21.15371   red
## 13 52.11447 21.17972   red
## 14 52.15194 21.18201 white
## 15 52.16095 21.10595 white
## 16 52.11225 21.18328   red
## 17 52.17732 21.14127   red
## 18 52.15145 21.14586   red
## 19 52.15954 21.12069   red
## 20 52.18509 21.15938   red
## 21 52.18428 21.18592   red
## 22 52.15703 21.18670 white
## 23 52.14266 21.18599   red
## 24 52.11372 21.17804 white
## 25 52.11631 21.15565   red
## 26 52.19351 21.10688 white
## 27 52.15370 21.15624 white
## 28 52.19977 21.17437 white
## 29 52.14790 21.14330 white
## 30 52.17736 21.14808   red
## 31 52.14680 21.13940   red
## 32 52.16376 21.14045 white
## 33 52.12565 21.17904   red
## 34 52.14054 21.17392 white
## 35 52.11709 21.11304 white
## 36 52.10680 21.13981   red
## 37 52.18460 21.10762 white
## 38 52.15499 21.12317 white
## 39 52.18048 21.15241 white
## 40 52.17651 21.18084   red
## 41 52.16422 21.12139   red
## 42 52.14417 21.11615   red
## 43 52.16494 21.16332 white
## 44 52.15245 21.14602   red
## 45 52.18672 21.13976   red
## 46 52.11006 21.12785   red
## 47 52.18871 21.10960 white
## 48 52.16280 21.19901   red
## 49 52.13638 21.16436   red
## 50 52.18527 21.17458   red