Škole u Srbiji

#Škole u Srbiji
"Izvor: otvoreni podaci"

## [1] "Izvor: otvoreni podaci"

library(leaflet)
library(readxl)
library(shiny)
library(tidyr)

skole <- read_excel("C:/Users/vjovanovic/Desktop/R Udemy/Skole u Srbiji/osnovne_i_srednje.xlsx")


my_title <- tags$p(tags$style("p {color: blue; font-size:10px}"),
                   tags$b("Vitomir Jovanović"))

#Sa bojom za različite vrste škola
#Preimenujemo varijablu vrsta skole u faktor i slova, kako bi mapa mogla da je učita

skole$vrsta_id <- as.factor(skole$vrsta_id)

skole$vrsta_id <- as.character(skole$vrsta_id)
skole$vrsta_id[skole$vrsta_id == "1"] <- "Osnovna škola"
skole$vrsta_id[skole$vrsta_id == "2"] <- "Srednja škola"
skole$vrsta_id <- as.factor(skole$vrsta_id)


pal <- colorFactor(palette = c("darkgreen", "red"), skole$vrsta_id)


skole %>%
  leaflet %>%
  addTiles() %>%
  setView(lat = 44.80804, lng = 20.43887, zoom=8) %>% 
  addProviderTiles(providers$OpenMapSurfer) %>% 
  addCircles(lat = skole$lat, lng = skole$lng, weight = 1, 
             radius = sqrt(skole$broj_ucenika)*100, 
             color = ~pal(vrsta_id), 
             opacity = 0.4,
             popup = paste("Broj učenika", skole$broj_ucenika, "<br>",
                           "Broj odeljenja", skole$broj_odeljenja, "<br>")) %>% 
  addLegend(pal= pal, values = skole$vrsta_id, position = "topright", title = "Vrste škola - veličina kruga predstavlja veličinu škole") %>%
  addMiniMap(tiles = providers$OpenStreetMap.BlackAndWhite, width = 120, height=80, position = "bottomleft") %>% 
  addControl(my_title, position = "bottomleft")