Car accidents in Belgrade

#Nezgode


library(leaflet)

#kreiranje mape bez markera - prazna mapa sveta

serbia <- leaflet() %>%
  addTiles()
serbia

library(readxl)
nezgodebgd <- read_excel("C:/Users/vjovanovic/Desktop/R Udemy/Mapa srbije/Mape paket leaflet/Mape paket leaflet/nezgodebgd.xlsx")

nezgode <- nezgodebgd
class(nezgode$tip)

## [1] "character"

nezgode$tip <- as.factor(nezgode$tip)
str(nezgode)

## Classes 'tbl_df', 'tbl' and 'data.frame':    1521 obs. of  7 variables:
##  $ br   : num  1240862 1243635 1240795 1240864 1241024 ...
##  $ date : chr  "01.01.2019,14:42" "01.01.2019,04:15" "01.01.2019,21:05" "01.01.2019,16:50" ...
##  $ lng  : num  20.4 20.5 20.5 20.5 20.5 ...
##  $ lat  : num  44.7 44.8 44.8 44.8 44.8 ...
##  $ steta: chr  "Sa mat.stetom" "Sa mat.stetom" "Sa mat.stetom" "Sa mat.stetom" ...
##  $ tip  : Factor w/ 5 levels "SN SA JEDNIM VOZILOM",..: 3 4 3 2 2 2 2 2 2 2 ...
##  $ opis : chr  "Najmanje dva vozila koja se kreću istim putem u istom smeru uz skretanje, skretanje udesno ispred drugog vozila" "Sudar sa parkiranim vozilom – bilo sa leve ili sa desne strane kolovoza" "Najmanje dva vozila koja se kreću različitim putevima uz prolazak kroz raskrsnicu, ili od kojih jedno prelazi p"| __truncated__ "Najmanje dva vozila koja se kreću u istom smeru – sustizanje" ...

pal <- colorFactor(
  palette = c('black', 'blue', 'yellow', 'orange', 'red'),
  domain = nezgode$tip
)

pal <- colorFactor(topo.colors(5), nezgode$tip)

nezgode %>%
  leaflet %>%
  addTiles() %>%
  addProviderTiles(providers$Stamen.TonerLite) %>% 
  addCircles(lng = ~lng, lat = ~lat, weight = 10, 
             color = ~pal(tip)) %>%
  addLegend("bottomright", pal = pal, values = ~nezgode$tip,
          title = "Saobraćajne nesreće u Beogradu, do 31. januara 2019",
          labFormat = labelFormat(prefix = "..."),
          opacity = 2)